更多"下列程序运行时，若输入123，输入对话框的提示信息是______。 "的相关试题:
[填空题]下列程序运行时，若输入123，输入对话框的提示信息是______。
Private Sub Command1_Click（ ）
X1=InputBox("请输入")
MsgBox(X1)
End Sub
[单项选择]若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。
Private Sub Click_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "VB Program"
End Sub
A. 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B. 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C. 用鼠标右键单击名称为“MouseDown”的控件时，执行此过程
D. 用鼠标左键或右键单击名称为“Click”的控件时，执行此过程
[判断题]对话框不关闭不能进行应用程序主窗口操作的对话框是模式对话框
A. 正确
B. 错误
[单项选择]下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click（ ）
Dim x (10)As Integer，y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
[单项选择]下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click（ ）
Dimx(10)As Integer,y(5) As Integer
ForI=1 to 10
x(i)=10-I+1
NextI
ForI=1 to 5
y(i)cx(2*-1)+x(2*I)
NextI
ForI=1 to 5
Printy(i)；
NextI
End Sub
A. 3 7 11 45 19
B. 17 13 9 5 1
C. 1 3 5 7 9
D. 不确定的值
[简答题](4)编写简单的命令程序，显示对话框，对话框内容为“你好!”，对话框上只有一个“确定”按钮。将该程序保存在“exl．prg”中。
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]有如下程序，运行时从键盘输入3，输出结果是 ______。
Private Sub Command1_Click（ ）
a=InputBox("请输入一个数字：")
Select Case a
Case Is＞2
b=a+1
Case Is＞3
b=a+2
Case Is＞4
b=a＋3
Case Is＞5
b＝a＋4
End Select
Print a ＋ b
End Sub
A. 8
B. 7
C. 6 p．9
[单项选择]下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel 键退出对话框，则（ ）。
Private Sub Command1_Click( )
CommonDialogl．CancelError=True
CommonDialogl．Flags=cdlCFEffects Or cdlDFBotb
CommonDialogl．Action=4
CommonDialogl．ShowFont
Text1.Font.Name=CommonDialogl．FontName
Text1．Font．Size=CommonDialogl．FontSize
Text1．Font．Bold=CommonDialog1．FontBold
Text1．Font．Italic=CommonDialog1．FontItalic
Text1．Font．Underline=CommonDialog1．FontUnderline
Text1．FontStrikethru=CommonDialog1．FontStrikethru
Text1．ForeColor=CommonDialog1．Color
End Sub
A. Text1的字体不发生变化
B. Text1的字体发生变化
C. Text1的字体和颜色发生变化
D. 程序出错!
[填空题]下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。
请填空。
Sub PrintOutO
Dim aAs Integer
a=MsgBox("输出结果"，vblnformation+vbYesNo，"提示：")
If a=______Then
Print "Myresult"
EndIf
EndSub
[填空题]下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。
Sub PrintOut（ ）
Dim a As Integer
a=MsgBox("输出结果"，vblnformation+vbYesNo，"提示：")
If a=______Then
Print "Myresult"
End If
End Sub
