[已解决]vbA数组随机10个两位数整数, 并找出最大数,指出它在数组中的位置

laoau138

vbA数组随机10个两位数整数, 并找出最大数,指出它在数组中的位置

最佳答案

月排行榜 / 总排行榜

france723

2017-5-2 22:28

1. Sub test()
   
2. Dim a, ar, Max, p
   
3. ReDim ar(1 To 10)
   
4. Max = 1
   
5. For i = 1 To 10
   
6.     ar(i) = Int(Rnd * 90 + 10)
   
7.     If Max < ar(i) Then
   
8.         Max = ar(i)
   
9.         p = i
   
10.     End If
    
11. Next i
    
12. MsgBox ("Max: " & Max & " Position: " & p)
    
13. End Sub

复制代码

跳转到最佳答案楼层

france723

1. Sub test()
   
2. Dim a, ar, Max, p
   
3. ReDim ar(1 To 10)
   
4. Max = 1
   
5. For i = 1 To 10
   
6.     ar(i) = Int(Rnd * 90 + 10)
   
7.     If Max < ar(i) Then
   
8.         Max = ar(i)
   
9.         p = i
   
10.     End If
    
11. Next i
    
12. MsgBox ("Max: " & Max & " Position: " & p)
    
13. End Sub

复制代码

laoau138

france723 发表于 2017-5-2 22:28

小猫果然高手

laoau138

france723 发表于 2017-5-2 22:28

VBA数组倒数多少行开始计算  1-33这些数字次数


http://www.excelpx.com/thread-429889-1-1.html