找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 4078|回复: 2

[已回复] 怎么随机不了呢

[复制链接]

3

主题

3

回帖

9

积分

按键电脑&手机班学员

鲜花
0
猫粮
43
发表于 2019-9-7 19:55:27 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
x = int((10-2+1)*Rnd()+2)
TracePrint x

s = Int((3000 - 1000 + 1) * Rnd() + 1000)
TracePrint s
Call Plugin.File.WriteFileEx("c:\s.txt", x & vbCrLf & s)

一直显示是82067
8
2067


楼主热帖
  • 打卡等级:武林至尊

1087

主题

2143

回帖

4337

积分

院长

鲜花
9
猫粮
7540
QQ
发表于 2019-9-7 20:59:39 | 显示全部楼层
开头加一句Randomize

3

主题

3

回帖

9

积分

按键电脑&手机班学员

鲜花
0
猫粮
43
 楼主| 发表于 2019-9-11 11:56:26 | 显示全部楼层
谢谢老师。已成功了。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-12-28 04:24

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表