[已解决]VB解析这个为什么 找出其中最大值最小值

france723

laoau138 发表于 2017-5-2 08:47

Int是 将数字向下舍入到最接近的整数. 比如Rnd*10得到的数是3.814, Int(Rnd)得到的数是3
其实无需改写数组, 一定要改写的话, 代码如下(其实可以放在一个循环里面, 这么写方便你看明白写入和读取数组)

1. Sub aaa()
   
2. Dim ar, i, v, Max, Min, s, a
   
3. ReDim ar(1 To 20)
   
4. Max = 49
   
5. Min = 101
   
6. For i = 1 To 20
   
7.     ar(i) = Rnd * 50 + 50
   
8.     s = ar(i) + s
   
9. Next i
   
10. For Each v In ar
    
11.     If Max < v Then
    
12.         Max = v
    
13.     End If
    
14.     If Min > v Then
    
15.         Min = v
    
16.     End If
    
17. Next v
    
18. a = s / 20
    
19. MsgBox ("Max: " & Max & " Min: " & Min & " Moy: " & a)
    
20. End Sub

复制代码

laoau138

france723 发表于 2017-5-2 19:42
Int是 将数字向下舍入到最接近的整数. 比如Rnd*10得到的数是3.814, Int(Rnd)得到的数是3
其实无需改写数 ...

请小猫用for循环来写，不喜欢for each 循环

laoau138

france723 发表于 2017-5-2 19:25
师父, 资料上说"Rnd 函数返回小于 1 但大于或等于 0 的值".
那么用集合表示Rnd是[0，1）. 那么Rnd * 50 ...

个人认为完全正确了

france723

laoau138 发表于 2017-5-2 20:03
请小猫用for循环来写，不喜欢for each 循环

一个循环.

1. Sub aaa()
   
2. Dim ar, i, Max, Min, s, a
   
3. ReDim ar(1 To 20)
   
4. Max = 49
   
5. Min = 101
   
6. For i = 1 To 20
   
7.     ar(i) = Rnd * 50 + 50
   
8.     s = ar(i) + s
   
9.     If Max < ar(i) Then
   
10.         Max = ar(i)
    
11.     End If
    
12.     If Min > ar(i) Then
    
13.         Min = ar(i)
    
14.     End If
    
15. Next i
    
16. a = s / 20
    
17. MsgBox ("Max: " & Max & " Min: " & Min & " Moy: " & a)
    
18. End Sub

复制代码

大灰狼1976

france723 发表于 2017-5-2 19:25
师父, 资料上说"Rnd 函数返回小于 1 但大于或等于 0 的值".
那么用集合表示Rnd是[0，1）. 那么Rnd * 50 ...

你的解释是对的，我就是古话说好读书不求甚解的性格，看来得改改，谢谢指正！