要求用inputbox函数输入某人的身高，vb

vb inputbox 函数怎么用？？？~

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 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 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 100 Then
MsgBox "分数不正确,请重新输入"
GoTo f
End If
Else
MsgBox "请输入分数!"
GoTo f
End If


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

Dim r As Single
Const pi = 3.1415926
Private Sub Command1_Click()
Dim s As Single
Dim v As Single
s = 4 * pi * r * r
Text1.Text = "球的表面积=" + CStr(s) + vbCrLf
v = 4 * pi * r * r * r / 3
Text1.Text = Text1.Text + "球的体积=" + CStr(v) + vbCrLf

End Sub

Private Sub Form_Load()
r = InputBox("请输入球的半径：", "数据输入框", 0)
End Sub

InputBox 函数可以被这样调用，他是一个获取字符串的函数：
InputBox(内容)
因为他是个函数，最后的值，我们需要赋在一个 变量、支持字符串的控件属性 内
如果 a 是一个string变量，那么直接赋给 a 即可，例如这样：
a = (InputBox("请您输入一个正确的身高"))
一般来说，你肯定需要数据吧

如果你需要输入的是一个数据，请用 val 进行转换
Val可以这样用：
Val(需要转换成数值的字符串)
所以，如果下面语句，a 是一个double这类的 数据变量，可以这样赋值：
a = Val(InputBox("请您输入一个正确的身高"))
这样，就能实现这一切。

然后我说一下， @1090704959 的语句正确，他是我说到的最后一个情况。
最快回答没有说清楚 a 是什么，我上面说到了，假如此 a 为 字符串类型或者可以赋字符串的控件属性，才能这么使用。
网海1书生 的语句， sg 是一个 数值类型，我上面还是提到了，就不在说明。

绝对没有复制。
转载时，请注意带上这一行字。 百度：149385535 解答
------------------------------------------------
简明的说明下这个例子：
Dim a as double
a = Val(InputBox("请您输入一个正确的身高"))
然后，可以调用 a。

sg = Val(InputBox("请输入身高"))

Dim H as float
H = Val(InputBox("请输入身高"))
这样就可以了

a=inputbox("请输入身高")

---

武都县17660668226： 怎么用InputBox函数输入班级,姓名,学号(要有提示信息),MsgBox过程输出 - ？
涂钓因培： dim a as string dim b as string dim c as string a = inputbox(＂请出入你的班级＂)b = inputbox(＂请出入你的学号＂) c = inputbox(＂请出入你的姓名＂)

武都县17660668226： 单击命令按钮command 1,用inputbox函数输入50名学生的学号,姓名和英语成绩,保存在 - ？
涂钓因培： Private Sub Command1_Click() Open ＂c:\cj.txt＂ For Output As #1 For i = 1 To 50 Print #1, InputBox(＂请输入第＂ & i & ＂个学生的学号＂); ＂, ＂; Print #1, InputBox(＂请输入第＂ & i & ＂个学生的姓名＂); ＂, ＂; Print #1, InputBox(＂请输入第＂ & i & ＂个学生的英语成绩＂) Next Close #1 MsgBox ＂全部输入完毕,已保存到c:\cj.txt＂ End Sub

武都县17660668226： vb怎么利用inputbox函数,按姓名查询信息? - ？
涂钓因培： '首先定义一个全局变量 public TheName as string '在Form2中,比如单机一个按钮: Private Sub Command1_Click() TheName = InputBox(, ＂＂) End Sub '这是TheName变量被赋值了. 你在Form1里面直接引用就可以了.

武都县17660668226： 用Input Box函数输入班级,学号姓名,然后将输入的数据在窗体上输出 - ？
涂钓因培： 添加一个command1Private Sub Command1_Click() Dim bj, xm, xh bj = InputBox(＂输入你的班级＂, ＂输入＂, ＂＂) xm = InputBox(＂输入你的姓名＂, ＂输入＂, ＂＂) xh = InputBox(＂输入你的学号＂, ＂输入＂, ＂＂) Print ＂你的班级:＂ + bj Print ＂你的学号:＂ + xh Print ＂你的姓名:＂ + xm End Sub

武都县17660668226： 通过inputbox函数生成输入框并生成个人信息,然后将本人信息在窗体上显示出来 - ？
涂钓因培： InputBox 函数 在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 String. 语法 InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) InputBox 函数的语法具有以下几个命名参数: 部分 描述 Prompt ...

武都县17660668226： vb题,急用 vb题,急用单击命令按钮command1,用inputbox()函数录入50名学生 - ？
涂钓因培： Public Sub SaveTXT(TextStr As String, paths As String) If Dir(paths) = ＂＂ Then MsgBox ＂ERROR＂: Exit Sub If paths = ＂＂ Then Exit Sub Open paths For Append As #1 Print #1, TextStr Close End Sub Private Sub Command1() Dim i as ...

武都县17660668226： 5、下列可采用的最佳函数名为: - 上学吧普法考试？
涂钓因培： 如果用户单击确定或按下回车,则InputBox函数返回文本框中的内容

武都县17660668226： 通过inputbox函数输入某班27个学生vb课程考试的成绩,编程求出该班这门课程的平均 - ？
涂钓因培： Private Sub Command1_Click() Dim i As Integer For i = 1 To 27 n = Val(InputBox(＂请第＂ & i & ＂位同学输入vb课程考试的成绩＂)) s = s + n / 27 Next Print ＂平均成绩;＂ & s; End Sub 我也在学VB,试试写了一个,你看看对吗..希望对你有帮助

武都县17660668226： inputbox函数 - ？
涂钓因培： Text1.Text = val(b) + val(a) -------------------------------------- InputBox返回的是文本,所以要用val 将它转换成数值