急！！！如何使用inputbox 函数和magbox函数

来源：百度知道 编辑：UC知道 时间：2024/09/28 09:21:32
在vb编程里面，如何使用inputbox 和magbox,最好能给个实例
这些语法我也知道，关键是我想知道如何在vb中使用，比如如何在vb中出现inputbox所设置的对话框？最好能给我一个在vb中的完整的用到这两个函数的实例，谢谢

这是一个示例,要求窗体中有一个按钮,两个标签,名称为默认的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 "你取消了本次操作."