22问答网
所有问题
当前搜索:
vb语言随机产生随机数
利用
VB
如何设计下面问题:利用
随机数产生
10个1~100之间的随机数,显示...
答:
Private Sub Form_click()Dim a(9)Dim m(), n() 'm()为偶数集, n()为奇数集 Dim i, p, q Dim sum Dim avg1, avg2 'avg1为奇数平均数, avg2为偶数平均数 Dim max, min For i = 0 To 9 Randomize a(i) = Int(Rnd() * 99 + 1)If a(i) Mod 2 = 0 Then '判断偶数...
vb
中
产生
20个1-100的
随机数
,挑选其中的素数
答:
Dim a(19) As IntegerPrivate Sub Command1_Click()Print "
产生
20个
随机数
为:"Dim i As IntegerFor i = 0 To 19 a(i) = 1 + Int(Rnd * 100) Print a(i); If (i + 1) Mod 5 = 0 Then PrintNextEnd SubPrivate Sub Command2_Click()Print "其中素数为:"Dim i As Integer,...
请问在
VB
中
随机产生
一位正整数,不应该是int(rnd*10)吗,那为什么又会出...
答:
VB
中的
随机数生成
器生成的是不小于0,小于1的值:0<=rnd<10 因此,rnd是能
产生
一个0值的。int(rnd*10)得到的可能是0\1\2\3\4\5\6\7\8\9中的一个。如果要得到1-9中的一个数,则应当使用int(rnd*9)+1
vb
用于
产生随机数
的公式是什么
答:
VB
使用Rnd 函数
产生随机数
。Rnd 函数,返回一个包含随机数值的 Single。Rnd 函数示例 本示例使用 Rnd 函数
随机生成一个
1 到 6 的随机整数。Dim MyValue MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值
在
vb
中,如何编写程序通过
随机
函数
产生
10~99之间的随机整数?
答:
vb
产生随机数
的公式(上界-下界+1)*rnd+下界你的题目就应该是(99-10+1)*rnd +10一般用rnd的时候还要在前面加一条 randomize 初始化随机种 子
随机生成
100个
随机数
,并输出最大值的
VB
代码怎么编写?
答:
dim n as single dim a as single dim i as integer for i=1 to 100 n=rnd()if n>a then a=n next i print a 因为你没有要求,所以这里
产生
的是大于等于0而小于1的数。如果要求要产生从K到J之间的数字(k<j),把 n=rnd()换成 n=(j-k+1)*rnd()+k 如果要求是整数,则换成 ...
什么是
vb
的
随机数
和种子??
答:
VB
的随机数即使用Rnd函数生成的随机数值。种子,为初始值,用来生成伪
随机数字
。Rnd 函数,返回一个包含随机数值的 Single。对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化
随机数生成
器...
用
VB
做一个
产生随机数
的程序
答:
用
VB
做一个
产生随机数
的程序过程:1 创建随机数窗体:2 编写产生随机数的事件:Private Sub Command1_Click()Randomize '初始化随机数生成器 List1.AddItem Int((Rnd * 9) + 1)End Sub 3 运行结果:
VB
里怎么
生成
0-13之间的
随机数
答:
randomize'初始化
随机数生成
器,是生成的随机数不至于一直重复 int(rnd*14)'生成包括0和13的0-13之间的整数 若m>n 要生成包括m,n之间的随机整数,就这样写 int(rnd*(m-n+1)+n)生成10-50的就是int(rnd*(50-10+1))+10 ps:rnd*50 生成的不是整数,而是0-49之间的双精度浮点数 要生成...
用
VB
编写程序:用
随机
函数
产生
20个[1, 9]区间的随机整数并存入一维数组...
答:
Text1.Text = ""Dim A(1 To 20) As Integer, I As Integer For I = 1 To 20 Randomize A(I) = Int(Rnd * 9 + 1) '
生成
20个
随机数
,存储到数组 Next I For I = 1 To 20 If I Mod 5 = 0 Then Text1.Text = Text1.Text & "A(" & I & ") =" & A(I) & ...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机数函数范围
vba常用代码大全
static在vb中代表什么
定义一个包含10个元素的整型数组