题目内容
（请给出正确答案）
设有如下事件过程： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Label1.BackColor = vbRed Case 1 Label1.BackColor = vbGreen Case 2 Label1.BackColor = vbBlue End Select End Sub 程序运行时单击第二个命令按扭Label1的背景色是（）。
A、红色
B、绿色
C、蓝色
D、白色
安装简答题APP，拍照搜题省时又省心！
更多“设有如下事件过程： Private Sub Command1…”相关的问题
设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a As Integer
For i=1 To 30
a(i)=i
Next
For Each arrItem 【 】a
If arrItem Mod 7=0 Then Print arrItem;
If arritem＞90 Then Exit For
Next
End Sub
请填空。
设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1,3 a=a+l Case2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是______。
A．3
B．4
C．5
D．6
设有命令按钮Command1的单击事件过程，代码如下，请填空。
Private Sub Command1_Click()
Dim a(30) As Integer
For i=1 To 30
a(i) =i
Next
For Each arrItem______a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem＞90 Then Exit For
Next
End Sub
设有如下窗体单击事件过程： Private Sub Form Click() a＝1 For i＝1 To 3 Select Case i Case 1,3 a＝a+1 Case 2,4 a＝a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是__
A．3
B． 4
C． 5
D． 6
设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click（）
Dim a（3，3）As Integer
For i=1 To 3
For j=1 To 3
a（i，j）=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a（i，4-i）
Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是（）。
A．20
B．7
C．16
D．17
设有命令按钮Commandl的单击事件过程，代码如下： Private Sub Commandl_Click() Dima(3,3)As Integer Fori=1 To 3 Forj=1 To 3 a(i,j)=i*j+i Next j Nexti Sum=0 Fori=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub
A．20
B．7
C．16
D．17
设有如下通用过程： Public Sub Fun(a()，By Val x As Integer) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下的事件过程： Private Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=i
A．10
B．15
C．25
D．24
（31）设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr=""
strL=Len(xStr)
i=1
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="abcdef"
Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是（）。
A）ABCDEF
B）abcdef
C）AFBECD
D）DEFABC
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A．10 5
B．20 5
C．20 40
D．10 40
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
