以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。
Private Sub Command1_Click()
Dim a As Integer,b As String
a=InputBox("请输入一个正数")
If a > 0 Then
______
Else
b=MsgBox("error",0)
End If
End Sub
第1题:
本题的功能是展示4种不同的对话框。窗口中有4个按钮:“消息”、“输入”、“确定”和“选择”,单击任意-个按钮。就能弹出,个对应的对话框。其中,消息对话框只有-个提示信息和-个“确定”按钮,输入对话框有-个供输人的文本框及“确定”和“撤销”两个按钮;确定对话框中有-个提示信息和三个按钮“是”、“否”和“撤销”;而选择对话框中有-个提示信息和两个按钮“确定”和“取消”。
第2题:
第3题:
模拟值输入连接的设置方法是:在“动画连接”对话框中单击“模拟值输入”按钮,弹出对话框。
第4题:
还原备份文件的操作错误的是( )。
A.单击“下一步”按钮,屏幕弹出对话框,在其中查看和勾选要还原的项目
B.单击“下一步”按钮,屏幕弹出”备份”对话框,单击此按钮
C.单击“下一步”按钮,按照提示进行操作
D.双击备份文件的图标,打开”备份或还原向导”对话框
第5题:
3、模拟值输入连接的设置方法是:在“动画连接”对话框中单击“模拟值输入”按钮,弹出对话框。