随机抽取系统 vb代码 vb，关于随机抽取数的代码

vb，关于随机抽取数的代码 很久没上VB知道了，看看还能不能用这个帐号：）Private Sub Command1_Click()Dim myNum As Integer，myTotal As Integer，myTemp As Integer，i As IntegerRandomize(Timer)Text1.Text=\"DomyTemp=Int(99*Rnd)+1If myTotal>；=6000 Then Exit DomyTotal=myTotal+myTempmyNum=myNum+1Text1.Text=Text1.Text&myTemp&vbCrLfLoopLabel1.Caption=\"Sum：\"&myTotalLabel2.Caption=\"How mant random number？myNumEnd sub用vb编写个随机滚动抽取人名的抽奖系统，怎么样做到不重复并添加一个记录显示已抽到的人名 你这个才十分，编个程序起码半个小时用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 SubVB随机抽取源代码要设置绝对路径要怎么写？ 换成app.Path就行了用VB从Execl的数据中随机抽取一个并显示出来，该如何编写代码？ 随即抽取一个单元格的数据？还是一行？或者一列？需要指定数据区域吗？允许空值吗？随机算法有指定没？