VB 产生1-400的随机数 用int(Rnd)

[复制链接]
查看11 | 回复3 | 2012-6-27 17:17:12 | 显示全部楼层 |阅读模式
Private Sub Command1_Click()Dim a As IntegerRandomizea = Int(Rnd() * 400) + 1Print aEnd Sub...
回复

使用道具 举报

千问 | 2012-6-27 17:17:12 | 显示全部楼层
Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式。对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有根据系统计时器得到的种子。为了生成某个范围内的随机整数,...
回复

使用道具 举报

千问 | 2012-6-27 17:17:12 | 显示全部楼层
dim x as integerx=int(rnd*400+1)...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行