随机数字VB程序代码

text1.text=int((rnd*20)+1)

为了生成某个范围内塌敬纳的随机整数，可使用以下公式：

Int((upperbound

-

lowerbound

+

1)

*

Rnd

+

lowerbound)

upperbound

是随机数范围的上限，而

lowerbound

则是随机数范围的下限。

Rnd

函数

返回一个团没包含随机数值的

Single。

语法

Rnd[(number)]

可选的

number

参数是

Single

或任何有效的数值表达式。

返回值

如果

number

的值是

Rnd

生成

小于

0

每次都使用

number

作为随机数种子得到的相同结果。

大于

0

序列中的下一个随机数。

等于

0

最近生成的数。

省略

序列中的下一个随机数。

说明

Rnd

函数返回小于

1

但大于或等于

0

的值。

number

的值决定了

Rnd

生成随机数的方式。

对最初给定的种子都会稿迹生成相同的数列，因为每一次调用

Rnd

函数都用数列中的前一个数作为下一个数的种子。

在调用

Rnd

之前，先使用无参数的

Randomize

语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。

Dim a(5) As IntegerPrivate Sub Command1_Click() '生成不重复的随机数高团aa:Text1.Text = ""For i = 1 To 5Randomizea(i) = Int(Rnd * 15) + 1Text1.Text = Text1.Text &" " &a(i)Next iFor i = 1 To 5For j = i To 4If a(i) = a(j + 1) ThenGoTo aaEnd IfNext jNext iEnd SubPrivate Sub Command2_Click() '排列搜行随机数Dim temp As IntegerText1.Text = ""For i = 1 To 5For j = i To 4If a(i) >戚漏橘 a(j + 1) Then temp = a(j + 1) a(j + 1) = a(i) a(i) = tempEnd IfNext jText1.Text = Text1.Text &" " &a(i)Next iEnd Sub

---