作业帮 > 综合 > 作业

vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/29 01:57:38
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
Dim a(10)
For i = 0 To 9
a(i) = Int(100 + 100 * Rnd)
Next i
For i = 0 To 8
For j = i To 9
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
Print Join(a, ",")