mdsk.net
当前位置:首页 >> vB随机数生成的几种方法 >>

vB随机数生成的几种方法

将以下代码输入即可 Private Sub Form_Click() '窗体Click()事件 Randomize '防止每次生出随机数一样 Print Int(Rnd * 53) + 1 'rnd()生成[0,1)的随机数,int()是取整 End Sub 改text1的font属性,那有改字号的

简单一点就是:a=int((b*rnd+1)+c) a为生成的随机数,b,c为自己设置范围的数,例如:b=0,c=100,即产生的随机数a范围在0~100之间.可根据需要设置.

'画一个按钮.把你要随机取字的字符串赋值给myStr即可 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, myStr As String, myTemp As String, myOutput As String myStr = "1234567890" c = Len(myStr) Randomize

Private Sub Form_Load() Text1.Text = "" Randomize For i = 1 To 50 a(i) = Int(Rnd * 99) + 1 if i mod 6 =0 thenText1.Text = Text1.Text & Str(a(i)) & VBCRLFelseText1.Text = Text1.Text & Str(a(i))end ifNext i End Sub求6的余数,当余数=0时,加个回车换行符

RND(10)产生一个0到1之间的随机数,10*Rnd 产生0到10的随机数

Private Sub Command1_Click() Dim flag As Boolean Dim r(1000) Dim d As String Randomize '初始化随机种子 For i = 0 To 10 '出11个100以内的不重复数 Do r(i) = Int(Rnd() * (100)) flag = True For j = 0 To (i - 1) If r(j) = r(i) Then flag = False '如果用

dim a(1 to 100) as double for i = 1 to 100 a(i) = int(rnd * 1000000000 + 1) next i 产生100个1到1000000000的随机整数

需要在生成随机数后进行判断,是否已经存在,存在返回继续生成即可.dim rnd as new randomdim a() as string for i as integer 0 to 8:newa(i)=random.next(1,9)'比较是否有相同的if i>0 thenfor j as integer 0 to i-1if a(j)=a(i) goto newnext jend ifnext i'代码未测试,如有错误,请自行修正

Rnd函数你要是想生成m---n的随机数就用Rnd(m-n)+m你要是想生成整数还得用int函数int(rnd(m-n+1))+m 这样生成的就是[m , n]

用数组来保存产生的随机数,每产生一个随机数就跟已经产生的随机数进行比较,如果跟已经产生的随机数中的一个相同的话就重新产生一个随机数,直到跟已经产生的所有随机数都不相同为止.Private Sub Command1_Click() Dim a(1 To 10)

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com