在VB中生成有n（n≥10）个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值

亚欧13351184060 1年前 已收到1个回答 举报
赞

贤哥 幼苗

共回答了15个问题采纳率：100% 举报

Dim i As Integer
Dim min As Integer
Dim max As Integer
Dim m As Integer
min = 100
max = 0
For i = 0 To 9
m = Int(Rnd * 100)
Print m
If min > m Then min = m
If max < m Then max = m
Next i
Print "最小数=" & min
Print "最大数=" & max

1年前

6
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.013 s. - webmaster@yulucn.com