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 Sub
vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和
vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和
其他人气:280 ℃时间:2020-03-29 12:17:31
优质解答
我来回答
类似推荐
猜你喜欢
- 1现在进行时是不是就是动词ing形式?He likes ___ with it at home .为什么是play的ing形式,而不是直接加s
- 2以历史上的具体战例说说“天时不如地利,地利不如人和”的道理
- 3securing passage意思
- 4英语翻译:I like dishes which are( )Sichuan( )我喜欢四川风味的菜
- 5英语连读怎么读?
- 6杜甫的春夜喜雨中:随风潜入夜,润物细无声的意思是什么?
- 7"永"字最后一笔拉长,右边是个"日"字怎么读?
- 8two hundred seventy million 请问是2700万还是2亿啊 我怎么琢磨就是2亿啊?
- 9train/will/how/Bill/to/by/long/it/Does/know/Beijing/to/take/get 连词成句,
- 102 the earthquake is a ____( 自然 )disaster 3 i have been skating s_____ iwas seven years old 4 i'm