通过键盘向文本框输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数并且能够被所选除数整除的5个数添加到列表框List1中，如图10-4所示。
提示 选项按钮Option1是一个控件数组。
图10-4 实验10-2执行结果
Private Sub Command1_Click()
Dim y As Integer
For i = 0 To 2
If = True Then
y = val(Option1(i). caption )
End If
Next
Call calc(y)
End Sub
Private Sub calc(y As Integer)
ClearList
i = 1
x = Val(Text1.Text) + 1
Do While i <= 5
If x Mod y = 0 Then
List1.AddItem x
i = i + 1
End If
x = x + 1
Loop
End Sub
Private Sub ClearList()
For k = List1.ListCount - 1 To 0 Step -1
List1.RemoveItem k
Next k
End Sub
