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
在VB中生成有n(n≥10)个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值
在VB中生成有n(n≥10)个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值
数学人气:960 ℃时间:2019-11-07 21:39:04
优质解答
我来回答
类似推荐
猜你喜欢
- 1小明的爷爷今年65岁,爸爸的年龄是爷爷年龄的13分之6,小朋的年龄是爸爸年龄的6分之1.小明今年几岁?
- 2已知英文字母a的ASCII代码值是十六进制数61H,那么字母d的ASCII代码值是
- 3关于我爱我家的名言警句,古诗,诗歌……,反正关于我爱我家的内容的都要!
- 4按照个人所得税法规定,每月的个人收入超过2000元的部分,应按5%的税率缴纳个人所得税.
- 5请求英语高手速写一篇初一英语的小短文~
- 6李清照 如梦令-常记溪亭日暮 表达了词人怎样的思想感情?
- 7初一数学,很很很简单的.
- 8已知a=(1,2),b=(-1,m),若a与b夹角为钝角,则m的取值范围是( ) A.(-12,+∞) B.(-∞,-12) C.(12,+∞) D.(-∞,-2)∪(-2,12)
- 920DM3=M3=L=CM3=ML单位换算谢谢数学物理
- 10用6个面积是1平方厘米的正方形,拼成下面的图形数一数它们的面积和周长各是多少?