[填空題] 以下程序段的功能為，輸入8個數(shù)給數(shù)組a,然后采用插入排序算法，將數(shù)組a中的數(shù)按照升序排列存入數(shù)組b中。請?zhí)羁?。Private Sub Command
2021-07-20
[填空題] 以下程序段的功能為，輸入8個數(shù)給數(shù)組a,然后采用插入排序算法，將數(shù)組a中的數(shù)按照升序排列存入數(shù)組b中。請?zhí)羁铡?/p>
Private Sub Command1_Click ()
Dim a(1 To 8), b(1 To 8)
For i = 1 To 8
a(i) = InputBox("請輸入")
Print a(i)
Next i
For i = 1 To 8
s = 1
For j = 1 To 8
If 【6】 Then
s = s + 1
End If
Next j
【7】
Next i
End Sub
正確答案：a(i)＞a(j) b(s)=a(i)
參考解析：首先通過InputBox語句輸入8個數(shù)給數(shù)組a。將數(shù)組a中的每個元素按順序與其余 9個元素比較。例如對元素a(1)，如果有n個元素小于該元素，則該元素賦值給數(shù)組b中的b(n +1)。
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。