vb随机代码（产生随机数的代码VB）

本篇文章给大家谈谈vb随机代码，以及产生随机数的代码VB对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、请问vb随机生成一个有20个互不相同一百以内的数的数组怎么写代码啊，ww救命啊？
• 2、vb产生随机数的代码
• 3、VB随机数代码
• 4、急 VB随机抽取数字代码
• 5、随机数字VB程序代码

请问vb随机生成一个有20个互不相同一百以内的数的数组怎么写代码啊，ww救命啊？

Sub scsz()'生成不重复随机数

Dim i, j, k, m, n, r, c, d As Integer

Dim b As Boolean

Dim ra() As Integer

Dim raa() As Integer

m = Range("a1")

n = Range("b1")

ReDim ra(n - 1)

ReDim raa(n - 1)

r = Int(Rnd() * m)

ra(c) = r

raa(c) = r

c = c + 1

For i = 1 To (n - 1)

r = Int(Rnd() * (m - i))

b = True

For j = 0 To (i - 1)

If ra(j) = r Then

r = r + 1

Else

For k = j To (i - 1)

ra(i + j - k) = ra(i + j - k - 1)

Next k

ra(j) = r

raa(c) = r

c = c + 1

b = False

Exit For

End If

Next j

If b Then

ra(c) = r

raa(c) = r

c = c + 1

End If

Next i

d = 1

For Each e In raa

Range("c" d) = e

d = d + 1

Next

End Sub

这是写在EXCEL里的宏，在A1指定范围，B1指定个数，在C列生成数组

里面变量m是范围，变量n是生成个数，最后的raa数组就是结果

vb产生随机数的代码

Private Sub Command1_Click()

Dim I As Integer, N As Integer, T As Integer

For I = 1 To 80

T = Int((99 - 10 + 1) * Rnd + 10)

Print T;

N = N + 1

If N Mod 10 = 0 Then Print '十个换一行

Next

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随机抽取数字代码

在窗体上增加两个Command1和Command2，一个文本框Text1和一个时间控件Timer1，代码如下：Private Sub Command1_Click() '开始抽奖

If Command1.Caption = "开始" Then '判断按钮是否为开始

Command1.Caption = "停止" '是则更改按钮为停止

Timer1.Enabled = True '开启时钟

Else

If Command1.Caption = "停止" Then '否则判断按钮是否是停止

Timer1.Enabled = False '是则停止时间控件

Command1.Caption = "开始" '将Command1更改成开始

End If

End If

End SubPrivate Sub Command2_Click() '清空文本框内容

Text1.Text = ""

End SubPrivate Sub Form_Load() '窗体加载事件对一些控件进行初始化

Text1.Text = "" '清空文本框内容

Timer1.Interval = 10 '设置时间控件周期为10ms

Timer1.Enabled = False '默认时间控件不开启

Command1.Caption = "开始" '默认Command1的名称为开始

Command2.Caption = "清空" '默认Command1的名称为清空End Sub Private Sub Timer1_Timer() '时间控件事件执行滚动随机提取数据

Text1.Text = Int((42 - 1 + 1) * Rnd + 1) '随机数读取方法：Int((upperbound（上限） - lowerbound（下限） + 1) * Rnd + lowerbound)

End Sub

随机数字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随机代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于产生随机数的代码VB、vb随机代码的信息别忘了在本站进行查找喔。