VBA编程,输入五个数,输出最大值

问题描述:

VBA编程,输入五个数,输出最大值
创建一个名为“编程”的标准模块,在其中创建一个名为Test()的过程,该过程的功能是输入5个整数,求出其中的最大数.(提示,可使用数组、FOR循环结构)
1个回答 分类:综合 2014-10-10

问题解答:

我来补答
Sub test()
Dim Num As Long, Arr(1 To 5)
For n = 1 To UBound(Arr)
Num = Application.InputBox("请输入第:" & n & "个数字:", "数字输入窗口", Type:=1)
If Num = False Then Exit Sub
Arr(n) = Num
Next
For i = 1 To UBound(Arr) - 1
If Arr(i) < Arr(i + 1) Then
JG = Arr(i + 1)
Else
JG = Arr(i)
End If
Next
MsgBox "5个数中最大数是:" & JG
End Su
 
 
展开全文阅读
剩余:2000