Private Sub Command1_Click()
a: Text1 = Trim(InputBox("請輸入姓名", "姓名"))
If Text1 = "" Then
MsgBox "未輸入完整,請重新輸入"
GoTo a
End If
b: Text2 = Trim(InputBox("請輸入班級", "班級"))
If Text2 = "" Then
MsgBox "未輸入完整,請重新輸入"
GoTo b
End If
c: Text3 = Trim(InputBox("請輸入年級", "年級"))
If Text3 = "" Then
MsgBox "未輸入完整,請重新輸入"
GoTo c
End If
d: Text4 = Trim(InputBox("請輸入科目1分數(shù)(0-100)", "科目1"))
If IsNumeric(Text4) And Text4 <> "" Then
If Text4 < 0 Or Text4 > 100 Then
MsgBox "分數(shù)不正確,請重新輸入"
GoTo d
End If
Else
MsgBox "請輸入分數(shù)!"
GoTo d
End If
e: Text5 = Trim(InputBox("請輸入科目2分數(shù)(0-100)", "科目2"))
If IsNumeric(Text5) And Text5 <> "" Then
If Text4 < 0 Or Text4 > 100 Then
MsgBox "分數(shù)不正確,請重新輸入"
GoTo e
End If
Else
MsgBox "請輸入分數(shù)!"
GoTo e
End If
f: Text6 = Trim(InputBox("請輸入科目3分數(shù)(0-100)", "科目3"))
If IsNumeric(Text6) And Text6 <> "" Then
If Text6 < 0 Or Text6 > 100 Then
MsgBox "分數(shù)不正確,請重新輸入"
GoTo f
End If
Else
MsgBox "請輸入分數(shù)!"
GoTo f
End I f

Text7 = Val(Text4) + Val(Text5) + Val(Text6) '總分
Text8 = Val(Text7) / 3 '平均分
End Sub

功能是彈出一個對話框，在其中顯示提示，等待用戶輸入文字并按下按鈕，然后返回用戶輸入的文字
例：filename = InputBox("Please enter a filename to save:", "Files saved")
意思為，對話框名稱"Please enter a filename to save:"對話框是你輸入的文件名，確定按鈕為"Files saved"。

inputbox函數(shù)
使用方法：
語法：InputBox ( Prompt [, Title] [, Default] [, XPos, YPos] [, Helpfile, Context ] )
參數(shù)：
1）Prompt： 必需的。作為對話框消息出現(xiàn)的字符串表達式。Prompt的最大長度大約為1024個字符，由所用字符的寬度決定。如果Prompt的內容超過一行，則可以在每一行之間用回車符(Chr(13))、換行符(Chr(10))或是回車與換行符的組合(Chr(13) & Chr(10)，即vbCrLf)將各行分隔開來。
2）Title：可選的。顯示對話框標題欄中的字符串表達式。如果省略，則把應用程序名放入標題欄中。
3）Default：可選的。顯示文本框中的字符串表達式，在用戶輸入前作為缺省值。如果省略，則文本框為空。
4）XPos：可選的。數(shù)值表達式，與YPos一起出現(xiàn)，指定對話框的左邊與屏幕左邊的水平距離。如果省略，則對話框會在水平方向居中。
5）YPos：可選的。數(shù)值表達式，與XPos一起出現(xiàn)，指定對話框的頂端與屏幕頂端的距離。如果省略，則對話框被放置在屏幕垂直方向距底端大約三分之一的位置。
6）Helpfile：可選的。字符串表達式，識別用來向對話框提供上下文相關幫助的幫助文件。如果提供了Helpfile，也必須提供Context。
7）Context：可選的。數(shù)值表達式，由幫助文件的作者指定給適當?shù)膸椭黝}的幫助上下文編號。如果提供了Context，則也必須提供Helpfile。
說明
如果同時提供了Helpfile與Context，用戶可以按F1來查看與Context相應的幫助主題。某些主應用程序(支持使用Visual Basic for Applications的應用程序)，例如Microsoft Excel，會在對話框中自動添加一個幫助按鈕。如果用戶單擊確定或按下回車，則InputBox函數(shù)返回文本框中的內容。如果用戶單擊取消，則此函數(shù)返回一個長度為零的字符串("")。
在VB中，如果沒有同時提供XPos和YPos，不會提示語法錯誤，但單獨出現(xiàn)的XPos或YPos將被忽略，相當于省略了這兩個參數(shù)。但在VBS中，單獨出現(xiàn)的XPos或YPos會生效，但另一個沒有確定的參數(shù)將使用默認值。
inputbox函數(shù)簡介
nputBox是Visual Basic和VBS中的函數(shù)，功能是彈出一個對話框，在其中顯示提示，等待用戶輸入文字并按下按鈕，然后返回用戶輸入的文字。右圖就是InputBox函數(shù)的效果，其中展示了InputBox函數(shù)的三個重要參數(shù)Prompt、Title和Default的位置。該函數(shù)與MsgBox函數(shù)類似，區(qū)別就是InputBox函數(shù)用于簡單地接受用戶輸入的一些文本。