Question

vb编程：有一个“输入”按钮，点击后显示inputbox对话框，用户可输入正整数N

Answer 1

Private Sub Command1_Click()
Dim a
a = InputBox("请输入： ", "输入窗口 ")
If IsNumeric(a) And InStr(1, a, ".", vbTextCompare) = 0 And a > 0 Then
MsgBox "你输入的正确 ", vbOKOnly, "程序提示 "
Else
MsgBox "你输入的不正确 ", vbOKOnly, "程序提示 "
End If
End Sub