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

Question

（1）编写适当的程序代码，当单击“输入”时，弹出一个对话框提示输入数值，用户输入一个数值，单击“确定”按钮后，该数值在文本框中显示。程序运行界面如图10所示。

注意：

存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-010.vbp，窗体文件名为vbxk1-10.frm，文件夹名为vbxk1-10。

Answer 1

新建窗体Form1，放置一个按钮Command1和一个文本框Text1
代码编写如下：

Private Sub Command1_Click()
Text1.Text = InputBox("请输入数值")
End Sub

Answer 2

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

Answer 3

Private Sub Cmd1_Click()
Dim s As String
s = InputBox("请输入数值", "输入")
If s <> "" Then Text1 = s
End Sub

Answer 4

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim s As Double
s = Val(InputBox("请输入数据！"))

If Button = 1 Then Text1 = Text1 & " " & s

End Sub

Answer 5

Hi 我，传给你！