题目内容
（请给出正确答案）
执行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))
如果结果不匹配，请 联系老师 获取答案
更多“执行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))
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)
设在工程中有一个标准模块，其中定义了如下记录类型：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．无任何输出
A．19
B．21
C．42
D．19
下面程序运行时，若输入395，则输出结果是
Prirate sub commandl_Click()
Dim x％
x=InputBox(“请输入一个3位整数”)
Print x Mod 10，x＼100，(x Mod 100)＼10
End Sub
A．3 9 5
B．5 3 9
C．5 9 3
D．3 5 9
在窗体上画一个命令按钮，然后编写如下事件过程： 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
设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是
A．Private Sub Command1_Click() Dim B As Books Open”c：\PerSon．txt"For Output As #1B.Name=InpuB。x(“输入姓名”)B.TelNuln=InputBox(“输入电话号码”) Wdte#1．B.Name，B.TelNum Close#1 End Sub
B．PIivate Sub Command1_C1ick() Dim B As BOOks OPen”c：\Person．txt"FOr lnput As #1 B.Name：InputBox(“输人姓名”) B.TelNum=InputBox(“输入电话号码”) Print#1，B.Name，B.TelNum C1ose#1 End Sub
C．Private Sub Command1_Chck() Dim B As Books Open”c：\Person．ht”For Output As#1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write#1，B Close#1 End Sub
D．Pnvate Sub Command1_Click() Open”c：\Person.txt"For lnput As #1 Name=InputBox(“输入姓名”) TalNum=InputBox(“输入电话号码”) Print，Name，TelNum Close#1 End Sub
Private Sub Form_Click()
Dim x，y As Single
Dim z As Integer
x＝InputBox("Enter a score")
Do while【 】
y＝y＋x
z＝z＋1
x＝InputBox("Enter a score")
Loop
If z＝0 Then
z＝1
End If
y＝y/z
MsgoBox y
End Sub
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click（）
x = InputBox（"请输入一个整数"）
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（）。
A．123
B．456
C．479
D．123456
