填空题

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。　　Sub GASR() 　　　　Dim m 　　　　m=Array(10，1，5，6，7) 　　　　For i=0 To 3 　　　　　　For j=【】　　　　　　　　　If m(i) ＞=m(j) Then 　　　　　　　　【】　　　　　　　　　m(i) =m(j) 　　　　　　　　m(j) =t 　　　　　　End If 　　　　Next j 　　　【】　　　　For i=0 To 4 　　　　　　Print m(i) 　　　Next i 　　End Sub

【参考答案】

i + 1 To 4

<上一题目录下一题>

热门试题

填空题

要使标签的背景样式为不透明，应将BackStyle属性设置为【】。

填空题

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 For j=【 】 If m(i) ＞=m(j) Then 【 】 m(i) =m(j) m(j) =t End If Next j 【 】 For i=0 To 4 Print m(i) Next i End Sub