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

23 在窗体上画一个名称为Label1的标签，然后编写如下事件过程_____。 Private Sub Form_Click（） Dim arr（10， 10） As Integer Dim i As Integer， j As Integer For i = 2 To 4 For j = 2 To 4 arr（i， j） = i * j Next j Next i Label1.Caption = Str（arr（2， 2） + arr（3， 3）） End Sub 程序运行后，单击窗体，在标签中显示的内容是_____。 A）12 B）13 C）14 D）15 24 设有如下程序，其功能是用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中的最小值，请选择程序中空处应为_____。 Option Base 1 Private Sub Command1_Click（） Dim arr1 Dim Min As Integer， i As Integer arr1 = Array（12， 435， 76， -24， 78， 54， 866， 43） Min = _____ For i = 2 To 8 If arr1（i） 《 Min Then Min=arr1（i） Next i Print “最小值是：”; Min End Sub A）-24 B）886 C）arr1（1） D）arr1（0） 25 以下程序的输出结果是_____。 Option Base 1 Private Sub Command1_Click（） Dim a（10），p（3） As Integer k=5 For i=1 To 10 a（i）=I Next i For i=1 To 3 p（i）=a（i*i） Next I For i=1 To 3 k=k+p（i）*2 Next i Print k End sub A） 33 B） 28 C） 35 D） 37 26 以下程序段运行的结果是________。 Dim a（-1 To 5）As Boolean Dim flag As Boolean flag=false Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 to 5 j=j+1 If a（i）=False Then a（i）=True Exit For End If If i=5 Then flag=True End If Next Loop Print j A）20 B）7 C）35 D）8 27 以下有关数组定义的语句序列中，错误的是______。 A） Static arr1（3） Arr1（1）=100 Arr1（2）=“Hello” Arr1（3）=123.45 B）Dim arr2（） As Integer Dim size As Integer Private Sub Command2_Click（） size=InputBox（“输入：”） ReDim arr2（size） 。。.。。. End Sub C）Option Base 1 Private Sub Command3_Click（） Dim arr3（） As Integer 。。.。。. End Sub D）Dim n As Integer Private Sub Command4_Click（） Dim arr4（n） As Integer 。。.。。. End Sub