（ 19 ）有下列命令按钮（名称为 Command1 ）事件过程：Private Sub Command1_Click( )x=InputBox(" 输入 :"," 输入整数 ")MsgBox " 输入的数据是 :" ，， " 输入数据 :"+xEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数 10 ，则下列叙述中错误的是（ ）。A ） x 的值是数值 10B ）输入对话框的标题是 “ 输入整数 ”C ）消息框的标题是 “ 输入数据： 10 ”D ）消息框中显示的是 “ 输入的数据是： ”
题目
（ 19 ）有下列命令按钮（名称为 Command1 ）事件过程：
Private Sub Command1_Click( )
x=InputBox(" 输入 :"," 输入整数 ")
MsgBox " 输入的数据是 :" ，， " 输入数据 :"+x
End Sub
程序运行后，单击命令按钮，如果从键盘上输入整数 10 ，则下列叙述中错误的是（ ）。
A ） x 的值是数值 10
B ）输入对话框的标题是 “ 输入整数 ”
C ）消息框的标题是 “ 输入数据： 10 ”
D ）消息框中显示的是 “ 输入的数据是： ”
相似考题
参考答案和解析
（ 19 ）【答案】 A ）
【解析】在默认情况下，InputBox 函数的返回值是一个字符串，如果没有事先声明返回值变量的类型 ，则把该函数的返回值赋给这个变量时 ， Visual Basic 总是把它作为字符串来处理 。因此 x 的值是字符串10 。
更多“( 19 )有下列命令按钮(名称为 Command1 )事件过程:Private Sub Command1_Click( )x=InputBox(" ”相关问题
-
第1题：
窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox(“输入数据”))
Text1=Str(fun(x)+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
Ifn Mod 3=0 Then
n=n+n
Else
n=n*n
End If
________=n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_______。
正确答案：fun 276
fun 276 解析：因为fun是个求值函数，故通过函数名返回值，所以第一空填fun。本题中fun函数的参数n是按地址传送的(即此值不会在函数结束后被销毁)，所以语句Str(fun(x)+fun(x)+fun(x))，据题意可知第一个fun(x)结果为4，第二个fun(x)结果为16，第三次fun(x)结果为256，所以第二空填276。 -
第2题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。
A．3
B．4
C．5
D．6
正确答案：D
解析：本题是一个简单的双重For-Next循环考题，这里需要注意的是，循环的终值都是由变量设置的。当步长大于。时，循环的初值与终值相等，仍然要执行一次循环；只有当循环变量大于终值的时候才跳出循环。x的值实际上等于循环执行的次数6。如果考生认为For i=1 To 1并不执行循环，则会认为选项C为答案。答案为D。 -
第3题：
设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是（）。
A．窗体的Click事件过程的过程名是Myform_Click
B．命令按钮的Click事件过程的过程名是Command_Click
C．命令按钮的Click事件过程的过程名是Command1_Click
D．命令按钮的Click事件过程的过程名是C1_Click
B -
第4题：
窗体中有命令按钮Command1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox(“请输入一个整数”))
If______ Then
Textl=Str(x)&“是偶数．”
Else
Textl=Str(x)&“是奇数．”
End If
End Sub
运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写( )。
A．result(x)=“偶数”
B．result(x)
C．result(x)=“奇数”
D．NOT result(x)
正确答案：B
解析：result函数对参数进行取模2后判断，所以当参数值为偶数时返回true，返回值为布尔型，所以此处应选B选项。 -
第5题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。
A．3
B．4
C．5
D．6
正确答案：D
解析：变量x的功能为计算循环的次数。对于双重循环，如果“i=1 to n”和“j=1 to n”，则循环次数为n×n；如果“i=1 to n”和“j=1 to i”，循环次数为(1+n)×n/2。本题的循环次数为(1+3)×3/2=6。