VB编程:用Array()函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。谢谢

2025-04-02 12:38:04
推荐回答(1个)
回答1:

Private Sub Command1_Click()
Dim a()
a = Array(8, 11, 74, 22, 9, 56, 71, 35)
Max = a(0)
For i = 1 To 7
If Max < a(i) Then Max = a(i)
Next
MsgBox "最大值=" & Max
End Sub