有100备用个代码，用VB如何随机的调用某一段代码

ddd

Sub Code1()
  ...
End Sub

Sub Code2()
 ...
End Sub
....

Sub Usage
  Randomize
  Dim i As Integer
  i=Int(Rnd()*100+1)
  Select Case i
    Case 1: Call Code1()
    Case 2: Call Code2()
    ....
  End Select
End Sub

2楼的回复是什么意思？

2楼的意思是"顶"

前段时间刚好看到CallbyName这个函数,可以减少不少代码



[[it] 本帖最后由 永夜的极光 于 2008-7-29 14:02 编辑 [/it]]

Thank you very much indeed

：“Sub Usage”这个是函数吧

自定义过程