请将划线处的代码补充完整。
Dim b (1 To n) As String'存储会议实际到的人员名单
Dim flag (1 To n) As Boolean, m As Integer
Private Sub Form_Load()
'将n个应到人员姓名依次存储在数组a中,将m个实际参加会议人员姓名依次存储在数组b中
'在列表柱1显示应到人员姓名,在列表框2显示实到人员姓名,该过程代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i=1 To n
flag(i)=False
Next i
i=1
Do While i<=m
For j=1 To n
If ①____ Thenflag(j)=True
Exit For'退出for循环
End If
Next j
i=i+1
Loop
For i=1 To n
If ②____ Then List3. AddItem a(i)
Next i
End Sub
同类型试题
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