3[填空题] 下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 SubPR() Randomize Dim a(10) For j=1 To 10 a(i)=Int( (14) ) If (15) Then k=k+1 Print a(j) Next j Print Print k/10 Fnd Sub
5[填空题] 下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出：否则结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox("输出结果",vblnformation+vbYesNo，"提示：") If a=______Then Print "Myresult" End If End Sub
6[填空题] 程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。 程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。 Option Explicit Private ______ Dim k As Integer For k=1 To 100 If k Mod 20 Then _______ Else Text1.Text=" " End If Print“程序运行完毕，可再双击窗体” End Sub
8[填空题] 在窗体上设计如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii) End Sub 在程序运行后，按“a”键(不按住Shift键)，则窗体上输出的结果是______。
10[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm。窗体中已经给出了所有控件(框架中的3个单选按钮构成了一个控件数组)，如图3—1所示，请编写适当的事件过程。程序运行后，如果选中某个单选按钮，然后单击“计算”命令按钮，则计算出数列1，1，2，3，5，8，13，21，…的第n项的值，并在文本框中显示出来，其中n是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是：从第3个数开始，每个数是它前面两个数之和 (提示：由于计算结果较大，存放结果的变量应使用长整型)。 注意：①不得修改已经给出的程序和已有的控件的属性；②在结束程序运行之前，必须选中一个单选按钮，并单击“计算”命令按钮获得一个结果；③必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。试题所提供的事件过程如下： Private Sub Form_Unload(Cancel As Integer) Open"out5.dat"For Output As #1 Print #1,Op1(0).Value,Op1(1).Value,Op1(2).Value,Va1(Text1.Text) Close #1 End Sub
12[单项选择题] 下列程序段的执行结果为( )。 x=Int(Rnd+4) Select Case x Case 5:Print"A Class" Case 4:Print"B Class" Cage 3:Print"C Class" Case Else:Print"D Class" End Select
A．A Class
B．B Class
C．C Class
D．D Class
14[填空题] 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、 Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对listl中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 Private Sub Form_Load() For i = 1 To 100If i Mod 7 = 0 Then ______End If Next End Sub Private Sub Command1 Click() Sum=0 For i = 0 To ______Sum = Sum+ ______ Next Text1：Text = Sum End Sub
18[填空题] 下列程序段的输出结果为 ______。 int a=2； switch (a) case 2：System.out.print("Value is 2.")；case 3：System.out.println("Value is.")；break；default：System.out.println("end")；break；
20[填空题] 有如下事件过程： Private Sub Form_Adivate() Dim Score(1 to 3 ) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score(i)=2*1 Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 (10)
