锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net随机数 vb 随机数

随机数IT技术

VB.NET中怎么实现每单击一次按钮，文本框就多出现一个1-13的随机数字？Dim n As Integer, b As Integer, a(13) As Integer
Private Sub Command1_Click()
If b5 Then
b = b1
x = Int(n * Rnd())1
Text1.Text = Text1.Texta(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
《VB.NET》中的“Randomize(x)”和“Rnd(x)”Rnd[(number)]
number
的值决定了
Rnd
生成随机数的方式
如果
number
的值
Rnd
生成
小于
每次都使用
number
作为随机数种子得到的相同结果 。
大于
序列中的下一个随机数 。
等于
最近生成的数 。
省略
序列中的下一个随机数 。
====================
先讨论没有加randomize时
X小于0
如
rnd(-1)
以-1为种的随机数永远相同
X大于0
如
rnd(1)
系统会先生成随机数列表
有N个随机数
你每执行一次rnd(1)就获取列表中下一个随机数
比如有这么个列表
程序开始时
得到0.7055475
执行第二次rnd(1)得到0.533424
第三次0.5795186
你关闭程序重新打开
第一次得到还是0.7055475
.7055475
.533424
.5795186
.2895625
.301948
而你说的X0
X0没差别
是错的
Print
Rnd(1)
Debug.Print
Rnd(-2)
和
Debug.Print
Rnd(-2)
Print
Rnd(1)
结果是不一样的
X等于0
最近生成的数
一般为科学型数值
这个值也是不变的
rnd(x)
省略x不写
就和X0
效果一样
=========================
Randomize
用
number
将
Rnd
函数的随机数生成器初始化，该随机数生成器给
number
一个新的种子值 。如果省略
number，则用系统计时器返回的值作为新的种子值 。
如果没有使用
Randomize，则（无参数的）Rnd
函数使用第一次调用
Rnd
函数的种子值 。
注意
若想得到重复的随机数序列 ， 在使用具有数值参数的
Randomize
之前直接调用具有负参数值的
Rnd 。使用具有同样
number
值的
Randomize
是不会得到重复的随机数序列的 。
一般在使用rnd获取随机数
都是
randomize
int(rnd*(上限-下限 1） 下限)
这2个函数的X都是省略不写
vb.net中产生三位正整数的随机数的程序写法'项目：VB中产生在一定正整数范围内的不重复的随机数'作者：qq15495835Private Sub Command1_Click() Max = 100'随机数上限值 Min = 1'随机数下限值 Amount = 10'产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死循环 ReDim a(Amount) Randomize For i = 0 To Amounta(i) = Int((Max - Min1) * RndMin)For j = 0 To iIf ij And a(i) = a(j) Then i = i - 1Next Next Text1 = Join(a, vbCrLf)End Sub'请采纳参考！谢谢！
【vb.net随机数 vb 随机数】关于vb.net随机数和vb 随机数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：两个路由器怎么样调节音量，两个路由器怎么调试

    下一篇：如何配置腾讯云服务器？ 腾讯云服务器怎么弄