vb.net随机数 vb 随机数

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.NET中怎么实现每单击一次按钮，文本框就多出现一个1-13的随机数字？

Dim n As Integer, b As Integer, a(13) As Integer

Private Sub Command1_Click()

If b 5 Then

b = b + 1

x = Int(n * Rnd()) + 1

Text1.Text = Text1.Text a(x) " "

a(x) = a(n)

n = n - 1

Else

Call Form_Load

End If

End Sub

Private Sub Form_Load()

Randomize

n = 13: b = 0

For i = 1 To 13

a(i) = i

Next i

Text1.Text = ""

End Sub

相关问答

Q1: 《VB.NET》中的“Randomize(x)”和“Rnd(x)”

Rnd[(number)]

number

的值决定了

Rnd

生成随机数的方式

如果

number

的值

Rnd

生成

小于

每次都使用

number

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

大于

序列中的下一个随机数。

等于

最近生成的数

一般为科学型数值

这个值也是不变的

rnd(x)

省略x不写

就和X0

效果一样

=========================

Randomize

用

number

将

Rnd

函数的随机数生成器初始化，该随机数生成器给

number

一个新的种子值。如果省略

number，则用系统计时器返回的值作为新的种子值。

如果没有使用

Randomize，则（无参数的）Rnd

函数使用第一次调用

Rnd

函数的种子值。

注意

若想得到重复的随机数序列，在使用具有数值参数的

Randomize

之前直接调用具有负参数值的

Rnd。使用具有同样

number

值的

Randomize

是不会得到重复的随机数序列的。

一般在使用rnd获取随机数

都是

randomize

int(rnd*(上限-下限+1）+下限)

这2个函数的X都是省略不写

Q2: vb.net中产生三位正整数的随机数的程序写法

'项目：VB中产生在一定正整数范围内的不重复的随机数'作者：qq15495835Private Sub Command1_Click() Max = 100 '随机数上限值 Min = 1 '随机数下限值 Amount = 10 '产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死循环 ReDim a(Amount) Randomize For i = 0 To Amount a(i) = Int((Max - Min + 1) * Rnd + Min) For j = 0 To i If i j And a(i) = a(j) Then i = i - 1 Next Next Text1 = Join(a, vbCrLf)End Sub'请采纳参考！谢谢！

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