题目内容
（请给出正确答案）
A.y＝Val(x)+Val((Listl.List(0))
B.y＝Val(x)+Val(List1.List(1))
C.y＝Val(x)&Val(Lis1.List(0))
D.y＝Val(x)&Val(List1.List(1)
如果结果不匹配，请 联系老师 获取答案
更多“执行x＝InputBox（"请输入x的值")时，在弹出的对话…”相关的问题
执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1中选中一个列表项(数据为456)，使结果为123456 的语句是（）。
A.y=x$+List1．List(0)
B.y=x$+List1．List(1)
C.y=Val(x$)+Val(List1．List(0))
D.y=Val(x$)＆Val(List1．List(1))
执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1选中1个列表项(数据为456)，使y的值是123456的语句是（）。
A．y=x$+List1.List(O)
B．y=x$+List1.List(1)
C．y=Val(x$)+Val(List1.List(0))
D．y=Val(x$)&Val(List1.List(1))
A．19
B．21
C．42
D．19
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A) b=InputBox("请输入B的值") b=Val(B) x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为______。
A．2
B．3
C．14
D．15
在窗体上添加一个命令按纽，名为COMgAND1，事件过程如下： Private Sub CQmmand1_Click() x =0 Do Until c = -1 a=InputBox(“请输入a的值”) a=Val (A) b=InputBox(“请输入b的值”) b=Val(B) c=InputBox(“请输入c的值”) c=Val (C) a=a+b+c Loop Print a End Sub程序运行后，单击命令按纽，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是______ 。
A．2
B．3
C．4
D．5
（32 ）在窗体中有一个文本框 text1, 编写事件代码如下：
Private sub form_click()
X=val(inputbox(“ 输入 x 的值 ” ))
Y=1
If x＜＞ then y=2
Text1.value=y
End sub
打开窗体运行后。在输入框中输入整数 12 ，文本框 text1 中输出的结果是
A ） 1
B ） 2
C ） 3
D ） 4
如下事件过程：
Function Feed（x）
If x ＜ 10 Then
Feed=x
Else
Feed=10 + x
End If
End Function
Private Sub Command1_Click（）
x=Val（InputBox（"", , 0） ）
pay=Feed（x）
Print pay
End Sub
运行时在输入框内输入变量x的值为15，输出结果为（）。
A．0
B．15
C．25
D．30
设有语句： X=InputBox("输入数值"，"0"，"示例") 程序运行后，如果从键盘上输人数值10并按回车键，则下列叙述中正确的是（）。
A.变量x的值是数值10
B.在InputBox对话框标题栏中显示的是“示例”
C.0是默认值
D.变量x的值是字符串“10”
设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_ Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A．Private Sub Command1_ Click() Dim x As Books Open "C：\Person. txt" for Output As #1 x. Name=InputBox(“输入姓名”) x. TelNum=InPutBox(“输入电话号码”) Write #1，x.Name，x.TelNum Close #1 End Sub
B．Private Sub Command1_ Click() Dim x As Books Open "c：\Person. txt" for Input As #1 x.Name=InputBox(“输入姓名”) x. TelNum=InputBox(“输入电话号码”) Print #1，x. Name，x. TelNum Close #1End Sub
C．Private Sub Command1_ Click() Dim x As Books Open "c：\Person. txt" for Output As #1 x. Name=InputBox(“输入姓名”) x. TelNum= InputBox(“输入电话号码”) Write #1，x Close #1End Sub
D．Private Sub Command1_ Click() Dim x As Books Open "c：\Person. txt" for Input As #1 x. Name= InputBox(“输入姓名”) x.TelNum=InputBox(“输入电话号码”) Print #1，Name，TeINum Close #1End Sub
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Dim SW As Boolean
Function func（X As Integer） As Integer
If X ＜ 20 Then
Y = X
Else
Y = 20 + X
End If
func = Y
End Function
Private Sub Form_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）
SW = False
End Sub
Private Sub Form_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single）
SW = True
End Sub
Private Sub Command1_Click（）
Dim intNum As Integer
intNum = InputBox（""）
If SW Then
Print func（intNum）
End If
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（）。
A．输出0
B．输出25
C．输出45
D．无任何输出
