关于vb的随机抽取 请参考。代码和EXE文件都在附件中。登陆初始密码为123456名单和名单密码保存路径设置为当前程序路径下，你如果需要存放在D：\\名单.txt中，请自己修改。刚刚你的提问我已经回答一次了，答案竟然被违规了，晕~
VB从100个数中随机抽取10个怎么做？谢谢！ '有点忘了vb怎么写，看看大概意思吧。dim v(10)，A(100)as integerdim i，index，d，t as intergerdim goodValuesetValue(A)'将A赋值，比如：for i=1 to 100 A(i)=i next iinit(v)'为v（存储取出的值）赋给一个非数组A中任何一个值。如：A(i)=-1index=0 '已选取个数while(index)d=getRand(1，100)'为 d 找个1-100之间的随机数，是 rand()还是 cint(rnd*100)？goodValue=true '假设可用for i=1 to 10if(A(d)=v(i))goodValue=false '已存在于v(10)中，无效的数end ifnextif(goodValue=true)'有效的数index+1 '有效数字个数加一v(index)=A(d)'存入数组end ifend while有点没懂，是这10个数不能有相等(而100个数可能有数相等)；还是只需每次取得下标不同即可(这样的话用v纪录下标值d而不是A(d)，判断也是，就行了)…
怎么用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 Sub
VB问题：如何从指定的两张图片中随机抽取一张图片，跪求详细解答 思路：用随机函数，产生一个1或2的数字，然后图片文件名就命名为：1.jpg2.jpg
用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
