Question

利用Inputbox( )函数依次输入三个数分别赋值给X、Y、Z，并按从小到大的次序在图形框中显示排序结果。

请高人指点 谢谢
程序运行界面如图

Answer 1

直接用
a=inputbox(） ’()内是格式，如（”请输入第一个数字”，”输入框”，1）
接下来同样的b，c就行了。

Answer 2

Private Sub Text1_Click()
Dim i As Integer
Dim t1 As String
Dim t2 As String

Text1.Text = ""
t1 = "一二三"

For i = 1 To 3
Text1.Text = Text1.Text & "," & InputBox("请输入第" & Mid(t1, i, 1) & "个数:", "输入框:")
Next
End Sub