随机数字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

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

用VB做一个产乎誉生随机岁洞段数的程序过程：

1 创建随机数窗体：

2 编写产生随机数的事件：

Private Sub Command1_Click()

Randomize '初始化随机颤激数生成器

List1.AddItem Int((Rnd * 9) + 1)

End Sub

3 运行结果：

说个思路，

1.写一个字符数组将所有的字母字符存放起来如

a[52]={a,b,c,d.....z,A,B,C,....Z}

2.用随机凳芦函数产生器产生一个随机数敬差

c#

里面好像是random,可以带参数，指定产生多大的一个随机数，这里最大的是51，即每次产生一个从0到51的数，

3.利用随机数作为数组下标得到数组里对应的字符，OK

这只是产生了一个字枣稿带母，如果想产生多个随机字母，则在一个循环里做2-3步

---