inputbox函数到底怎么用啊？

Question

inputbox函数到底怎么用啊？

Answer 1

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分数(0-100)", "科目1"))
If IsNumeric(Text4) And Text4 <> "" Then
If Text4 < 0 Or Text4 > 100 Then
MsgBox "分数不正确,请重新输入"
GoTo d
End If
Else
MsgBox "请输入分数!"
GoTo d
End If
e: Text5 = Trim(InputBox("请输入科目2分数(0-100)", "科目2"))
If IsNumeric(Text5) And Text5 <> "" Then
If Text4 < 0 Or Text4 > 100 Then
MsgBox "分数不正确,请重新输入"
GoTo e
End If
Else
MsgBox "请输入分数!"
GoTo e
End If
f: Text6 = Trim(InputBox("请输入科目3分数(0-100)", "科目3"))
If IsNumeric(Text6) And Text6 <> "" Then
If Text6 < 0 Or Text6 > 100 Then
MsgBox "分数不正确,请重新输入"
GoTo f
End If
Else
MsgBox "请输入分数!"
GoTo f
End I f

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

Answer 2

功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字
例：filename = InputBox("Please enter a filename to save:", "Files saved")
意思为，对话框名称"Please enter a filename to save:"对话框是你输入的文件名，确定按钮为"Files saved"。

Answer 3

inputbox函数
使用方法：
语法：InputBox ( Prompt [, Title] [, Default] [, XPos, YPos] [, Helpfile, Context ] )
参数：
1）Prompt： 必需的。作为对话框消息出现的字符串表达式。Prompt的最大长度大约为1024个字符，由所用字符的宽度决定。如果Prompt的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13) & Chr(10)，即vbCrLf)将各行分隔开来。
2）Title：可选的。显示对话框标题栏中的字符串表达式。如果省略，则把应用程序名放入标题栏中。
3）Default：可选的。显示文本框中的字符串表达式，在用户输入前作为缺省值。如果省略，则文本框为空。
4）XPos：可选的。数值表达式，与YPos一起出现，指定对话框的左边与屏幕左边的水平距离。如果省略，则对话框会在水平方向居中。
5）YPos：可选的。数值表达式，与XPos一起出现，指定对话框的顶端与屏幕顶端的距离。如果省略，则对话框被放置在屏幕垂直方向距底端大约三分之一的位置。
6）Helpfile：可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了Helpfile，也必须提供Context。
7）Context：可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了Context，则也必须提供Helpfile。
说明
如果同时提供了Helpfile与Context，用户可以按F1来查看与Context相应的帮助主题。某些主应用程序(支持使用Visual Basic for Applications的应用程序)，例如Microsoft Excel，会在对话框中自动添加一个帮助按钮。如果用户单击确定或按下回车，则InputBox函数返回文本框中的内容。如果用户单击取消，则此函数返回一个长度为零的字符串("")。
在VB中，如果没有同时提供XPos和YPos，不会提示语法错误，但单独出现的XPos或YPos将被忽略，相当于省略了这两个参数。但在VBS中，单独出现的XPos或YPos会生效，但另一个没有确定的参数将使用默认值。
inputbox函数简介
nputBox是Visual Basic和VBS中的函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。右图就是InputBox函数的效果，其中展示了InputBox函数的三个重要参数Prompt、Title和Default的位置。该函数与MsgBox函数类似，区别就是InputBox函数用于简单地接受用户输入的一些文本。