网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读程序：
Private Sub Commandl一Click()
Dim arr
Dim i AS Integer
arr=Array(0，1, 2，3，4，5，6，7,8，9，10)
For i=0 To 2
Print arr(7-i)；
Next
End Sub
程序运行后，窗体上显示的是：
A．8 7 6
B．7 6 5
C．6 5 4
D．5 4 3
参考答案
更多 “ 阅读程序：Private Sub Commandl一Click()Dim arrDim i AS Integerarr=Array(0，1, 2，3，4，5，6，7,8，9，10)For i=0 To 2Print arr(7-i)；NextEnd Sub程序运行后，窗体上显示的是：A．8 7 6B．7 6 5C．6 5 4D．5 4 3 ” 相关考题
考题
阅读程序Option Base 1Private Sub Form_Click（）Dim arr,SumSum = 0arr = Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3 = arr（i）\3 ThenSum = Sum + arr（i）End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．13B．14C．27D．15
考题
阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。A.8 7 6B.7 6 5C.6 5 4D.5 4 3
考题
阅读程序： 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
考题
执行以下Commandl的Click事件过程，在窗体上显示( )。 Option Base 0 Private Sub Commandl_Click() Dima a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g") Printa(1);a(3);a(5) End SubA．abcB．bdfC．aceD．出错
考题
阅读程序： 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
考题
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A.机床B.车床C.钻床D.轴承
考题
在窗体上绘制一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c As Integer,d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) Fori=1 To 6 1fx(i)＞c Then d=d+x(i) c=x(i) ElseA．10B．16C．12D．20
考题
阅读程序： 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+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．13B．14C．27D．15
考题
阅读程序： 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
热门标签
最新试卷