itgle.com
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（）Dim s，iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
题目
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（）
Dim s，i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
相似考题
更多“在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序: PrivateSubCommand1_Click ”相关问题
-
第1题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
正确答案：20
20 解析： 本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。 -
第2题：
在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Textl，然后编写如下程序： Private Sub Command1_Click( ) Dima(5)，b(5) Forj：1 T04 s(j)=3*j b(j)=a(j)*3 Next j Textl.Text=b(j\2) End Sub 程序运行后，单击命令按钮，在文本框中显示
A．25
B．18
C．36
D．35
正确答案：B
解析：本题j值经过4次赋值之后，最后一次j值为5，此时For循环中止，故b(j/2)=b(2)。根据For循环对a(5)与b(5)的赋值，不难看出，b(2)的值为18。 -
第3题：
（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：
Private Sub Command1_Click( )
Static b As Integer
b=b+1
End Sub
窗体打开运行后，三次单击命令按钮后，变量 b 的值是 【 11 】 。
正确答案：
-
第4题：
在窗体中添加一个名称为Coml的命令按钮，然后编写如下程序：
正确答案：
3【解析】本题考查VBA程序的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参；若用ByRef声明，说明此参数为传址调用，此时形参的变化将会返回到实参；没有说明传递类型，则默认为传址传递。此题中形参P被说明为ByVal传值形式的整型量，当运行Cornl-click过程时调用s函数，实参i传送其值给形参P，P发生变化p=p*2=3*2=6。但因为使用的是ByVal传值传递，所以实参i的值不发生变化，if语句中的判断条件为假，所以会直接执行MsgBox i语句后输出3。 -
第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 】 。
正确答案：