vb点名程序随机点名不重复算法的实现算法复杂度最优为O(n)

算法：

1.将姓名都装入一个数组，并记录下需随机的数a，首次为数组长度
2.随机产生0~a的一个整数i
3.输出数组arr(i)，同时将最末尾的arr(a)放到arr(i)位置，并且a-1
4.再次点击窗体，开始重复执行3

解释：总体思想就是每次只对未参与随机的元素进行随机。上面的算法也可以倒过来，把随机过的数值前置，从每次随机：0~5、0~4、0~3 。。。变为每次随机：0~5、1~5、2~5 。。。有人会问如果随机过的索引都在那个区间不就重复了吗？看算法，每次随机后都已经将它“拎出去了”

代码实现：

Option Explicit
Dim arr
Dim a As Integer
'初始化
Private Sub Form_Load()arr = Split("A001,A002,A003,A004,A005,A006", ",")a = UBound(arr)
End Sub
'点一次，随机一个出来
Private Sub Command1_Click()Dim i As Integer, intRnd As Integer, strTmp As StringIf a = -1 ThenMsgBox "所有成员都随机过一次了！", vbExclamationExit SubEnd IfRandomizeintRnd = Int(Rnd * a)Me.Print "索引:" & intRnd, arr(intRnd), "提取前:" & Join(arr, ",") & " 参与随机" & a + 1 & "个", '输出并写入文件Open "结果.txt" For Append As #1Print #1, arr(intRnd)Close #1strTmp = arr(intRnd)arr(intRnd) = arr(a)arr(a) = strTmpa = a - 1Me.Print "提取后:" & Join(arr, ",") & " 剩余" & a + 1 & "个"
End Sub

运行结果：

更新的优化版本：

Option ExplicitDim arrStudentName '存放学生姓名的数组，将会在下面初始化
Dim intLastCursor As Integer '始终记录需参与随机数组的最后一个索引。比如第一次在0~5随机，下次在0~4随机。。。
'初始化
Private Sub Form_Load()Me.AutoRedraw = TruearrStudentName = Split("A001,A002,A003,A004,A005,A006", ",")intLastCursor = UBound(arrStudentName)
End Sub
'点一次，随机一个出来
Private Sub Form_Click()Dim i As Integer, intRnd As IntegerIf intLastCursor = -1 Then MsgBox "所有成员都随机过一次了！", vbExclamation: Exit SubRandomizeintRnd = Int(Rnd * intLastCursor)Me.Print "索引:" & intRnd, arrStudentName(intRnd), "提取前数组打印:" & Join(arrStudentName, ",") & " 参与随机" & intLastCursor + 1 & "个", '输出并写入文件arrStudentName(intRnd) = arrStudentName(intLastCursor) '将数组最末的数字“提”到已经随机出去的“位置”intLastCursor = intLastCursor - 1 '参与随机的数字-1，第二次只在0~4随机，在下一次在0~3随机，以此类推Me.Print "提取后数组打印:" & Join(arrStudentName, ",") & " 剩余" & intLastCursor + 1 & "个"
End Sub

继续简化版本：

Option Explicit
Dim arr1, intStartIndex As Integer, intRnd As Integer
Private Sub Form_Load()arr1 = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j") '初始化intLastIndex = UBound(arr1)
End Sub
Private Sub Form_Click()If intStartIndex > UBound(arr1) Then MsgBox "都已经随机完了!", vbExclamation: Exit SubRandomize '随机数生成器初始化intRnd = Int(Rnd * intLastIndex) '随机产生数字介于：0~intLastIndexPrint intLastIndex, arr1(intRnd)arr1(intRnd) = arr1(intLastIndex)intLastIndex = intLastIndex - 1
End Sub

前置的版本：

Option Explicit
Dim arr1, intStartIndex As Integer, intRnd As Integer
Private Sub Form_Load()arr1 = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j") '初始化
End Sub
Private Sub Form_Click()If intStartIndex > UBound(arr1) Then MsgBox "都已经随机完了!", vbExclamation: Exit SubRandomize '随机数生成器初始化intRnd = intStartIndex + Int(Rnd * (UBound(arr1) - intStartIndex)) '随机产生数字介于：intStartIndex~数组最大索引Print intStartIndex, arr1(intRnd)arr1(intRnd) = arr1(intStartIndex)intStartIndex = intStartIndex + 1
End Sub

vb点名程序随机点名不重复算法的实现算法复杂度最优为O(n)相关推荐

matlab运用函数随机点名,matlab随机点名程序
思路: 总共n个学生(对应学号从1到n):每次抽查m个学生的作业: 输入n和m.得到每次抽查的学号: 而每次抽查的学号分为两部分:一部分是上次抽查过的人中随机30%的学号:另一部分是为抽查过的人中70 ...
javascript案例11——摇号、点名、随机点名
一.案例描述点击开始按钮,所有的开始滚动显示,在不点击停止的情况下,"开始"按钮无法再次点击.之后停止之后才能再开始点名. 二.案例效果演示三.案例局部代码 html代码: & ...
分布式机器学习：同步并行SGD算法的实现与复杂度分析
1 分布式机器学习概述大规模机器学习训练常面临计算量大.训练数据大(单机存不下).模型规模大的问题,对此分布式机器学习是一个很好的解决方案. 1)对于计算量大的问题,分布式多机并行运算可以基本解决. ...
怎么算matlab算法复杂度,算法复杂度分析
1. 何为数据结构?何为算法? 简单来说,数据结构就是数据的存储方式,比如数组就是把数据存在一段连续的内存上,而链表则是通过指针的关联将数据存在任意可用的内存上:栈是先进后出,队列是先进先出. 而算法 ...
C语言实现课堂随机点名系统
今天重温一下在学校时写的课程设计,复习一下在学校里学到的东西,同时也希望能够帮助到那些和我一样被课设所折磨的可怜人儿~ 文章目录 1.项目要求 2.项目功能的实现函数一:将选择打开文件内容读入结构体 ...
Excel随机点名，无须VBA又很自动化！
[用Excel实现自动点名] Excel自动点名的两种方法:1.公式法:2.VBA. 今天来说说如果把两个结合起来,看起来十分自动,但就是简单的公式操作哈哈. [公式法] 第一步:在A列记录名字第二 ...
53.垃圾回收算法的实现原理、启动Java垃圾回收、Java垃圾回收过程、垃圾回收中实例的终结、对象什么时候符合垃圾回收的条件、GC Scope 示例程序、GC OutOfMemoryError的示例
53.垃圾回收算法的实现原理 53.1.目录 53.2.启动Java垃圾回收 53.3.Java垃圾回收过程 53.4.垃圾回收中实例的终结 53.5.对象什么时候符合垃圾回收的条件? 53.5.1. ...
C++Miller Rabin算法的实现(附完整源码)
C++Miller Rabin算法的实现算法 C++Miller Rabin算法的实现算法完整源码(定义,实现,main函数测试) C++Miller Rabin算法的实现算法完整源码(定义,实现,m ...
用python做一个随机点名程序（不重复点名）
用python做一个简单的随机点名程序(不重复点名) 这是我来到csdn的第一篇文章,内容如果有瑕疵的地方或者代码可以进一步改善,请大家对我指点一二.谢谢! 废话不多说,上代码! import ran ...

vb点名程序随机点名不重复算法的实现算法复杂度最优为O(n)

vb点名程序随机点名不重复算法的实现算法复杂度最优为O(n)相关推荐

最新文章

热门文章

vb点名程序 随机点名不重复算法的实现 算法复杂度最优为O(n)

vb点名程序 随机点名不重复算法的实现 算法复杂度最优为O(n)相关推荐

最新文章

热门文章

vb点名程序随机点名不重复算法的实现算法复杂度最优为O(n)

vb点名程序随机点名不重复算法的实现算法复杂度最优为O(n)相关推荐