VB随机抽取问题 vb 随机抽取

关于vb的随机抽取 请参考。代码和EXE文件都在附件中。登陆初始密码为123456名单和名单密码保存路径设置为当前程序路径下，你如果需要存放在D:\\名单.txt中，请自己修改。刚刚你的提问我已经回答一次了，答案竟然被违规了，晕~vb中如何实现随机抽取并显示记录 首先定义数组 把姓名放在数组a(10)里(假设你有10个人的姓名)然后Randomizefor i=1 to 3b=(rnd*10)+1print a(b)next iVB6如何随机抽取 Private Sub Command1_Click()Dim s As String,n As Integer,i As Integeri=0Dim tempStr As String '定义变量tempStr为字符串Open\"D:\\test.txt\"For Input As#1 '打开文件While Not EOF(1)'读取到结束Line Input#1,tempStr '读取一行到变量tempStri=i+1Wend '未结束继续Close#1 '关闭'以上为获取文件行数Randomizen=Int(i*Rnd)'随机取一行i=1Open\"D:\\test.txt\"For Input As#1Do While iIf Not EOF(1)ThenLine Input#1,sEnd Ifi=i+1LoopMsgBox s '输出Close#1End Sub仅供参考VB随机抽取问题 rnd函数是不能控制时间的.将timer的interval设为10在timer事件中调用rnd函数随机选择数据,并显示在label上.这才是思路.这里的难点是文件的读取,还有随机函数的使用.自己认真做,考试可没法抄的.怎么用vb随机抽取几个字组成一段话？ Private Sub Command1_Click()Dim s,a()As String,i,n As Integer,f As Boolean,b()As Strings=\"{A|e799bee5baa6e59b9ee7ad9431333330333533The|Any|Some sort of|A new|Your|A good|Some} {A fabulous|An important|The latest|A real|A good solid|Another|An absolute|An|A very|One particular|Each|A suitable|One|An actual|Any kind of|The right|Your own}f=FalseFor i=1 To Len(s)If Mid(s,i,1)=\"{\"Thenf=TrueReDim Preserve a(n)ElseIf Mid(s,i,1)=\"}\"Thenf=Falsen=n+1ElseIf f Thena(n)=a(n)+Mid(s,i,1)End IfNexts=\"RandomizeFor i=0 To UBound(a)b=Split(a(i),\"|\")If UBound(b)>0 Then s=s&b(Rnd*UBound(b))&\"NextPrint sEnd SubVB如何一直随机抽取 使用timer控件让抽取的代码周期性执行vb 的随机抽取问题 当然,这样查到的永远是表中的前20条记录(ID=1到ID=20)order by 表示对某一列排序,ID 是序列号,RND(ID)是什么意思?它是列名吗?肯定不是.你应该先查明 单选题 这个表中的记录数,当记录数大于20时,再在这个记录数的范围内生成20个不同的随机数:A1,A2,A3,A4,A5.,A20dim fanwei as stringfanwei=\"A1,A2,A3,A4,A5.,A20select top 20*from 单选题 where id in(\"&fanwei&\")\"order by IDVB随机抽取 Private Sub Command1_Click()Randomize '初始化随机数生成器 避免产生相同数字 'Int(m+Rnd*(n-m+1))为求N-M间的随机数 Text1=Int(300*Rnd+1)'随机产生1-300间的数字 Text2用vb编写了这个随机抽取人名的程序，要求一个文本框，一个按钮 Dim xm,n As IntegerPrivate Sub Command1_Click()Static kk=k+1If k Mod 2=1 ThenTimer1.Interval=20Command1.Caption=\"停ElseTimer1.Interval=0Command1.Caption=\"开始End IfEnd SubPrivate Sub Form_Load()xm=Array(\"张三\",\"李四\",\"王五\",\"赵六\",\"钱七\",\"孙八\",\"周九\",\"吴十\",\"郑土\")n=UBound(xm)+1Text1.FontSize=16Text1=\"Command1.Caption=\"开始End SubPrivate Sub Timer1_Timer()x=Int(Rnd*n)Text1=xm(x)End Sub怎么用VB做一个随机抽取器？ 程序主体有两部分，第一部分用随机函数，例如Int(Rnd*50)+1代表百1~50之间随机；抽取随度机数后传递到变量里面；然后抽取第二个随机数，与回变量比较，不一样则传递到第二个变量上，一样则重新抽取；重复，直至X个变量全部赋值，然后输出。答

#变量#vb变量