能不能从1234567890中自动生成4位的数字？

waterfirejun · 发表于 2009-1-8 17:00

能不能从1234567890中自动生成4位的数字？比如说我按了下启动键它随机跳出来1476再按下出来7859，随机的能实现吗？

corvine99 · 发表于 2009-1-8 17:44

Private Sub CommandButton1_Click()
Dim i%, s%, n, xx As String
n = ""
For i = 1 To 4
Randomize
s = Int((9 - 0 + 1) * Rnd + 0)
n = n + xx + Str(s)
xx = ","
Next
Cells(1, 1).Value = n
End Sub

corvine99 · 发表于 2009-1-8 17:45

如果还不明白，请见附件

luo19761600 · 发表于 2009-1-8 17:48

提示: 作者被禁止或删除内容自动屏蔽

luo19761600 · 发表于 2009-1-8 17:55

提示: 作者被禁止或删除内容自动屏蔽

corvine99 · 发表于 2009-1-8 17:59

呵呵，只能说名你人品有问题。。。。

corvine99 · 发表于 2009-1-8 18:01

下载打开都没有问题，你再试试，如果不行真就是70后的你人品问题了。

corvine99 · 发表于 2009-1-8 18:02

知道你自己写的是什么吗？还好意思发布。。。。切

luo19761600 · 发表于 2009-1-10 09:19

提示: 作者被禁止或删除内容自动屏蔽

luo19761600 · 发表于 2009-1-10 09:34

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			免费注册

[讨论] 能不能从1234567890中自动生成4位的数字？

回复 5楼 luo19761600 的帖子

回复 5楼 luo19761600 的帖子

回复 5楼 luo19761600 的帖子

luo19761600 luo19761600 当前离线性别保密 UID 322608 阅读权限 0 注册时间 2007-8-25 在线时间小时最后登录 1970-1-1 积分 325 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2009-1-8 17:48 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

luo19761600 luo19761600 当前离线性别保密 UID 322608 阅读权限 0 注册时间 2007-8-25 在线时间小时最后登录 1970-1-1 积分 325 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2009-1-8 17:55 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

luo19761600 luo19761600 当前离线性别保密 UID 322608 阅读权限 0 注册时间 2007-8-25 在线时间小时最后登录 1970-1-1 积分 325 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2009-1-10 09:19 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

luo19761600 luo19761600 当前离线性别保密 UID 322608 阅读权限 0 注册时间 2007-8-25 在线时间小时最后登录 1970-1-1 积分 325 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2009-1-10 09:34 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报