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

Question

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

注意：

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

Answer 1

Hi 我，传给你！

Answer 2

Private Sub Com1_Click()
Text1 = InputBox("")
End Sub

Answer 3

第二题:
Private Sub c1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Dim step As Integer
Timer1.Interval = 10
If Text1.Left >= Form1.Left Then
For i = 1 To 3000
Text1.Left = Text1.Left - Text1.Left / 3000
Next i
End If
End Sub

第三题:
Private Sub c1_Click()
c2.Enabled = True
End Sub

Private Sub Form_Load()
c1.Enabled = True
c2.Enabled = False
End Sub

最后一题:
Private Sub cmd1_Click()
Dim a As String
a = MsgBox("是否输入", vbQuestion + vbYesNo, "提示")
If a = vbYes Then
Text1.Locked = False
Else
Text1.Locked = True
End If
End Sub
另外,团IDC网上有许多产品团购,便宜有口碑