以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。Private Sub Command1_Click()Dim a As Integer,b As Stringa=InputBox("请输入一个正数")If a > 0 Then______Elseb=MsgBox("error",0)End IfEnd Sub

以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"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


相关考题:

单击表单中的命令按钮,要求弹出一个“您好!”的消息对话框,应该在命令按钮的 Click事件中编写代码:______=("您好!")

在窗体上有一个命令按钮和一个文本框。编写如下事件过程:Private Sub Command1_Click()a=InputBox("请输入一个整数")Text1.Text=aIf a > 0 ThenIf a Mod 3 = 0 ThenMsgBox "True"ElseMsgBox "error"End IfEnd IfEnd Sub程序运行后,单击命令按钮,在输入对话框里输入12,则弹出的提示内容是______。

在Word编辑状态下,若要实现如图6-4所示的排版格式,其大致的操作步骤是(47)。A.选中相关文字“中”,选择[格式]→[字体]命令,在弹出的对话框中的[效果]区域中选择[上标]复选框,单击[确定]按钮B.将光标置于此段中,选择[格式]→[首字下沉]命令,在弹出的对话框中单击[悬挂]按钮,在[下沉行数]微调框中填入“2”,单击[确定]按钮C.将光标置于此段中,选择[格式]→[首字下沉]命令,在弹出的对话框中单击[下沉]按钮,在[下沉行数]微调框中填入“2”,单击[确定]按钮D.将光标置于此段中,选择[格式]→[文字方向]命令,在弹出的对话框中单击[悬挂]按钮,在[行数]微调框中填入“2”,单击[确定]按钮

还原备份文件的操作错误的是( )。A.单击“下一步”按钮,按照提示进行操作B.单击“下一步”按钮,屏幕弹出对话框,在其中查看和勾选要还原的项目C.单击“下一步”按钮,屏幕弹出“备份”对话框,单击此按钮D.双击备份文件的图标,打开“备份或还原向导”对话框

本题的功能是展示4种不同的对话框。窗口中有4个按钮:“消息”、“输入”、“确定”和“选择”,单击任意-个按钮。就能弹出,个对应的对话框。其中,消息对话框只有-个提示信息和-个“确定”按钮,输入对话框有-个供输人的文本框及“确定”和“撤销”两个按钮;确定对话框中有-个提示信息和三个按钮“是”、“否”和“撤销”;而选择对话框中有-个提示信息和两个按钮“确定”和“取消”。

还原备份文件的操作错误的是( )。A.单击“下一步”按钮,屏幕弹出对话框,在其中查看和勾选要还原的项目B.单击“下一步”按钮,屏幕弹出”备份”对话框,单击此按钮C.单击“下一步”按钮,按照提示进行操作D.双击备份文件的图标,打开”备份或还原向导”对话框

Excel中,可以用于切换到打印预览窗口的方法有( )。A.单击“文件”菜单下的“打印预览”命令B.在“常用”工具栏中单击“打印预览”按钮C.单击“文件”菜单下的“打印”命令,从弹出的“打印”对话框中单击“预览”按钮D.单击“文件”菜单下的“页面设置”命令,从弹出的“页面设置”对话框中单击“打印预览”按钮

3、模拟值输入连接的设置方法是:在“动画连接”对话框中单击“模拟值输入”按钮,弹出对话框。

模拟值输入连接的设置方法是:在“动画连接”对话框中单击“模拟值输入”按钮,弹出对话框。