vb编程题:单击窗体,在窗体上显示1~200之间既能被5整除又能被7整除的数的和

如题所述

Private Sub Form_Click()

  Dim i As Long, A As Long

  A = 0

  For i = 1 To 200

    If i Mod 5 = 0 And i Mod 7 = 0 Then

      Print i

      A = A + i

    End If

  Next

  Print "以上是同时被5和7整除的数,和=" & A

End Sub

温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-06-22
for循环1到200,执行除5为ture再除7 ,ture就垒加到变量里。
代码就不给了,很简单。
第2个回答  2012-06-22
' 单击窗体函数里面的代码:
Dim i As Integer ' 从1~200
Dim count As Integer ' 保存所求的和
For i=1 to 200
If (i Mod 5 = 0) And (i Mod 7 = 0) Then
count = count + i
End If
Next i本回答被提问者采纳