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

编程论坛 → 开发语言 → 『 VB6论坛』 → 有100备用个代码，用VB如何随机的调用某一段代码

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

只看楼主

z99yy6h

等　级：新手上路
帖　子：27
专家分：0
注　册：2008-6-24

楼主

问题点数：0 回复次数：7

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

搜索更多相关主题的帖子: 随机　代码　

2008-07-29 10:51

z99yy6h

等　级：新手上路
帖　子：27
专家分：0
注　册：2008-6-24

第 2 楼

得分:0

ddd

2008-07-29 12:25

octillion

等　级：新手上路
帖　子：195
专家分：0
注　册：2008-7-24

第 3 楼

得分:0

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

2008-07-29 12:39

octillion

等　级：新手上路
帖　子：195
专家分：0
注　册：2008-7-24

第 4 楼

得分:0

2楼的回复是什么意思？

2008-07-29 13:06

永夜的极光

等　级：贵宾
威　望：27
帖　子：2721
专家分：1
注　册：2007-10-9

第 5 楼

得分:0

2楼的意思是"顶"

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

'VB语法高亮(by 永夜的极光) V1.03
Option Explicit

Sub Code1()
  MsgBox 1
End Sub

Sub Code2()
  MsgBox 2
End Sub

Sub Code3()
  MsgBox 3
End Sub

Private Sub Command1_Click()
  CallByName Form1, [color=DarkOliveGreen]"Code" &[/color] CStr(Int(Rnd() * [color=Blue]3) + 1),[/color] VbMethod
End Sub

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