Question

用VB语言实现一个随机数相加的小程序

Answer 1

rnd
函数
返回一个包含随机数值的
single。
语法
rnd[(number)]
可选的
number
参数是
single
或任何有效的数值表达式。
返回值
如果
number
的值是
rnd
生成
小于
0
每次都使用
number
作为随机数种子得到的相同结果。
大于
0
序列中的下一个随机数。
等于
0
最近生成的数。
省略
序列中的下一个随机数。
说明
rnd
函数返回小于
1
但大于或等于
0
的值。
number
的值决定了
rnd
生成随机数的方式。
对最初给定的种子都会生成相同的数列，因为每一次调用
rnd
函数都用数列中的前一个数作为下一个数的种子。
在调用
rnd
之前，先使用无参数的
randomize
语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数，可使用以下公式：
int((upperbound
-
lowerbound
+
1)
*
rnd
+
lowerbound)
这里，upperbound
是随机数范围的上限，而
lowerbound
则是随机数范围的下限。
注意
若想得到重复的随机数序列，在使用具有数值参数的
randomize
之前直接调用具有负参数值的
rnd。使用具有同样
number
值的
randomize
是不会得到重复的随机数序列的。

Answer 2

Private
Sub
Command1_Click()
'每点击一次button按纽,textbox3.text就显示一个0--6的随机数,
'然后将第奇数个随机数赋值给Textbox1.text,并逐步求和,而textbox2.text则是第偶数个的.
Randomize
Text3.Text
=
Int(Rnd(1)
*
6)
Text3.Tag
=
Val(Text3.Tag)
+
1
'记录单击次数
If
Val(Text3.Tag)
Mod
2
=
0
Then
'偶数
Text2.Text
=
Val(Text2.Text)
+
Val(Text3.Text)
Else
'奇数
Text1.Text
=
Val(Text1.Text)
+
Val(Text3.Text)
End
If
End
Sub