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

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

全能ASP/PHP/ASP.NET主机，支持月付	专业 MSSQL 数据库空间，支持月付	专业 MySQL 数据库空间，支持月付	学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦

共有 371 人关注过本帖

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

收藏订阅推荐打印

z99yy6h

等级：新手上路
帖子：27
积分：458
注册：2008-6-24

楼主

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

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

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

2008-7-29 10:51

z99yy6h

等级：新手上路
帖子：27
积分：458
注册：2008-6-24

第 2 楼

ddd

2008-7-29 12:25

octillion

等级：中级会员
帖子：195
积分：2156
注册：2008-7-24

第 3 楼

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-7-29 12:39

octillion

等级：中级会员
帖子：195
积分：2156
注册：2008-7-24

第 4 楼

2楼的回复是什么意思？

2008-7-29 13:06

永夜的极光

等级：版主
威望：17
帖子：2638
积分：33591
注册：2007-10-9

第 5 楼

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" & CStr(Int(Rnd() * [color=Blue]3) + 1), VbMethod
End Sub