题型：综合题 题类：常考题 难易度：普通
浙江省慈溪市2019-2020学年高二下学期信息技术期末考试试卷
Dim xm（1 to 100）As String ，cj（1 to 100）As Integer
Dim flag（1 to 100）As Boolean
Private Sub Form_ Load()
‘从数据库中读取数据，存储到相应数组中，并输出在列表框List1。第i个人，姓名为xm（i），成绩为cj（i）。人员数量存储到变量n中（1≤n≤100）。代码略
End Sub
Private Sub Cmd__Click()
Dim min As Integer, pmin As Integer
min = cj(1)： pmin = 1
For i=2 To n
If cj（i） < min Then min = cj（i）：
Next i
flag（pmin） = True
pmin= pmin + 1
If pmin=n+1 Then pmin=1
For i=1 To n-2
k = pmin
For j=1 To n
If Then k= j
Next j
If k <> pmin Then
t = cj（k）： cj（k） = cj（pmin）： cj（pmin） = t
C = xm（k）： xm（k） = xm（pmin）： xm（pmin） = c
End If
flag（pmin） = True
pmin=pmin+1
Next i
’将排序后的人员姓名和成绩输出到列表框List2中，代码略。
End Sub
|
排序前 |
86 |
71 |
5 |
41 |
81 |
79 |
37 |
89 |
|
排序后 |
5 |
37 |
41 |
71 |
79 |
89 |
86 |
81 |
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n=8
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer，j As Integer，k As Integer，t As Integer
Dim flag As Boolean
‘读取一组正整数，存储在数组a中。代码略
For i=1 To n-1
‘(1)
If IsPrime(a(k))Then flag=True Else flag=False
For j=i+1 To n
If IsPrime(a(i))Then
If 
Then ‘(2)
k=j
flag=True
End If
End If
Next j
If k<>i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
If Not flag Then Exit For ‘Exit For表示退出循环
Next i
‘依次输出排序后的数据。代码略
End Sub
Function IsPrime(m As Integer)As Boolean
‘本函数判断m是否是素数：是素数返问值为True，不是素数返回值为False
‘代码略
End Function
试题篮
