VBA求最小数用msgbox输出怎么写代码

该过程任务：通过键盘输入3个整数，求出其中最小数，用msgbox函数输出结果问这段代码怎么写

2026年09月21日 12:39

有2个网友回答

网友（1）：

举一个最简单的例子：
Sub test()
Dim X1 As Integer, X2 As Integer, X3 As Integer
X1 = InputBox("请输入第1个正整数：", "输入")
X2 = InputBox("请输入第2个正整数：", "输入")
X3 = InputBox("请输入第3个正整数：", "输入")
MsgBox "三个数中最小值为：" & Application.WorksheetFunction.Min(X1, X2, X3), vbInformation, "结果"
End Sub
其中没有过多的考虑输入限制、判断等，仅供参考。

网友（2）：

代码如下:

Sub aa()
    Dim arr(1 To 3), i%
    For i = 1 To 3
        arr(i) = CDbl(InputBox("请输入如数字"))
    Next
    MsgBox "最小的数是：" & Application.Min(arr)
End Sub