vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和

甜美香槟 1年前 已收到1个回答 举报
赞

打铁uu 幼苗

共回答了11个问题采纳率：90.9% 举报

Private Sub Command1_Click()
Dim I As Integer,N As Integer,Max As Integer,Min As Integer
Min = 100
Randomize
For I = 1 To 20
N = Int(51 * Rnd) + 50
If N > Max Then Max = N
If N < Min Then Min = N
Next I
Print "最大值："; Max
Print "最小值："; Min
End Su

1年前

8
可能相似的问题

你能帮帮他们吗

精彩回答

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