问题标题：
vb求1~n之间能被3整除,但不能被7整除的所有整数之和
问题描述：
vb求1~n之间能被3整除,但不能被7整除的所有整数之和
任延珍回答：
PrivateSubCommand1_Click()
Dimi%,n%,s%
n=Val(InputBox("n="))
Fori=1Ton
IfiMod3=0AndiMod70Thens=s+i
Next
MsgBoxs
EndSub
点击显示
数学推荐
热门数学推荐