作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/03 13:12:56
VBA编程,输入五个数,输出最大值
创建一个名为“编程”的标准模块,在其中创建一个名为Test()的过程,该过程的功能是输入5个整数,求出其中的最大数.(提示,可使用数组、FOR循环结构)
VBA编程,输入五个数,输出最大值
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