230问答网 > 高悬赏。求VB解答。随机产生10个两位整数放入数组a，然后运用选择分类法将数组a中的数据按从小到大的顺序

高悬赏。求VB解答。随机产生10个两位整数放入数组a，然后运用选择分类法将数组a中的数据按从小到大的顺序

2025-01-08 01:49:08

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim i%, mArr%(9), p%, Tmin%, s%, Odd$
For i = 0 To 9
Randomize (Timer)
mArr(i) = 10 + Int(Rnd * 90)
Print mArr(i);
Next
Print

For i = 0 To 8
Tmin = i
For p = i + 1 To 9
If mArr(p) < mArr(Tmin) Then Tmin = p
Next p
If Tmin <> i Then s = mArr(i): mArr(i) = mArr(Tmin): mArr(Tmin) = s
Next i
Print

For i = 0 To 9
Print mArr(i);
If mArr(i) Mod 2 = 0 Then Odd = Odd & mArr(i) & " "
Next i
Print
Print "偶数有："
Print Odd
End Sub

高悬赏。求VB解答。 随机产生10个两位整数放入数组a，然后运用选择分类法将数组a中的数据按从小到大的顺序

高悬赏。求VB解答。随机产生10个两位整数放入数组a，然后运用选择分类法将数组a中的数据按从小到大的顺序