A: 3
B: 4
C: 6
D: 7
举一反三
- 在窗体中添加一个名称为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 MsgBox i End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
- 在窗体上添加一个名称为Command1的命令按钮,编写如下代码: Private Sub f(ByVal x As Integer) x=x+4 End Sub Pvivate Sub Command1_Click() i=3 Call f(i) If i>4 Then i=i*2 MsgBox i End Sub 运行窗体后,单击命令按钮,则消息框的输出结果为______。
- 在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1______Click() x=3 Call f1 Call f2 MsgBox x End Sub Private Sub f1() x=x*x End Sub Private Sub f2() Dim x As Integer x=x+4 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
- 在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Private Sub Command1 Click( ) A=75 If A>60 Then I=1 If A>70 Then I=2 If A>80 Then I=3 If A>90 Then I=4 MsgBox I End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。 A: 1 B: 2 C: 3 D: 4
- 在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码: Private Sub Command1_Click( ) A=75 If A>60 Then I=1 If A>70 Then I=2 If A>80 Then I=3 If A>90 Then I=4 MsgBox I End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。 A: 1 B: 2 C: 3 D: 4
内容
- 0
在窗体上画一个命令按钮Command1,编写事件代码如下: Public x As Integer Private Sub Command1_Click() x=3 Call f1 Call f2 MsgBox x End Sub Private Sub f1() x=x*x End Sub Private Sub f2() Dim x As Integer x=x+4 End Sub 运行窗体后,单击命令按钮,则消息框的输出结果为______。
- 1
在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Public x as integer Private Sub Command1_Click( ) x=5 Call s1 Call s2 MsgBox x End Sub Private Sub s1( ) x=x+10 End Sub Private Sub s2( ) Dim x as integer x=x+10 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______
- 2
在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,显示结果为( )。
- 3
在窗体上画一个命令按钮<其名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i<=4 Then x=x+1 Print x Next i End Sub 程序运行后,单击命令按钮;其输出结果为 ______。 A: A) 1 2 3 4 B: B) 2 3 4 5 C: C) 2 3 4 4 D: D) 3 4 5 6
- 4
在窗体中有1个命令按钮Command1和1个文本框Text1,编写事件代码如下: Private Sub Command1_Click() x = 3 For i = 1 To 4 x = x + 3 Next i Text1.Value =Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Textl输出的结果是( )。