输入不重复的随机整数(参考答案在1楼)

HYY514 · 发表于 2008-6-23 21:04

Sub fx() Dim i%, n% Dim a(200) As BooleanFor i = 1 To 10 pl: n = Int(Rnd * (200 - 100 + 1)) + 100 If Not a(n) Then Cells(i, 1) = n a(n) = True Else GoTo pl End If Next End Sub

皮皮1998 · 发表于 2008-6-23 22:58

游客，如果您要查看本帖隐藏内容请回复

???? · 发表于 2008-6-23 22:59

学习学习

???? · 发表于 2008-6-23 23:03

楼上的 Rnd() * 100 + 101 ，疑似有误，应为 Rnd() * 101 + 100

兰色幻想 · 发表于 2008-6-24 11:55

答案在一楼已提供.

兰色幻想 · 发表于 2008-6-24 11:56

大家的答案都很好,已阅[em05]

ycb20010823 · 发表于 2008-6-25 12:34

兰版好，我的答案这样写行吗？11楼！

飞龙在天 · 发表于 2008-6-25 12:51

学习

laosanjie · 发表于 2008-6-26 16:27

学习一下！

老灰狼 · 发表于 2008-7-2 11:04

学习

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

[习题] 输入不重复的随机整数(参考答案在1楼)