求问VB大神这道题怎么做
答案:2 悬赏:0 手机版
解决时间 2021-03-09 11:54
- 提问者网友：姑娘长的好罪过
- 2021-03-08 15:37
求问VB大神这道题怎么做
最佳答案
- 五星知识达人网友：七十二街
- 2021-03-08 16:09
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
追问哇谢谢你了
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
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
Next i
End Sub
Private Sub Command2_Click()
Cls
End Sub
Private Sub Command3_Click()
End
End Sub
追问哇谢谢你了
全部回答
- 1楼网友：封刀令
- 2021-03-08 16:27
你什么时候要？怎么发给你？追问谢谢你了已经得到答案了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯