题型:综合题 题类:常考题 难易度:普通
浙江省绍兴市2019-2020学年高二下学期信息技术期末调测技术试卷
Const n = 10 ‘n 名学生
Dim a(1 To n) As Integer ‘存放身高
Dim b(1 To n) As String ‘存放性别
Private Sub Form_Load()
'读取身高和性别数据,分别存储在数组a和b中,代码略
For i = 1 To n
List1.AddItem b(i) + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer
Dim s As String
i = 1:
Do While i<j
For k = i To j
If Then
If b(i) = "女" Or a(i) > a(k) Then
s = b(k): b(k) = b(i): b(i) = s
t = a(k): a(k) = a(i): a(i) = t
End If
Else
If Then
s = b(k): b(k) = b(j): b(j) = s
t = a(k): a(k) = a(j): a(j) = t
End If
End If
Next k
If b(i) = "男" Then i = i + 1
If b(j) = "女" Then
Loop
For i = 1 To n
List2.AddItem b(i) + Str(a(i))
Next i
End Sub
试题篮