赞 大刀向楼主砍去 幼苗
共回答了18个问题采纳率：88.9% 举报
Dim MyValue(10) As Integer
Dim i,j,p As Integer
For i = 0 To 9
Randomize
MyValue(i) = Int((100 * Rnd) + 1)
Next
For i = 0 To 9
For j = i + 1 To 10
If MyValue(i) > MyValue(j) Then
p = MyValue(i)
MyValue(i) = MyValue(j)
MyValue(j) = p
End If
Next
Next
For i = 0 To 9
Print MyValue(i)
Next i
Dim i,j,p As Integer
For i = 0 To 9
Randomize
MyValue(i) = Int((100 * Rnd) + 1)
Next
For i = 0 To 9
For j = i + 1 To 10
If MyValue(i) > MyValue(j) Then
p = MyValue(i)
MyValue(i) = MyValue(j)
MyValue(j) = p
End If
Next
Next
For i = 0 To 9
Print MyValue(i)
Next i
1年前
4
可能相似的问题
-
1年前1个回答
-
从1至100中选出10 个不一样的数,使这10个数的倒数和为1
1年前5个回答
-
1年前1个回答
-
1年前1个回答
-
生成10个0~100之间的随机整数,按从小到大的顺序输出这些数
1年前1个回答
-
1年前1个回答
你能帮帮他们吗