A.105
B.1
C.120
D.15
[单选题]阅读程序:Private Sub Command1_Click()A.=0F.or j=1 to 15a=a+j mod 3Next jPrint aE.nd Sub程序运行后,单击窗体,输出结果是A. )105B.)1C.)120D.)15
[主观题]阅读程序;Option Base 1Private Sub Form_ KeyPress (KeyAscii As Integer)art = Array(268, 542, 693, 365, 489, 147, 852)a1 = arr(1)a2 = 1If KeyAscii = 13 ThenF.or a = 2 To 6If arr(i) > a1 Thena1 = arr(i)a2 = iE.nd IfNext iE.nd IfPrint a1; a2E.nd Sub程序运行后,按回车
[单选题]阅读程序: Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=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.13B.14C.27D.15
[单选题]阅读程序: Option Base 1 Private Sub Form_Click() Dim art,Sum Sum=0 art=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+art(i) End If Next i Pdnt Sum End Sub 程序运行后,单击窗体,输出结果为( )。A.13B.14C.27D.15
[单选题]请阅读程序:Private Sub Form_Click()m=1F.or i=4 To 1 Step-1Print Str(m);m=m+1F.or j=1 To iPrint”*”;Next jPrintNext iE.nd Sub程序运行后,单击窗体,则输出结果是( )。A.1**** 2*** 3** 4*B.4* 3** 2*** 1****C.**** *** ** *D.* ** *** ****
[单选题]运行下列程序: Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i),1, 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后,在窗体上显示的结果是A.12B.13C.14D.15
[单选题]设有以下程序:Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为 ______。A.100B.50C.120D.70
[单选题]设有如下程序: Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后,单击窗体,则在窗体上显示的是______。。A.4 3 2 1B.5 4 3 2C.6 5 4 3D.7 6 5 4
[单选题]阅读程序: 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.13B.14C.27D.15
[单选题]下面程序执行的结果是______。 Private Sub Form_ Click() A$=“123”:B$=“456” C=Val(A$)+Val(B$) Print C/100 End SubA. 123B.3C.5D.579