I enjoy eating in good restaurants and to go to the theater afterwards.
A.enjoy
B.good
C.to go
D.afterwards
第1题
阅读程序:
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
第2题
阅读程序:
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
第3题
(28)阅读程序:
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=0To2
Print arr(7-i);
Next
End Sub
程序运行后,窗体上显示的是:
A)8 7 6
B)7 65
C)6 5 4
D)5 4 3
第4题
阅读程序: 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 6
B.7 6 5
C.6 5 4
D.5 4 3
第5题
阅读程序: Sub p(b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序,单击命令按钮,输出结果为。
第6题
Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 5
i = 1
Do While i < 9
i = i + 2
s = s + i
Loop
Text1.Text = s
End Sub
程序运行后,Text1的输出结果是( )。
第7题
下列程序的输出结果是【 】。
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2)
End Sub
第8题
下列程序的输出结果是【 】
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=l To 20
a(i)=i
Next i
For Each i In a()
a (i) =20
Next i
第9题
阅读程序: 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.13
B.14
C.27
D.15
第10题
下列程序的输出结果是()。
Private Sub Command1_Click()
Dim arr(1 To 10)
For i=1 To 10
Next i
For Each i In arr()
Next i
End Sub
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!