程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第10章实验答案.docVIP

实验10-2： Private Sub Command1_Click() Dim y As Integer For i = 0 To 2 If Option1(i) = 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 实验10-3： Private Sub Command1_Click() Dim m As Integer Dim n