2014中职VB语言程序设计选择题综合练习（三）.docVIP

VB语言程序设计综合练习：选择题 21 窗体上已有命令按钮Command1和标签Label1，下列程序运行后，单击Command1按钮，标签Label1中显示的内容是_____。 Option base 0 Private Sub Command1_Click（） Dim a（5） As Integer， n As Integer For i = 1 To 5 a（i） = i n = n + a（i） Next i Label1 = n End Sub A）5 B）10 C）15 D）程序报错，Label1不能输出结果 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 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