vb计算1到1000内能被2和3整除但不能被4整除的所有数之和

 我来答
百度网友bdb9803
2015-06-14 · TA获得超过1.1万个赞
知道大有可为答主
回答量:1.1万
采纳率:53%
帮助的人:1亿
展开全部
Private Sub Command1_Click()
Dim i As Integer, sum As Long
For i = 1 To 1000
  If i Mod 2 = 0 And i Mod 3 = 0 And i Mod 4 <> 0 Then
    sum = sum + i
  End If
Next
Print sum
End Sub

答案是41334

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式