niusouti.com
在窗体中添加一个冬称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Prim Tab(1)；“第一”， Print Tab(6)；“第二”， End Sub 程序运行后，如果单击命令按钮，在窗体上显示的内容是(口表示空格)A．第一口口第B．第一第二口口C．第一口口 第二D．第一口口 第二
题目
在窗体中添加一个冬称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Prim Tab(1)；“第一”， Print Tab(6)；“第二”， End Sub 程序运行后，如果单击命令按钮，在窗体上显示的内容是(口表示空格)
A．第一口口第
B．第一第二口口
C．第一口口 第二
D．第一口口 第二
相似考题
更多“在窗体中添加一个冬称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click( ”相关问题
-
第1题：
在窗体中添加一个命令按钮，名称为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
正确答案：B
解析：当一数字用函数Str(数字)转成字符串时，总会在前头保留一空位来表示正负。如果数字为正，返回的字符串包含一前导空格暗示有一正号。 -
第2题：
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（）
Dim s，i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
正确答案：55
-
第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
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
正确答案：3
3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完callf(i)这条语句后i的值不变仍为3，当然也不满足If语句的条件，故此最后输出结果为3。 -
第4题：
在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
正确答案：2500
2500 解析：本题考查循环的知识。这个问题比较简单，实际上就是求1到100之间的奇数和，最终结果为2500。 -
第5题：
在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。
A．11
B．a=11
C．0
D．False
正确答案：D
解析：程序中“MsgBox a=b＋c”表示在消息框中显示a与b＋c的值比较的结果，由“a=0:b=5:c=6”可知，0! =11，所以消息框的输出结果为FALSE。 -
第6题：
在窗体中添加一个名称为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
正确答案：B
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。 -
第7题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Command1_click()
Dim i As Integer
i=3
Call s(i)
If i＞4 Then i=i^2
MsgBox i
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为【 】。
正确答案：3
3 解析：由于VBA中，传值调用(ByVal选项)为“单向”作用形式即过程调用只是相应位置实参的值“单向”传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。此题中：形参p被说明为ByRef传值形式的整型量，当运行Command1 Click()过程，并调用s()函数，实参i传送其值给形参p，p发生变化p=p*2=3*2=6。但因为使用的是ByVal“单向”传值形式，实参i的的值不发生变化， iF句为假，执行MsgBox i语句后输出3。 -
第8题：
在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：
Private Sub s(By Val p As Integer)
p=p*2
End Sub
Prirate Sub Command1_Click( )
Dim i As Integer
i=3
Call s(i)
If i＞4 Then i=i^2
MsgBox I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
正确答案：3
3 解析： 由于VBA中，传值调用(Byval选项)为“单向”作用形式即过程调用只是相应位置实参的值“单向”传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。此题中：形参p被说明为ByRef唯值形式的整型量，当运行Command1_Click( )过程，并调用s( )函数，实参i传送其值给形参p，p发生变化P＝p*2＝3*2＝6。但因为使用的是DyVal“单向”传值形式，实参i的值不会发生变化，仍然为3。i＞4条件不成立，不会执行“i＝i^2”语句，所以最后i的值为3。 -
第9题：
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A．AB
B．CD
C．ABED
D．CDAB
正确答案：B
解析：当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的Text属性变为CD。 -
第10题：
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序： 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
正确答案：B
解析：当一数字用函数Str转换成字符串时，总会在前头保留一个空位来表示正负。如果数字为正，返回的字符串包含一个空格，暗示有一个正号(+)。 -
第11题：
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() a=4:b=5:c:6 Print a=b+c End Sub 程序运行后，单击命令按钮，其结果为
A．a=11
B．a=b+c
C．False
D．出错
正确答案：C
解析：Print方法具有计算和输出两种功能。当Print的输出项是表达式时，将先计算表达式，然后输出表达式的值。所计算和输出的表达式可以是算术表达式，也可以是关系表达式或逻辑表达式。本题中的a=b+c是一个关系表达式，其中a的值为4，b+c的值是11，Printa=b+c实际上执行的是Print4=11，显然是一个“假”值， -
第12题：
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：
Private Sub Command1_Click()
Dim s ， i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。
正确答案：
-
第13题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
正确答案：A
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。 -
第14题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
正确答案：36
-
第15题：
在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 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
正确答案：D
解析： if语句为if条件表达式1 Then语句1，当条件表达式1为真时要执行语句1。在程序中，A＝95，A＞90为真，因此执行语句“I＝4”，输出结果为4。 -
第16题：
在窗体上添加一个命令按钮(名为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。 -
第17题：
在窗体中添加一个名称为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
正确答案：B
解析：“If条件表达式I Then条件表达式1为真时要执行的语句序列”，在程序中，A=75，即A＞70，执行“If A＞70 Then I=2”，所以，I=2。 -
第18题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a=12345 Print Format $(a，"000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是
A．123.45
B．12345.00
C．12345
D．00123.45
正确答案：B
解析：解题的关键是掌握对格式说明字符的理解。0表示一个数字位，0的个数决定了显示区段的长度，多余的位以0补齐；小数点与O结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理。由于本题中变量a为12345，并没有涉及小数，故可以直接在其后补两个0。 -
第19题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a()
a＝Array("机床"，"车床"，"钻床"，"轴承")
Print a(2)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
正确答案：C
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。 -
第20题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是
A． 123.45
B．12345.00
C．12345
D．00123.45
正确答案：B
解析：对于符号“0”，实际数字小于符号位数时，数字前后加0；大于时，若要显示数值表达式的整数部分位数多于格式字符串的位数，按实际数值显示。若小数部分的位数多于格式字符串的位数，按四舍五入显示。 -
第21题：
在窗体中添加一个命令按钮，名称为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。 -
第22题：
在窗体上添加一个名称为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
正确答案：D
解析：本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=l：然后再判断75不小于70，所以不执行F2：再接着判断75小于80，所以执行x=3：最后判断75小于90，所以执行x=4。最后消息框里输出的x值即为4。 -
第23题：
（ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：
Private Sub Command1_Click （）
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。
正确答案：
-
第24题：
（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：
Private Sub Command1_Click( )
Static b As Integer
b=b+1
End Sub
窗体打开运行后，三次单击命令按钮后，变量 b 的值是 【 11 】 。
正确答案：