[填空題] 下列程序為比較排序法排序程序，請補充完該程序(該程序對10個數值數據進行排序處理)。 Dim a(1 To 10)AS Integer Priv
2021-07-20
[填空題] 下列程序為比較排序法排序程序，請補充完該程序(該程序對10個數值數據進行排序處理)。
Dim a(1 To 10)AS Integer
Private Sub Form _Click()
Randomize
p=“”
For i = 1 To 10
Do
x = Int (Rnd * 90) + 10
yes = 0
For j = 1 To 【9】
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
Next i
For i = 1 To 9
For 【10】 To 10
If a(i) ＞ a(j) Then
t = a(i)
【11】
a(j) = t
End If
Next j
Next i
p = Str(a(1))
For i = 2 To 10
p = p & “,” & Str(a(i))
Print p
Next i
End Sub
正確答案：[9] i-1 [10] j=1 [11] a(i)=a(j)
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。