在窗体上画一个命令按钮,然后编写如下程序: Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_CliCk() inc2 inc3 inc4 Msgbox x; End Sub 程序执行后,单击Command1命令按钮,消息框显示结果是 【14】
举一反三
- 设有下面程序 Sub inc(a As Integer) Static x As Integer x = x + a Print x; End Sub Private Sub Form_Click() inc 2 inc 3 inc 4 End Sub 程序运行后,单击命令按钮 Command1 ,则输出的结果是________
- 在窗体上画一个命令按钮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),然后编写如下代码: 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 窗体打开运行后,单击命令按钮,则消息框的输出结果是______
- 在窗体中添加一个名称为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),然后编写如下代码: Public x as integer Private Sub Command1_Click( ) a=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