Question

求问VB大神这道题怎么做

求问VB大神这道题怎么做不会啊





• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Private Sub Command1_Click()

Dim a(10) As Integer

Randomize

For i = 1 To 10

a(i) = Int(Rnd * 90) + 10

Print a(i);

Next i

Print

For i = 1 To 9

Print "第" & i & "趟选择排序：";

k = i

For j = i + 1 To 10

If a(j) < a(k) Then k = j

Next j

t = a(i): a(i) = a(k): a(k) = t

Print "【";

For j = 1 To 10

Print a(j);

If j = i Then Print "】";

Next j

Print

Next i

End Sub

Private Sub Command2_Click()

Cls

End Sub

Private Sub Command3_Click()

End

End Sub

追问

哇谢谢你了

Answer 2

你什么时候要？怎么发给你？

追问

谢谢你了已经得到答案了