Question

判断10个数中最大数的access语言

判断10个数中最大数的access语言

Answer 1

Sub test()
Dim Num As Long, Arr(1 To 10)
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 "10数中最大数是:" & JG
End Sub