单项选择题

当Command1_Click事件发生时，窗体上显示的内容是 ______。
Private Sub Command1_Click()
Dim a As Integer，b As Integer，c As Integer
If a = 0 Then
x = x-1
Else
If b ＜＞ 0 Then
x = 7
Else
x=x+8
End If
If c ＜＞ 0 Then
x = x-3
Else
x = 4
End If
Print x
End Sub

A．7
B．8
C．4
D．3

<上一题目录下一题>

热门试题

单项选择题在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 ______。 Private Function fun3(x As Integer) Static t As Integer t = t + 3 t = t + x fun3 = t End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a = 2 : b = 1 c = fun3 (a) c = fun3 (b) Print c End Sub

A．6
B．8
C．9
D．12

单项选择题已知字符串A的值为“AdvancedEducation”，现要将它全部转化为大写字母并存放在A中，可以使用语句 _______。

A．
B．
C．
D．

当Command1_Click事件发生时，窗体上显示的内容是 ______。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a = 0 Then x = x-1 Else If b ＜＞ 0 Then x = 7 Else x=x+8 End If If c ＜＞ 0 Then x = x-3 Else x = 4 End If Print x End Sub

当Command1_Click事件发生时，窗体上显示的内容是 ______。
Private Sub Command1_Click()
Dim a As Integer，b As Integer，c As Integer
If a = 0 Then
x = x-1
Else
If b ＜＞ 0 Then
x = 7
Else
x=x+8
End If
If c ＜＞ 0 Then
x = x-3
Else
x = 4
End If
Print x
End Sub