从100个数字中按照随机顺序遍历，不会重复选择，不用判断语句

leongwong

于 2006-08-31 08:53:00 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏：开发技术文章标签： command

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.youkuaiyun.com/leongwong/article/details/1147480

开发技术专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用VBA编写的简单程序，该程序首先初始化一个包含10个元素的数组，然后通过随机选择的方式将数组中的数值进行倒序打印并交换位置。此过程展示了如何在VBA中操作数组及实现基本的随机排序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Command1_Click()
Dim A(9) As Long
Dim X As Long
Dim I As Long
Dim L As Long
Me.Cls
For I = 0 To 9
   A(I) = I
Next I
For I = 9 To 0 Step -1
   X = Int(I * Rnd)
   Me.Print A(X)
   L=A(X)
   A(X) = A(I)
   A(I)=L
Next
End Sub

http://community.youkuaiyun.com/Expert/topic/4985/4985999.xml?temp=.9327967

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。