vb随机抽取数字代码 求VB随机抽取代码

求VB随机抽取代码 private command1_click()randomize '如不加此句每次随即出来得数字都是一样的 n=int(rnd*100+1)text1.text=n end sub 在窗体上增加两个command1和command2，一个文本框。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 subVB随机抽取源代码要设置绝对路径要怎么写？ 换成app.Path就行了

#随机数#sub