Private Sub Command1_Click()
Dim s As Integer
For i = 100 To 200
If i Mod 3 = 0 And i Mod 7 0 Then s = s + i
Next i
Print "所求的和为：" & s
End Sub
VB程序设计：求100-200间能被3整除、不能被7整除的数的和.
VB程序设计：求100-200间能被3整除、不能被7整除的数的和.
其他人气：938 ℃时间：2019-08-21 14:59:29
优质解答
我来回答
类似推荐
猜你喜欢
- 11+2+3+…+999+1000+1001的和是奇数还是偶数？请写出理由．
- 2初一语文下册课内古诗词
- 3长江是我国第一大河,原因是?
- 4今晚（3.6）过后没分了!You must return ______ the book _______to the library on time
- 5已知：△ABC为等边三角形,D为BC延长线上一点,CE平分∠ACD,且CE=BD.求证：△ADE为等边三角形.
- 6X和Y两元素的相对原子质量之比为7：2,在X和Y组成的化合物中,两元素的质量比为7：3,求该化合物的化学式
- 7求由方程xy=ex+y所确定的隐函数的导数dy/dx．
- 8计算（2x^3-3x^2y-2xy^2）-（x^3-2xy^2+y^3）+（3x^3y-x^3-y^3
- 9一块长为2.2米、宽为1.5米的长方形钢板,它的质量是514.8千克.已知每立方米钢的质量是7.8千克,这块钢板厚
- 10can I have some chicken?