• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 1232|回复: 1

[分享源码] 分享个我自己用的随机不重复的60个数。 [复制链接]

622515
头像

622515

  • 小学三年级
  • 2192208
  • 69
  • 0
  • 27 朵
  • 221 个
  • 47 个
  • 100
  • 2013-10-12
1#
t T
发表于 2023-09-21 16:51 | |只看楼主
Dim a(60)
For i = 101 To 159
a(i-100) = i
Next//得到61个数

//第二步打乱
For i = 0 To UBound(a)
Randomize
c = Int((60) * Rnd)
b = a(c)
a(c)=a(i)
a(i) = b
Next
//第三步按右Ctrl输出一个数
for i=0 to ubound(a)
k=WaitKey
if k=17 or k=162 then saystring cstr(a(i))
next

点赞
回顶部
622515
头像

622515

  • 小学三年级
  • 2192208
  • 69
  • 0
  • 27 朵
  • 221 个
  • 47 个
  • 100
  • 2013-10-12
2#
t T
发表于 2023-09-22 09:42 | |只看楼主

Dim a(98):e=0
For i = 0 To UBound(a)
a(i) = i + 1
Next
For i = 0 To UBound(a)
Randomize
c = Int(99 * Rnd)
b = a(i)
a(i) = a(c)
a(c)=b
Next
Do
k = WaitKey
If k = 17 or k = 162 Then
If a(e) < 10 Then
a(e) = "0" & a(e)
End If
SayString a(e)
e = e + 1
End If
Loop
//////////////////////////////////////////////////↑每按Ctrl一次就输入一次两位数，不重复的0~99的数。

回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器