本文目录
怎么用VB做一个随机抽取器
程序主体有两部分，第一部分用随机函数，例如Int(Rnd
*
50)
+
1代表1~50之间随机；
抽取随机数后传递到变量里面；
然后抽取第二个随机数，与变量比较，不一样则传递到第二个变量上，一样则重新抽取；
重复，直至X个变量全部赋值，然后输出。
关于电脑随机抽取数字的程序
http://www.skycn.com/soft/37441.html 你点开这个网址，下面有下载地址，下载下来就可以用了 这是随机抽取器 v1.3
请问VB的随机抽数器怎么做
’你可以在list里面进行随机数的抽取
’以下是代码(在此之前，你必须在窗体上画一个listBox控件和一个按钮)
’先是在list1中随机添加一些数字
private
sub
form_load()
list1.addItem
str(fix(rnd
*
100))
list1.addItem
str(fix(rnd
*
100))
list1.addItem
str(fix(rnd
*
100))
end
sub
’下面是随机抽取数字的过程
Private
Sub
Command1_Click()
MsgBox
List1.List(Rnd
*
List1.ListCount)
’随机抽取列表中的某个项目
End
Sub
-随机抽取器
如何破解羽翼随机抽取器 v5.2.1 免费版限制25个抽取对象
羽翼随机抽取器是一款比较实用的软件，该软件具有抽数字、抽文本、抽题目三种模式，可用于多种场合，能够为用户带来不少便利。
羽翼随机抽取器 功能介绍：
1.可据你所定义的抽取范围及步长随机生成数值并支持档案管理。
2.可选择“抽数字”、“抽名字”、“抽名字”模式。
3.适用于课堂选择同学名字、知识竞赛、工程招标、培训/比赛分组、专家库抽取、活动抽奖等等用途。
本身有免费版本，暂时没有正式版的破解版，建议你还是支持下作者吧。
-怎么用
谁能给我个VB的随机抽取器的源码
代码如下，已测试（注意：其中有个text3.text，把它替换成txt文件路径即可，别忘了加引号。另外txt中的人名要求每两个之间用空格或回车分开）
Dim Flag As Boolean
Private Sub Command1_Click() ’--------开始
Dim Str1 As String, Str0 As String, n As Integer
Flag = True
ff = FreeFile
’------------------------读取姓名文档
Open Trim$(Text3.Text) For Input As #ff
Do Until EOF(ff)
Input #ff, Str0
Str1 = Str1 + “ “ + Str0
Loop
Close #ff
’------------------------剔除空格
stra = Split(Str1, “ “)
Str1 = ““
For i = LBound(stra) To UBound(stra)
If stra(i) 《》 ““ Then
Str1 = Str1 + stra(i) + “ “
End If
Next
stra = Split(Str1, “ “)
n = UBound(stra)
’-----------------------开始随机抽取
Randomize
Do Until Flag = False
Text1.Text = stra(Int(Rnd * n))
DoEvents
Loop
Print n
End Sub
Private Sub Command2_Click() ’--------停止
Flag = False
Text2.Text = Text1.Text
End Sub
-随机抽取器
求一个VB设计随机抽取器
Private Sub Command1_Click()
a = Array(“甲“, “乙“, “丙“, “丁“)
Randomize
Text1.Text = a(Int(Rnd * (UBound(a) + 1)))
End Sub
