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

35 设有命令按钮Command1的单击事件过程 Private Sub Command1_Click（） Dim a（3，3） AS Integer For i=1 To 3 For j=1 To 3 a（i，j）=i*j+i Next j Next i Sum=O For i=1 To 3 Sum=Sum+a（i，4-i） Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。 A）20 B）7 C）16 D）17 36 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click（） Dim c As Integer，d As Integer d=0 c=6 x=Array（2，4，6，8，10，12） For i=1 To 6 If x（i）=c Then d=d+x（i） Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。 A）10 B）16 C）12 D）20 37 阅读程序： Option Base 1 Dim arr（） As Integer Private Sub Form_Click（） Dim i As Integer， j As Integer ReDim arr（3， 2） For i = 1 To 3 For j = 1 To 2 arr（i， j） = i * 2 + j Next j Next i ReDim Preserve arr（3， 4） For j = 3 To 4 arr（3， j） = j + 9 Next j Print arr（3， 2） + arr（3， 4） End Sub 程序运行后，单击窗体，输出结果为 A）21 B）13 C）8 D）25 38 窗体中新建立一个命令按钮（Command1），其事件代码如下： Private Sub Command1_Click（） Dim a（4） As Integer， b（4） As Integer For K = 0 To 2 a（K + 1） = Val（InputBox（“请输入数据”）） b（3 - K） = a（K + 1） Next K Print b（K） End Sub 窗体运行后，单击命令按钮，依次输入1、3、5，执行结果为______。 A）0 B）1 C）3 D）5 39 在窗体上画一个名称为Command1命令按钮，然后编写如下程序： Private Sub Command1_Click（） Dim i As Integer，j As Integer Dim a（10，10）As Integer For i=1 To 3 For j=1 To 3 a（i，j）=（i-1）*3+j Print a（i，j）; Next Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是______。 A）1 2 3 2 4 6 3 6 9 B）2 3 4 3 4 5 4 5 6 C）1 4 7 2 5 8 3 6 9 D）1 2 3 4 5 6 7 8 9