Question

vb.net inputbox与msgbox的使用

已知：a=1.5米/秒，vt（末速度）=v0+at，s（距离）=v0t+1/2at^2
用InputBox函数输入初速度V0和时间t，用MsgBox输出计算结果。
怎么能在使用inputbox同时输入初速度和时间并且在接下来的计算中同时被引用呢？
这是我现在的代码
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim info1$, info$, title$, username$
info1 = "请输入初速度(m/s)"
info = info1
title = "数据输入框"
username = InputBox(info, title, "")
TextBox1.Text = username

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim info4$, info$, title$, username$
info4 = "请输入时间(s)"
info = info4
title = "数据输入框"
username = InputBox(info, title, "")
TextBox2.Text = username
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim info2$, info5$, answer$
info2 = Str(Val(TextBox1.Text) + 1.5 * (Val(TextBox2.Text))) & "米/秒" & vbCrLf
info2 = Str((Val(TextBox1.Text) * (TextBox2.Text) + 0.75 * ((Val(TextBox2.Text) ^ 2)))) & "米"
info5 = "结果输出"
answer = MsgBox(info2, 48, info5)

End Sub
End Class
因为上面提出的问题我使用了两次inputbox，但感觉这样很多余，最后msgbox的输出也只是显示距离S，不显示Vt，求教如何改进，新手上路，请多多关照，在线等！
@syx54

Answer 1

虽然下面代码也用了两个inputbox函数，但是比你的应该也要简单点，仅供参考
Const a = 1.5
Dim v0 As String
Dim vt As String
Dim t As Long
Dim s As Double

Private Sub Form_Load()
v0 = InputBox("请输入初速度(m/s)", "数据输入框")
Text1.Text = v0
t = InputBox("请输入时间(s)", "数据输入框")
Text2.Text = t
vt = v0 + a * t
s = v0 * t + (1 / 2) * a * t ^ 2
End Sub

Private Sub Command1_Click()
MsgBox "距离是" & s
End Sub

Answer 2

info1=inputbox("请输入初速度和时间，用','隔开，例：30,5")
dim fenli() as string
fenli=split(info1,",")

这样fenli(0) 就是初速度 fenli(1) 就是时间

追问

不知道为什么fenli这个方法不能正常使用，fenli（0）和fenli（1）不能运行，可能您给我写的过程有点简略，我理解您的思路，但是没掌握这种方法，还请以指教，麻烦您了！

Answer 3

q1.
msgbox就是用来显示message的，本来就不具备输入能力。使用inputbox吧。q2/q3.
最上层？置顶？什么意思，在什么条件、什么操作情况下？msgbox/inputbox出现的时候，都会自动出现在最上面，等待使用者操作。
参考资料