学进去-教育应平等而普惠
试题
类型:操作题
难度系数:0.40
所属科目:高中信息技术
小杜编写了一个会议签到统计的VB程序。假设人员名单中没有重名,运行界面如图所示,列表框1显示会议应到人员名单,列表框2显示会议实际出席人员名单,单击“统计”按钮Command1,列表框3示缺席人员名单。实现上述功能的VB程序如下,

请将划线处的代码补充完整。
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 ____ Then
flag(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

用户名称
2019-09-19

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

用户名称
2019-09-19
我要答疑
编写解析
解析:

奖学金将在审核通过后自动发放到帐

提交
我要答疑
我要答疑:
提交