设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮，并有以下事件过程：Private Sub Commandl一Click()x!==Val(Textl．Text)Select Case xCasc Is<-10，Is>=20Print“输入错误”Case Is<0Print 20 xCase ls<10Print 20Case Is=20Print x+10End SelectEnd Sub程序运行时，如果存文本框中输入一5，则单击命令按钮后的输出结果是A．5B．20C．25D．输入
题目
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮，并有以下事件过程：
Private Sub Commandl一Click()
x!==Val(Textl．Text)
Select Case x
Casc Is<-10，Is>=20
Print“输入错误”
Case Is<0
Print 20 x
Case ls<10
Print 20
Case Is=20
Print x+10
End Select
End Sub
程序运行时，如果存文本框中输入一5，则单击命令按钮后的输出结果是
A．5
B．20
C．25
D．输入错误
相似考题
更多“设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:Private Sub Co ”相关问题
-
第1题：
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的是（ ）。A. 2
B. 3
C. 4
D. 5
正确答案：B
B) 【解析】本题考查循环程序的分析。题中循环变量为i，步长为1，循环体中i每次变化都增加3，因此执行一次循环后，i的值增加4，当i大于10时退出循环，所以每次循环后i的值为：3，7，11。当i为11时退出循环，所以循环共执行了3次。
-
第2题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl)，编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是__________。
正确答案：
15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时，参数有两种传递方式：传址传递和传值传递。如果在函数声明时没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。本题中形参均为传址传递，即a=x=3，b=y=5，c=z=10。但是在子程序里面对c重新赋值为c=a*b=15，这个值l5会回送给实参2，所以最后显示的值Z也就是l5。 -
第3题：
（26）设窗体上有一个名为Text 1的文本框和一个名为Command 1的命令按钮，并有以下
事件过程：
Private Sub Commandl Click()
x！=Val(Text 1.Text)
Select Case x
Case Is＜-10，Is＞=20
Prini"输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜＝20
Print x+10
End Select
Bud Sub
程序运行时，如果在文本框中输入一5}则单击命令按钮后的输出结果是
A）5
B）20
C）25
D）输入错误
正确答案：C
-
第4题：
在窗体上添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，并在命令按钮中编写如下事件代码：PrivateSubCommandlClick()m=17n=Len(Str$(m)+Sp2ace(5))Me!Text1=nEndSub打开窗体运行后，单击命令按钮，在文本框中显示______。
A．5
B．8
C．9
D．10
正确答案：D
-
第5题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：
正确答案：
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。