vb如何生成不重复随机数组 简单。在程序里设置一个数组变量，成员不定，每生成一个随机数就保存在数组元素里。在程序末尾加一行if判断语句，如果新生成的数等于某个数组元素，则重新生成随机数；否则放行，直接输出。
VB计算数组中相同数字的个数 Dim a(14)As IntegerDim b(10)As IntegerPrivate Sub Command1_Click()For i=1 To 14a(i)=Int(100*Rnd())‘这里产生100以内的随机数，如要个位数，改成10Print a(i)；Next iPrintFor i=1 To 14x=a(i)Doj=a(i)Mod 10b(j)=b(j)+1x=x \\ 10Loop Until x=0Next iFor i=0 To 9If b(i)>；0 Then Print\"有；b(i)；个；iNext iEnd Sub
vb随机取数组内数字，不重复！ Private？Sub？Command1_Click()MsgBox？GetRndItem(3)End？SubFunction？GetRndItem(num？As？Integer)As？String？Dim？a？a=Split(\"125？625#235？456#658？125#125？。
