如何用VB从几个文字中随机不重复抽取三个文字组成一个名字 vb随机抽取不重复数据

怎样使以下随机函数不重复出现（VB）？ 你用的是随机函数啊。随机函数只是随机出现，不代表不会重复啊你这样搞，定义个数组。然后把查询过的随机数据保存在数组里。在下次查询的时候使用FOR循环检索下，然后再for里用个if去判断。重复的直接跳过。这样就行了、代码会写吗？不会的话追问，我给你写好excel中VB随机抽取如何实现不重复 可以考虑用字典法：set d=CreateObject(\"Scripting.dictionary\")for i=1 to 100L：s=round(rand()，3)if d.exists(s)then goto Ld(s)=\"next如何从数据库中随机抽取不重复数据 form_load()获取所有学生名字到一个数组，按钮事件产生随机数（根据数组大小）作为索引获取学生名字，并将该名字从数组删除（用一个中间数组做过度）。将数组改为collection可以简化代码。VB随机抽取不重复数据如何实现？ 用个数组每生成一个新数字的时候与前几个做比较如果重复的话返回重新生产VB中，如何随机抽取多组1-30之间的不重复的随机数。 代码如下：Private Sub Command1_Click()'开始按钮 For i=0 To 2 Randomize Timer1(i).Interval=Int(Rnd*30*(i+1)+100)Next iEnd SubPrivate Sub Command3_Click()'结束。

#vb