第1个回答 2011-04-17
Sub test()
Dim arr(1 To 3) As Integer
Dim i As Integer
Dim a As Integer, b As Integer, c As Integer
Dim x As String
For i = 1 To 3
arr(i) = InputBox("请输入第 " & i & " 个值:")
Next i
a = Application.WorksheetFunction.Small(arr, 1)
b = Application.WorksheetFunction.Small(arr, 2)
c = Application.WorksheetFunction.Small(arr, 3)
x = "a=" & a & vbCrLf & "b=" & b & vbCrLf & "c=" & c
MsgBox x
End Sub本回答被提问者采纳