实现上述功能的VB程序如下,请回答下列问题。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, m As Integer
Dim num As Integer, t As Integer
Dim a(1 To 100) As Boolean
n = Val(Text1.Text)
m = Val(Text2.Text)
For i = 1 To n
a(i) = True
Next i
①
Do While t > 1
For i = 1 To n
If a(i) = True Then ②
If num = m The
③
t = t - 1
num = 0
Text3.Text = Text3.Text + Str(i)
End If
Next i
Loop
For i = 1 To n
If a(i) = True Then Label2.Caption ="获得礼品同学编号:" + Str(i)
Next i
End Sub
① ② ③