填空题

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