Question

VB 编写程序 计算100到200之间能被3整除但不能被7整除的所有整数的和 并把结婚果在消息对话框中显示出来

谢谢了 请速度 考试中

Answer 1

Private Sub Form_Click()
For i = 100 To 200
If i Mod 3 = 0 And i Mod 7 <> 0 Then
s = s + i
End If
Next
t = MsgBox("结果是" & s, vbOKOnly, "你的答案")
End Sub

Answer 2

就一个循环+一个判断而已，你也太懒了吧

追问

不好意思 我是帮别人问的 他正在考试 我是没有学过VB的 所以帮不到 他不会所以我来提问了 麻烦你了