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这十个量当中
我试试...
烟花的不行,而且请各位详细说明原理.还有:测试过再拿上来
导入到a,b,c,d,e,f,g,h,i,j这十个量当中
我试试...
![VB如何产生一组0-9的随机数而且互相不重复,然后导入到a,b,c,d,e,f,g,h,i,j这十个量当中?](/uploads/image/z/351961-25-1.jpg?t=VB%E5%A6%82%E4%BD%95%E4%BA%A7%E7%94%9F%E4%B8%80%E7%BB%840-9%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B0%E8%80%8C%E4%B8%94%E4%BA%92%E7%9B%B8%E4%B8%8D%E9%87%8D%E5%A4%8D%2C%E7%84%B6%E5%90%8E%E5%AF%BC%E5%85%A5%E5%88%B0a%2Cb%2Cc%2Cd%2Ce%2Cf%2Cg%2Ch%2Ci%2Cj%E8%BF%99%E5%8D%81%E4%B8%AA%E9%87%8F%E5%BD%93%E4%B8%AD%3F)
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
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
VB如何产生一组0-9的随机数而且互相不重复,然后导入到a,b,c,d,e,f,g,h,i,j这十个量当中?
A-B=C,D/E=F,G+H=I,C*F=I如果用1到9数字代替,而且不能重复,有几种算法?
关于中心对称在A,B,C,D,E,F,G,H,I,J,K这十个大写英文字母当中,是中心对称图形的有哪几个?K不是来的,我
A.B.C.D.E.F.G.H.I.J代表0-9,已知:A=4.J=0 A+B+C+D=D+E+F+G=G+H+I+J=
请用VB的循环语句打印出如下图形:A B C D E F G H I J K L M N O P
A B C D E F G H I J K L 的音标分别是什么?
A+B+C+D=D+E+F+G=G+H+I+J=17
A,B,C,D,E,F,G,H,I,J是中学化学常见的9种化合物,
excel表一组数据,a,b,c,d,e分别对应f,g,h,i,j,设公式,当a到e里最小值是a(打个比方,也可以是b到
已知a、b、c、d、e、f、g、h、i、j、k代表十个互不相同的大于0的自然数,要使下列等式相等,a最小是多少?
A+B+C+D=D+E+F+G=G+H+I+J=17 A=4 J=0怎样算最后等于17
很无聊的问题,(A+B+C)(D+E+F)(G+H+I)(J+K+L)(M+N+O)是