查看: 3  |  回复: 0
  VB6 去掉20个随机数中重复的数字
楼主
发表于 今天 07:53

新建From1(窗体),新建Command1(按钮CommandButton),代码:

具体代码只能由VIP查看,请升级

运行结果:

8 9 14 20 15 13 10 12 1 9 5 9 15 17 18 7 2 9 14 5 
共有不重复个数:14
(i=0)8 (i=1)9 (i=2)14 (i=3)20 (i=4)15 (i=5)13 (i=6)10 (i=7)12 (i=8)1 (i=9)5 (i=10)17 (i=11)18 (i=12)7 (i=13)2


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2025 MaNongKu.com