第1题
Option Base 1
Private Sub Command1_Click()
Dim a()
a=Array(678,45,324,528,439,387,87,875,273,823)
Fori=【 】
Forj= 【 】
If a(j)【 】a(j+1)Then
a1=a(j)
a(j)=a(j+1)
a(j+1)=al
End lf
Nextj
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
第3题
第4题
第5题
第6题
第7题
第9题
Option Base 1
Private Sub Command1_Click ()
Dim a
a=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823)
For i=【 】
For j=【 】
If a(i)【 】a(j) Then
a1=a(i)
a(i)=a(j)
a (j) =a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
第10题
A. Form=0 To 4
B. Form=0 To 4
C. Form=1 To 4
D. Form=1 To 4
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!