niusouti.com
在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：DimaAsIntegerSubtest()a=a+1:b=b+1:c=c+1Print"Sub:";a;"，";b;"，";cEndSubPrivateSubCommand1_Click()a=2:b=3:c=4CalltestCalltestEndSub程序运行后，单击命令按钮，窗体中将显示( )A.Sub：3，4，5Sub：4，5，6B.Sub：2，3，4Sub：2，3，4C.Sub：3，1，1Sub：4，1，1D.Su
题目
在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
DimaAsInteger
Subtest()
a=a+1:b=b+1:c=c+1
Print"Sub:";a;"，";b;"，";c
EndSub
PrivateSubCommand1_Click()
a=2:b=3:c=4
Calltest
Calltest
EndSub
程序运行后，单击命令按钮，窗体中将显示( )
A.Sub：3，4，5Sub：4，5，6
B.Sub：2，3，4Sub：2，3，4
C.Sub：3，1，1Sub：4，1，1
D.Sub：1，1，1Sub：1，1，1
相似考题
更多“在通用声明中定义a,在窗体中添加一个命令按钮Command1,编写如下程序代码:DimaAsIntegerSub ”相关问题
-
第1题：
在窗体中添加一个命令按钮，编写如下程序代码：
在InputBox对话框中输入Hello，运行结果为：______。
正确答案：The Length of Hello is 5
The Length of Hello is 5 解析：通过InputBox对话框输入“Hello”后，通过使用Len()函数计算包含字符串内字符的数目。 -
第2题：
假定在窗体中的通用声明段已经定义有如下的子过程：
Sub f(x As Single,y As Single)
t＝x
x＝y
y＝x
End Sub
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
PrivateSubCommand1_Click()
a＝10
b＝20
f(a,B)
MsgBox a&b
End Sub
打开窗体运行后，单击命令按钮，消息框输出的值分别为( )。
A．20和10
B．10和20
C．10和10
D．20和20
正确答案：A
解析：本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用：没有说明传递类型，则默认为传址传递。即形参的结果会传递给实参。本题中形参完成了交换，由于默认为传址传递，交换后的值也会影响到实参a和b，即a和b完成了交换。 -
第3题：
（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：
Private Sub Command1_Click( )
Static b As Integer
b=b+1
End Sub
窗体打开运行后，三次单击命令按钮后，变量 b 的值是 【 11 】 。
正确答案：
-
第4题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
正确答案：12
12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。 -
第5题：
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：
Private Sub Command1_Click()
Dim s ， i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。
正确答案：