Dim d(1 to 5) As Integer,i As Integer
For i = 1 To 8
a(i) = Int(Rnd *10)+ 1
Next i
For i = 1 To 5 Step 2
k = i
For j = i + 2 To 7 Step 2
If a(j) < a(k) Or a(j)= a(k) And a(j + 1)< a(k + 1) Then k = j
Next j
If i < > k Then
t = a(i): a(i)= a(k):a(k)= t
t = a(i + 1): a(i + 1)= a(k + 1): a(k + 1)= t
End If
Next i
运行该程序段后,数组 a 各元素的值可能为
A.1,2,1,1,4,3,6,5 | B.1,1,1,2,3,4,5,6 |
C.0,1,5,2,7,4,5,6 | D.3,4,5,2,6,4,7,11 |

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

