第1个回答 2011-09-05
这是一个示例,要求窗体中有一个按钮,两个标签,名称为默认的command1和label1,label2
Dim myname As String
Dim myage As Integer
Private Sub Command1_Click()
On Error Resume Next
myname = InputBox("请输入你的姓名", "输入提示1", "王五")
myage = InputBox("请输入你的年龄", "输入提示2", "20")
If Not (IsNumeric(myage)) Then
MsgBox "你输入的年龄有错误!", vbOKOnly, "输入提示3"
myage = InputBox("请输入你的年龄", "输入提示2", "20")
End If
notestr = "您输入的姓名是:" & myname & ",年龄是:" & myage & vbCrLf & "以上输入正确吗?"
i = MsgBox(notestr, vbYesNoCancel + vbInformation, "输入提示4")
'i=6用户点击了"是"
If i = 6 Then
Label1.Caption = Label1.Caption & myname
Label2.Caption = Label2.Caption & myage
End If
'i=7用户点击了"否"
If i = 7 Then Command1_Click
'i=0 用户点击了"取消"
If i = 2 Then
msgbox "你取消了本次操作." , vbOKOnly, "输入提示5"
end if
End Sub
Private Sub Form_Load()
Command1.Caption = "输入"
Label1.Caption = "姓名:"
Label2.Caption = "年龄:"
End Sub