在窗体Form1上画一个文本框，名称为Text1，内空。再画一个命令按钮，名称为Cmd1，标题为“输入”。

放置一个按钮，名为cmd1，caption = "输入" 放置一个文本框，名为inputTxt,text=" " 写入以下代码 '声明 Dim input as Integer Private Sub cmd1_Click() input=Inputbox("请输入一个整数" & chr(13)) If IsNumeric(input) True Then msgbox "只能输入整数！" E