新人报道送上 小玩意 欢迎支持喜欢的 追贴
下载地址
程序代码：Private Sub command1_click()
Dim a(1 To 10) As Integer
a(1) = 1
Print a(1)
For j = 2 To 10
a(j) = a(j - 1) + 1
Print a(j)
Next j
For i = 1 To 10
For j = i To 个10
If a(i) < a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
：方案1Dim a(1 To 10) As Integer
a(1) = 1
Print a(1)
For j = 2 To 10
a(j) = a(j - 1) + 1
Print a(j)
Next j
For i = 1 To 10
For j = i To 个10
If a(i) < a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
360云盘下载：http:// 访问密码 073f