asp vbscript问题 十个球抽出六个球，急 Dim t(9)，c(5)，i，x，selt(0)=1t(1)=2t(2)=3t(3)=4t(4)=5t(5)=6t(6)=7t(7)=8t(8)=9t(9)=10Response.Write Join(t，\"，\")&\"RandomizeFor i=0 To UBound(c)x=UBound(t)-isel=CInt(Rnd()*x)c(i)=t(sel)If selt(sel)=t(x)t(x)=c(i)End IfNextWScript.Echo Join(c，\"，\")
一段VB的程序，看不懂它的作用是什么，求解答 产生一个 由 Num 个在Up 与 Down 之间的数字组成的数组，并且数组中的数各不相同。Function GetRnd(ByVal Up As Integer，ByVal Down As Integer，ByVal Num As Integer)As Integer()Randomize Dim T()As Integer，Tmp As Integer，i As Integer，j As Integer ReDim T(Num-1)'让T中元素个数为 Num T(0)=Int(Rnd*Up-Down+1)+Down'让T(0)为Up~Down间的某随机数 Dim B As Boolean For i=1 To Num-1 Do While True Tmp=Int(Rnd*Up-Down+1)+Down'产生一个Up~Down间的某随机数 B=False For j=0 To i-1 If Tmp=T(j)Then'判断这个数是否已经在数组里了 B=True'已经在数组里 End If Next If B=False Then T(i)=Tmp'不在数组里的情况，把这个数保存到数组里 Exit Do End If Loop Next '下面是用冒泡排序法，对数组中的数字排序 For i=0 To Num-2 For j=i+1 To Num-1 If T(i)>；T(j)Then Tmp=T(i)T(i)=T(j)T(j)=Tmp End If Next Next GetRnd=T'返回值 End Function
C语言程序设计的一个问题，请高手帮忙！ 你这个题目是求排列问题。我写了个输出xx-xx格式的，其它输出格式的楼主最好自己动动手。includeint s[9]={1，2，3，4，5，6，7，8，9}；void Swap(int*a，int*b){if(a=b)return；int tmp=*a；a=*b；b=tmp；}void P(int step，int n，int m){if(step>；=m){for(int i=0；i；i+)printf(\"%d\"，s[i])；printf(\"-\")；for(i=2；i；i+)printf(\"%d\"，s[i])；printf(\"\\t\")；return；}for(int i=step；i；i+){Swap(&s[step]，&s[i])；P(step+1，n，m)；Swap(&s[step]，&s[i])；}}void main(){P(0，7，4)；printf(\"\\n\")；}
Excel中如何得到不重复的随机数，有时候，我们需要一组不重复的随机数，比如排座次、排值日等等，那么在Excel中是否可以生成不重复的随机数呢？答案是肯定的，这里介绍两种。
如何无重复的从一个数组中随机抽取一个数字 如何无重复的从一个数组中随机抽取一个数字，知道这个数组中的数字全部被抽完一边！我最近刚用Js写了这么一段程序：你自己转化。
excel如何实现随机抽取且不重复
