For i = 1 To ①
k = i
For j = i + 1 To ②
If a(j) < a(k) Then k = j
Next j
If k <> i Then
t = a(k)
a(k) = a(i)
a(i) = t
End If
s = s + Str(a(i))
If ③ Then
List1.AddItem s: s = ""
End If
Next i
划线处的代码应为( )
图a |
图b |
图a |
图b |
Dim a(1 To 20) As Integer
Dim i As Integer, n As Integer
Private Sub Form_Load()
Dim s As String, ch As String
n = 1:s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
a(n) =
Else
n = n + 1
End If
Next i
End Sub
Private Sub Command1_Click()
Dim j As Integer, t1 As Integer, t2 As Integer
For i = 2 To n/2
t1 = a(2 * i - 1): t2 = a(2 * i): j = i - 1
Do While
a(2 * j + 1) = a(2 * j - 1)
a(2 * j + 2) = a(2 * j)
j = j - 1
If j = 0 Then Exit Do
Loop
a(2 * j + 1) = t1
Next i
For i = 1 To n/2
Text2.Text = Text2.Text + Str(a(2 * i - 1)) + Str(a(2 * i))
Next i
End Sub
Dim s As String
Dim i As Integer,sum As Integer
Dim a(1 To 1000) As Integer
Dim b(1 To 1000) As Integer
Dim ton(1 To 6) As Integer '存储选中队列中各个班级的人数
Const m = 6
Const n = 300
Private Sub Form_Load()
For i = 1 To n
'随机生成n个学生编号显示在列表框List1中,并将学生的班级号和性别分别存储在数组a和b中
Next i
End Sub
Private Sub Command1_Click()
Dim j As Integer, k As Integer, tmp As Integer
k=Val(Text1.text)
For i = 1 To n – k + 1
For j =
If ton(a(j)) = 0 Then
sum = sum + 1
End If
If xb(b(j)) = False Then tmp = tmp + 1
Next j
If Then
List2.AddItem Str(i) + Str(i + k - 1)
End If
sum = 0: tmp = 0
For k = 1 To m
ton(k) = 0
Next k
Next i
End Sub
Function xb(data As Integer) As Boolean
xb = False
If data = 0 Then xb = True
End Function