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

admin2013-04-11  29

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

选项

答案MsgBox a

解析
转载请注明原文地址:https://kaotiyun.com/show/bdhp777K
0

最新回复(0)