如何用VB求30个100-3000的随机数

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/11 21:14:23

Option Explicit
Option Base 1
Private Sub Form_click()
Dim a(30) As Integer, i As Integer
Randomize
For i = 1 To 30
a(i) = Int(Rnd * (3000 - 100) + 1) + 100
Print a(i);
Next i
End Sub
30个数字是一行显示的,你把窗体拖大了再执行就能全看见了!
祝你愉快!

如何用VB产生2~99之间的1次1个随机数,可以重复的,另外求如何用VB产生1~n之间的1次20个随机数如何用VB制作随机数程序 VB 求10个随机数和平均值 VB编程产生100个[10,99]的随机数如何用vB程序随机产生30个不同的字母? 如何用VB求两个数的最大公约数和最小公倍数? 如何用VB产生一个每次都不一样的随机数啊,用rnd的话只能产生一个固定的数字 vb中如何用函数求100以内偶数的平方和急求vb代码单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数 VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数 vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值, VB,先产生100个0~67之间的随机数,编一子过程计算这些随机数的平均值、最大值、最小值.