VB.NET随机抽取数据 vb随机抽取一个数
VB如何生成随机数
1、打开“Microsoft Visual Basic 6.0 中文版”软件,准备一个空白的工程文件:
成都创新互联是一家专注网站建设、网络营销策划、重庆小程序开发、电子商务建设、网络推广、移动互联开发、研究、服务为一体的技术型公司。公司成立十载以来,已经为近1000家木屋各业的企业公司提供互联网服务。现在,服务的近1000家客户与我们一路同行,见证我们的成长;未来,我们一起分享成功的喜悦。
2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可:
3、双击该命令按钮,这里演示输入代码打印0~10之间的任意随即整数,生成其他范围的随机整数公式为“int((上限-下限+1)*Rnd+下限)”,如果是1到53就是“int((1-53+1)*Rnd+53”:
4、写完之后运行程序,每单击一次命令按钮,就会在窗体上打印一个0~10之间的随即整数:
VB中如何从一组数据源中随机选数。
'可以用集合对象来操作,每抽取一个数时,就把该项移除掉。这样就可以保证每个数只抽取一次。
'当然如果你提供的这系列数中本身有重复的数的话,那避免不了有重复的数了。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Command1_Click()
Dim a
a = Array(1, 8, 7, 9, 10, 2, 5, 11, 6, 12, 4, 30, 24, 21, 22, 13, 15, 16, 19, 29, 3, 14, 17, 18, 27, 25, 20, 28, 23, 26)
Dim item
Dim col As New Collection
For Each item In a
col.Add item
Next
'把数组中的数加入集合对象
'--------------------------------
Dim Index As Integer
Dim i As Integer
Dim strLine As String
For i = 1 To col.Count '每循环抽取一数
Index = Int(col.Count * Rnd + 1) '获取随机下标量
strLine = strLine "," col.item(Index) '将下标元素追加到strLine
col.Remove (Index) '移除该下标元素
If i Mod 5 = 0 Then Debug.Print Mid(strLine, 2): strLine = "" 'i被5整除时输出一行, 改变 5 可改变每行的项目数
Next
If strLine "" Then Debug.Print Mid(strLine, 2) '如有残留的不完全行也输出
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的数:
Private Sub Command1_Click()
Randomize
Dim a(10) As Long
n = 10
For i = 0 To n
a(i) = Int(Rnd() * (n + 1))
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做一个随机抽取器?
只要在代码中使用随机函数即可实现随机抽取功能
一、vb随机数生成的方法
vb随机数生成函数是 Rnd[(number)],number 参数为可选项。在调用 Rnd 生成随机数之前,先使用 Randomize 初始化随机数生成器来产生种子,该生成器是根据系统计时器来产生种子的。
1、生成100以内的随机数
Randomize
Int(Rnd() * 100)//生成 0 - 99 之间的随机数
Int(Rnd() * 101)//生成 0 - 100 之间的随机数
2、生成指定范围随机数
由于 vb 没有提供直接生成指定范围随机数的函数,所以要把 Rnd 变通一下,方法如下:
Int((上限 - 下限 + 1) * Rnd + 下限);
把它封装成可直接调用的函数如下:
Function GetRandom(under, over As Integer) As Integer
If under over Then
temp = under;
under = over;
over = temp;
End If
Randomize
GetRandom = Int((under - over + 1) * Rnd + over);
End Function
调用方法:
GetRandom(10, 100);//生成10到100的随机数
二、vb.net生成随机数的方法
1、方法:Random.Next(int minValue, int maxValue);
2、说明:
若 minValue 和 maxValue 都没有提供,则生成一个 0 - 2147483647 之间的随机数;
若 minValue 和 maxValue 只提供一个,则生成一个 0 - maxValue 之间的随机数;
若 minValue 和 maxValue 两个都提供,则生成一个 minValue - maxValue 之间的随机数;
3、举例
Dim ran = New System.Random()
ran.Next()//生成 0 - 2147483647 之间的随机数
ran.Next(100)//生成 0 - 100 之间的随机数
ran.Next(10, 100)//生成 10 - 100 之间的随机数
Dim ran = New Random(DateTime.Now.Millisecond)//通过日期的微秒生成随机数
分享名称:VB.NET随机抽取数据 vb随机抽取一个数
本文URL:http://pwwzsj.com/article/hgopep.html