![](https://lstatic.shangxueba.com/sxbzda/h5/images/m_q_title.png)
When something happens ______ we like, we usually feel joy or happiness, which is a positi
A.upon
B.to
C.that
D.what
![](https://lstatic.shangxueba.com/sxbzda/h5/images/tips_org.png)
A.upon
B.to
C.that
D.what
第1题
有如下程序:
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
End If
Next i
End Sub
程序运行后,单击窗体,消息框的输出结果为()。
第2题
设有如下程序: Option Base 0 Private Sub Form_Click() Dim a Dim i 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 1
B.54 3 2
C.6 5 4 3
D.7 6 5 4
第3题
设有如下程序:
Option Base 0
Private Sub Form_Click()
Dim a
Dim i 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 1
B.5 4 3 2
C.6 5 4 3
D.7 6 5 4
第4题
有如下程序: Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。
A.25
B.26
C.27
D.28
第5题
设有如下程序: Option Base 0 Private Sub Form_Click() Dim a Dimi 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 1
B.5 4 3 2
C.6 5 4 3
D.7 6 5 4
第6题
有如下程序: Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。
A.25
B.26
C.27
D.28
第7题
阅读程序: 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
第8题
以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub
A.20
B.441
C.400
D.出错信息
第9题
有如下程序: Option Base 1 Pfivate 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 Nexti print Sum End Sub 程序运行后,单击窗体,输出结果为()。
A.25
B.26
C.27
D.28
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!