第2题
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:
Public x As Integer
Private Sub Command1_Click()
x=10
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1()
x=x+20
End Sub
Private Sub s2()
Dim x As Integer
x=x+20
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为()。
A.10
B.30
C.40
D.50
第3题
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub f(ByVal x As Integer)
x=x+4
End Sub
Private Sub Command1_Click()
i=3
Call f(i)
If i>4 Then i=i*2
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为()。
第4题
在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
Dim s,i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为 。
第5题
(35 )在窗体中添加一个名称为 Command1 的命令按钮,然后编写如下程序:
Public x As Integer
Private Sub Command1_Click()
x = 10
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1()
x = x + 20
End Sub
Private Sub s2()
Dim x As Integer
x = x + 20
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为
A ) 10
B ) 30
C ) 40
D ) 50
第6题
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序: Public x As Integer Private Sub Commandl_click() x=10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x=x+20 End Sub Private Sub
A.10
B.30
C.40
D.50
第7题
在窗体中添加一个命令按钮,名称为Command1;添加一个文本框,名称为Text1,然后编写如下程序: Private Sub Commandl Click() Dim a(5), b(5) For j = 1 To 4 a(j) = 3 (j b(j) = a(j) (3 Next j Text1.Text = b(j\2) End Sub 程序运行后,单击命令按钮,在文本框中显示
A.25
B.18
C.36
D.35
第8题
在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序: Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是______。
A.0
B.5
C.6
D.7
第9题
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() A=75 If A<60 Then x=1 If A<70 Then x=2 If A<80 Then x=3 If A<90 Then x=4 MsgBox x End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.1
B.2
C.3
D.4
第10题
在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
Next i
MsgBox sum
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为()。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!