作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/03/29 22:33:13
vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和
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