作业帮 > 综合 > 作业

VB如何产生一组0-9的随机数而且互相不重复,然后导入到a,b,c,d,e,f,g,h,i,j这十个量当中?

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/30 23:17:37
VB如何产生一组0-9的随机数而且互相不重复,然后导入到a,b,c,d,e,f,g,h,i,j这十个量当中?
烟花的不行,而且请各位详细说明原理.还有:测试过再拿上来
导入到a,b,c,d,e,f,g,h,i,j这十个量当中
我试试...
VB如何产生一组0-9的随机数而且互相不重复,然后导入到a,b,c,d,e,f,g,h,i,j这十个量当中?
Private Sub Form_Load()
Dim a(9) As Integer,i As Integer,j As Integer
Randomize
Show
For i = 0 To 9
a(i) = Rnd * 10
For j = 0 To i
If i j And a(i) = a(j) Then i = i - 1
Next
Next
For i = 0 To 9
Print Chr(97 + i) & "=" & a(i)
Next
End Su