楼主您好!
代码如下:
Option Explicit
Private Sub Form_Load()
Dim Number(3) As Double
Dim i As Integer
Dim StrMsg As String
StrMsg = StrMsg & "您输入的三个数分别为:" & vbCrLf
For i = 1 To 3
Number(i) = Val(InputBox("请输入第3个数!这是第" & CStr(i) & "个数", "提示窗口"))
StrMsg = StrMsg & "第" & CStr(i) & "个数为:" & CStr(Number(i)) & vbCrLf
Next i
For i = 1 To 2
If Number(i) > Number(i + 1) Then
Max Number(i), Number(i + 1)
End If
Next i
For i = 1 To 2
If Number(i) > Number(i + 1) Then
Max Number(i), Number(i + 1)
End If
Next i
StrMsg = StrMsg & "排序后的三个数分别为:" & vbCrLf
For i = 1 To 3
StrMsg = StrMsg & "第" & CStr(i) & "个数为:" & CStr(Number(i)) & vbCrLf
Next i
StrMsg = StrMsg & "谢谢使用!" & vbCrLf & " 软件作者:百度网友1372355088"
MsgBox StrMsg, 64 + vbOKCancel + vbDefaultButton1, "排序结果"
End Sub
Private Function Max(X As Double, Y As Double) As Double
Dim Z As Double
If X > Y Then
Z = X
X = Y
Y = Z
End If
End Function