2014内蒙对口升学计算机VB模拟试题四带答案.doc

28 下述语句定义的数组元素有______个。 OPTION BASE 1 DIM A（12，8） A）117 B）128 C）96 D）20 29 下列程序段的执行结果为______。 Dim A（10，10） For I=1 To 8 For J=6 To 8 A（I，J）=I*J Next J Next I Print A（4，6）+A（3，8）+A（8，7） A）104 B）114 C）无法输出 D）报错溢出 30 阅读程序 Option Base 1 Private Sub Form_Click（） Dim arr， Sum Sum = 0 arr = Array（1， 3， 5， 7， 9， 11， 13， 15， 17， 19） For i = 1 To 10 If arr（i） / 3 = arr（i） \ 3 Then Sum = Sum + arr（i） End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。 A）13 B）14 C）27 D）15 31在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim array1（10，10） As Integer Dim i As Integer，j As integer For i=1 To 3 For j=2 To 4 array1（i，j）=i+j Next j Next i Text1.Text=array1（2，3）+array1（3，4） End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。 A）15 B）14 C）13 D）12 32 窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click（） Dim A（10）， B（5） For I = 1 To 10 A（I） = I Next I For J = 1 To 5 B（J） = J * 20 Next J A（5） = B（2） Print “A（5）=”， A（5） End Sub 窗体运行后，单击命令按钮，输出结果是______。 A）A（5）=40 B）A（5）=20 C）A（5）=10 D）A（5）=5 33 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click（） Dim city As Variant city = Array（“北京”，“上海”，“天津”，“重庆”） Print city（1） End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。 A）空白 B）错误提示 C）北京 D）上海 34 窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click（） Dim A（5， 5） For I = 1 To 3 For J = 1 To 4 A（I， J） = I * J Next J Next I For N = 1 To 2 For M = 1 To 3 Print A（M， N）; Next M Next N End Sub 窗体运行后，单击命令按钮，输入结果是______。 A）1 2 3 4 2 4 B）1 2 3 4 6 8 C）1 2 3 2 4 6 D）1 2 3 6 3 6