早教吧 育儿知识 作业答案 考试题库 百科 知识分享

产生10个互不相同随机数,并按照升序排列vb

题目详情
产生10个互不相同随机数,并按照升序排列
vb
▼优质解答
答案和解析
Private Sub Command1_Click() Dim a(10) For i = 1 To 10 Do a(i) = 10 + Int(Rnd * 20) flag = True For j = 1 To i - 1 If a(i) = a(j) Then flag = False Exi...