Question

有没有哪位大神会做vb第5题呀，谢谢啦！求指教

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Private Sub Command1_Click()
Dim i As Integer, sum As Integer
For i = 100 To 200
 If Check1.Value And Check2.Value Then
    If i Mod 5 = 0 And i Mod 6 = 0 Then
     sum = sum + i
    End If
 ElseIf Check1.Value Then
   If i Mod 5 = 0 Then sum = sum + i
 ElseIf Check2.Value Then
   If i Mod 6 = 0 Then sum = sum + i
 Else
   sum = sum + i
 End If
Next
Text1.Text = sum

End Sub