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

Posted 2023-04-24

要求如下:
7个Text文本控件.
要实现前6个文本控件.随机产生1-33的整数.
第七个文本控件.随机产生1-16的整数.
麻烦回答者切记,随即产生.谢谢!

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

1 创建随机数窗体：

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

Private Sub Command1_Click()

Randomize \'初始化随机数生成器

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

End Sub

3 运行结果：

参考技术A 好了哦，看一下啊

Dim i, j, k As Single
For i = 0 To 5
Do
Text1(i) = Int(Rnd() * 32 + 1)
k = 0
For j = 0 To i - 1
If Text1(i) = Text1(j) Then k = k + 1
Next j
Loop While k > 0
Next i
do
Text1(6) = Int(Rnd() * 15 + 1)
n=0
For i = 0 To 5
if text1(6)=Text1(i) then n=n+1
next i
Loop While n > 0 参考技术B 问题的主要是产生一个范围内的随机数。可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 参考技术C Private Sub Form_Click()
Dim i, j, k As Single
For i = 0 To 5
Do
Text1(i) = Int(Rnd() * 32 + 1)
k = 0
For j = 0 To i - 1
If Text1(i) = Text1(j) Then k = k + 1
Next j
Loop While k > 0
Next i
Text1(6) = Int(Rnd() * 15 + 1)
End Sub

VB中randomize怎么用

RND随是随机 但总是出现1个数字
给我举个例子
还有用randomize随机出1-12间的数字 也给个例子
用randomize随机任意数字 也给个例子
谢谢

VB中randomize的用法是初始化随机数发生器。

Randomize 语句示例：

本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用Timer 函数的返回值作为新的随机数种子值。Dim MyValue，Randomize ' 对随机数生成器做初始化的动作，MyValue = Int(6 *Rnd+1) ' 生成 1 到 6 之间(包括6）的随机整数。

扩展资料：

VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。

参考资料来源：百度百科-randomize

参考技术A

初始化随机数生成器。

语法

Randomize [number]

可选的 number 参数是 Variant 或任何有效的数值表达式。

说明

Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。

如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。

扩展资料：

Randomize 语句示例

本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。

Dim MyValue

Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int(6 *Rnd+1) ' 生成 1 到 6 之间(包括6）的随机整数。

参考资料来源：百度百科-randomize

参考技术B Randomize 语句
初始化随机数生成器。
说明

Randomize 用 number 将
Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。
如果省略 number，则用系统计时器返回的值作为新的种子值。

如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用
Rnd 函数的种子值。

注意 若想得到重复的随机数序列，在使用具有数值参数的
Randomize 之前直接调用具有负参数值的 Rnd。
使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
Randomize 语句示例

本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以
Randomize 用 Timer 函数的返回值作为新的随机数种子值。
Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。 参考技术C randomize ’有加这个是程序每次运行rnd不会出现相同的随机种子~
print int(rnd*(12)+1)本回答被提问者采纳 参考技术D Randomize语句但独用就可以，在第一个rnd函数之前有就可以，作用是初始化随机数生成器。
如果不用这个语句的话，每次生成的随机数都相同，用了之后，每次的随机数就会不相同了。
后面也可以加参数，但这样每次运行的结果也是相同的.不加参数，自动以系统计时器返回的数字作为参数。
补充：msdn中的说明
Randomize
用
number
将
Rnd
函数的随机数生成器初始化，该随机数生成器给
number
一个新的种子值。如果省略
number，则用系统计时器返回的值作为新的种子值。
如果没有使用
Randomize，则（无参数的）Rnd
函数使用第一次调用
Rnd
函数的种子值。
注意
若想得到重复的随机数序列，在使用具有数值参数的
Randomize
之前直接调用具有负参数值的
Rnd。使用具有同样
number
值的
Randomize
是不会得到重复的随机数序列的。