vb随机程序代码（vb程序设计产生随机数）

今天给各位分享vb随机程序代码的知识，其中也会对vb程序设计产生随机数进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、求用vb生成随机字母的代码?
• 2、用VB做一个产生随机数的程序
• 3、随机数字VB程序代码
• 4、VB编写一个随机文件程序
• 5、VB随机数代码

求用vb生成随机字母的代码?

说个思路，

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

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

2.用随机函数产生器产生一个随机数

c#

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

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

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

用VB做一个产生随机数的程序

用VB做一个产生随机数的程序过程：

1 创建随机数窗体：

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

Private Sub Command1_Click()

Randomize '初始化随机数生成器

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

End Sub

3 运行结果：

随机数字VB程序代码

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

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

Int((upperbound

-

lowerbound

+

1)

*

Rnd

+

lowerbound)

upperbound

是随机数范围的上限，而

lowerbound

则是随机数范围的下限。

Rnd

函数

返回一个包含随机数值的

Single。

语法

Rnd[(number)]

可选的

number

参数是

Single

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

返回值

如果

number

的值是

Rnd

生成

小于

每次都使用

number

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

大于

序列中的下一个随机数。

等于

最近生成的数。

省略

序列中的下一个随机数。

说明

Rnd

函数返回小于

1

但大于或等于

的值。

number

的值决定了

Rnd

生成随机数的方式。

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

Rnd

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

在调用

Rnd

之前，先使用无参数的

Randomize

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

VB编写一个随机文件程序

Private Type stu

num As String * 10

name As String * 20

cj As Long

End Type

Private Sub Command1_Click()

Dim f As String, f1 As String, stud As stu, studd(5) As stu

'    Print Len(stud)

f = App.Path "\RANDOM.DAT"

Open f For Random As #1 Len = 35

For j = 1 To 5

stud.num = Format(Now(), "yyyymmdd") Format(j, "00")

stud.name = "学生" j

stud.cj = 90 + j

Put #1, j, stud

Next

Close #1

Print "原始数据："

Open f For Random As #1 Len = 35

For j = 1 To 5

Get #1, j, studd(j)

Print studd(j).num; studd(j).name; studd(j).cj

Next

Close #1

For j = 1 To 5

For k = j + 1 To 5

If studd(j).cj = studd(k).cj Then

stud = studd(j)

studd(j) = studd(k)

studd(k) = stud

End If

Next

Next

f = App.Path "\RANDOM1.DAT"

Open f For Random As #1 Len = 35

For j = 1 To 5

Put #1, j, studd(j)

Next

Close #1

Print "排序后数据："

Open f For Random As #1 Len = 35

For j = 1 To 5

Get #1, j, studd(j)

Print studd(j).num; studd(j).name; studd(j).cj

Next

Close #1

End Sub

VB随机数代码

Dim a(5) As IntegerPrivate Sub Command1_Click() '生成不重复的随机数aa:Text1.Text = ""For i = 1 To 5 Randomize a(i) = Int(Rnd * 15) + 1 Text1.Text = Text1.Text " " a(i)Next iFor i = 1 To 5 For j = i To 4 If a(i) = a(j + 1) Then GoTo aa End If Next jNext iEnd SubPrivate Sub Command2_Click() '排列随机数Dim temp As IntegerText1.Text = ""For i = 1 To 5 For j = i To 4 If a(i) a(j + 1) Then temp = a(j + 1) a(j + 1) = a(i) a(i) = temp End If Next j Text1.Text = Text1.Text " " a(i)Next iEnd Sub

关于vb随机程序代码和vb程序设计产生随机数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。