搜索
Private Sub Command1_Click()
Dim a(1 To 6) As Integer, i As Integer
For i = 1 To 6
a(i) = Int(Rnd * 5) * 2 + 1
Next i
For i = 2 To 6 Step 2
a(i) = cha(a(i -1), a(i))
Next i
End Sub
Function cha(x As Integer, y As Integer) As Integer
Dim t As Integer
If x < y Then
t=x: x = y: y = t
cha = y
Else
cha = x -1
End If
End Function
执行该程序段后，在下列选项中，a(1)～a(6)各元素值可能的是（ ）
| A．8，9，3，2，5，1 | B．7，6，5，5，3，1 |
| C．9，3，5，4，4，3 | D．7，3，1，0，5，4 |
同类型试题
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
