锐客网

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

vb.net生产随机数 vb程序设计产生随机数

IT技术随机数

vb 。net产生10到100的随机数你可以把str
=
Int(Rnd()
*
(100
-
11)
10)改成str
=
strspace（空格数）Int(Rnd()
*
(100
-
11)
10)如果语句有错的话就把以上函数值转化成字符串类型 。
vb.net程序 ， 利用随机函数产生100个1到100之间的整数 ， 求其中的最大最小值 。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()'产生随机数种子 以防止每次生成结果都一样
Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer'声明两个变量存最大值和最小值
min = 1000 : max = 0 '设置初值
For i = 0 To 99'循环100次
a(i) = Int(Rnd() * 10001) '用rnd生成一个随机数由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间
If a(i) = max Then max = a(i) '如果当前数值大于最大值的变量就保存
If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存
Next
MsgBox("最大值为"max)
MsgBox("最小值为"min)
End Sub
vb.net产生随机数方法名称：next()；功能描述：返回一个0~2147483647之间的整数
方法名称：next(i)；功能描述：返回一个0~i之间的整数
方法名称：next(i ， j)；功能描述：返回一个i~j之间的整数
方法名称：Nextdouble()；功能描述：返回一个0~1之间的随机小数
================
使用方法：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rand = New System.Random()
MsgBox(rand.next().ToString())
End Sub
==========================
产生N个不同数的话，我给你个我写的VB的代码，你稍微改下：
产生0-10的数：
【vb.net生产随机数 vb程序设计产生随机数】Private Sub Command1_Click()
Randomize
Dim a(10) As Long
n = 10
For i = 0 To n
a(i) = Int(Rnd() * (n1))
For j = 0 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next
Next
For i = 0 To n
Print a(i)
Next
End Sub
怎么用vb.net随机产生5个不同的数，范围1-33，求帮忙改一下Private Sub Command1_Click()
Dim num(6) As Integer
Dim i As Integer, j As Integer
Dim tmp As Integer
Randomize '防止每次生出随机数一样
For i = 0 To 5
num(i) = Int(Rnd * 53)1
Next
PrintNum "新生成的6个随机数为：", num()
For i = 0 To 5
For j = 0 To 5
If num(j)num(j1) Then
tmp = num(j)
num(j) = num(j1)
num(j1) = tmp
End If
Next
Next
PrintNum "排序后的6个随机数为：", num()
End Sub
VB.NET中,随机数生成器问题Public Shared Sub Randomize ([ Number ])
Randomize 用 Number 将 Rnd 函数vb.net生产随机数的随机数生成器初始化vb.net生产随机数 ， 并给它一个新vb.net生产随机数的种子值 。如果省略 Number，则用系统计时器返回的值作为新的种子值 。
vb.net中产生三位正整数的随机数的程序写法'项目vb.net生产随机数：VB中产生在一定正整数范围内vb.net生产随机数的不重复vb.net生产随机数的随机数'作者vb.net生产随机数：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.net生产随机数的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb程序设计产生随机数、vb.net生产随机数的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何建立自己的挖矿服务器？ 怎么搭建挖矿服务器

    下一篇：玩游戏时怎么用显卡开机，玩游戏时怎么用显卡开机呢