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

z99yy6h 发表于 2008-7-29 10:51

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

z99yy6h 发表于 2008-7-29 12:25

ddd

octillion 发表于 2008-7-29 12:39

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

octillion 发表于 2008-7-29 13:06

2楼的回复是什么意思？

永夜的极光 发表于 2008-7-29 14:00

2楼的意思是"顶"

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

[quote][color=Gray]'VB语法高亮(by 永夜的极光) V1.03[/color]
[color=Green]Option Explicit

Sub[/color] Code1[color=Magenta]()[/color]
  MsgBox [color=Blue]1[/color]
[color=Green]End Sub

Sub[/color] Code2[color=Magenta]()[/color]
  MsgBox [color=Blue]2[/color]
[color=Green]End Sub

Sub[/color] Code3[color=Magenta]()[/color]
  MsgBox [color=Blue]3[/color]
[color=Green]End Sub

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

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

z99yy6h 发表于 2008-7-30 12:02

Thank you very much indeed

z99yy6h 发表于 2008-7-30 21:08

：“Sub Usage”这个是函数吧

cba817 发表于 2008-7-31 15:56

自定义过程

页: [1]