VB选择题库(4)VIP

1.程序运行时，文本框中显示的信息如下：S=0:a=0DoA=a 23360s=s aIf S10 Then Exit Do循环until a40Text1 .Text=Str(a s) 182.程序运行后，单击表格时，表格中显示的“*”数为20Private Sub Form_Click()For I=1 To 9For j=I-1 To Step-2Print * Next j下一步IEnd Sub3.运行程序后双击命令按钮时，表格中显示的结果为：14Private Sub Command1_Click()Static s As IntegerFor I=5 To 1 Step -0.3S=s 1下一步I打印End Sub4.程序运行后，单击命令按钮时文本框中显示的信息为：15Dim s As IntegerDim Flag As BooleanFlag=TrueS=1While s 100 And FlagS=s 7If s Mod 5=0 Then Flag=False温德尔Text1 .Text=Str(s)5.程序运行后，单击表单时，表单中显示的信息如下：5Private Sub Form_Click()S=0For I=1 To 100If I Mod 8=5 ThenExit ForEnd IfI=I 1下一步I打印IEnd Sub6.程序运行时，表格中显示的信息为1 2 3For I=1 To 3For j=1 To 3Arr1(i，j)=IArr2(j，i)=arr1(i，j)Next j下一步IFor I=1 To 3Print arr2(2，I)下一步I7.程序运行后，单击命令按钮时，表格中显示的信息如下：9Dim arr()%Private Sub Command1_Click()ReDim arr(5)For I=0 To 5Arr(i)=I下一步IReDim arr(8)For Each x In arrS=x s 1Next x打印End Sub以下是表单单击事件的代码：Private Sub Form_Click()if x y then print xprint ok！End Sub程序运行后，单击表单时，表单输出的结果如下：Xend S=s val(msj)Msj=inputbox(“请输入数据”，“输入数据”)回路Prints 35.有点36.以下程序执行的功能(50-60的32个输出)Dim(3，7)For i=lbound(a，1)to ubound(a，1)For j=lbound(a，2)to ubound(a，2)A(i，j)=int(rnd*10) 50打印a (I，j)Next j打印下一步I37.数组的下标从1到20在数组中分配了20个随机数，下一个程序完成了(按值的大小降序排列数组中的数据)For i=1to 20For j=i I to 20If a(i)a(j)then(按值的大小升序排列数组中的数据)Mmm=(j)A(i)=a(j)A(j)=mmmEnd ifNext j下一步I38.数组的下标从1到20分配数组中的20个随机数，以完成以下过程(将数组中此元素之后的所有元素的和放入此元素中)For i=1to 20S=0For j=i I to 20S=s a(j)Next jA(i)=s a(i)=a(i) s(在此元素中放置阵列中开始此元素后面部分的所有元素中存储的数据的总和)下一步I39.d=15Print lif(d12， d大于12 ， d小于12 )等效物(d=15)If12 then“Printd大于12”Else“Printd小于12”End if40.if then语句格式(if then)(无标点符号)41.在块结构条件语句中，如果if结构中有多个条件为true(VB在第一个条件为true后执行语句块)42.以下过程的结果是(CBA)X$=a Y$=b Z$=c For i=1to 2X$=y$: y$=z$: z$=x$:下一步IPrint x$ y$ z$以下过程的循环数为(6)For i=10to40 step 6打印I下一步I44.运行以下程序后，结果为(i=5)For i=1to5 step 2ClsPrint I=I；下一步I是45。在For- next循环中，假设(1)步