[求助]有关生成随机数 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]有关生成随机数

标题：[求助]有关生成随机数

只看楼主

防弹武僧

等　级：新手上路
帖　子：4
专家分：0
注　册：2005-11-26

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

[求助]有关生成随机数

求助：如何在VB6.0中生成1-8的随机数？
谢谢

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

2005-11-26 21:18

slorelee

等　级：新手上路
帖　子：13
专家分：0
注　册：2005-11-10

得分:0

Private Sub Command1_Click()
Dim MyValue
Randomize '对随机数生成器做初始化的动作。

MyValue = Int((8 * Rnd) + 1) ' 生成 1 到 8 之间的随机数值
Text1.Text = MyValue
End Sub

2005-11-26 22:07

防弹武僧

等　级：新手上路
帖　子：4
专家分：0
注　册：2005-11-26

得分:0

谢谢，我刚学VB，有不懂的希望大家多多指教

2005-11-27 11:59

KIC

等　级：新手上路
帖　子：31
专家分：0
注　册：2005-12-18

得分:0

书上有例子的吧
自己去试着改改不是更好吗

不做明天的幻想,不言昨日的失败,只奋发于脚下的目标,踏实的奋斗,定有成功的回报......

2005-12-18 12:08