vb 计算200~500之间所有 能被3和5整除的数之和
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/16 17:53:49
![vb 计算200~500之间所有 能被3和5整除的数之和](/uploads/image/f/854293-13-3.jpg?t=vb+%E8%AE%A1%E7%AE%97200%7E500%E4%B9%8B%E9%97%B4%E6%89%80%E6%9C%89+%E8%83%BD%E8%A2%AB3%E5%92%8C5%E6%95%B4%E9%99%A4%E7%9A%84%E6%95%B0%E4%B9%8B%E5%92%8C)
窗体中加命令按钮,单击事件代码如下:PrivateSubCommand1_Click() Randomize Dima(1To20)AsInteger&nb
dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum
语句自己找给思路.第一种:暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum
代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM
Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+iEndIfNext==>优化一点:Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+ii
设置了没5个换行PrivateSubBcompute_Click()t=0Fori=1To12260If(iMod3=0)And(iMod7=0)And(iMod9=0)ThenTresult.Tex
S=0fori=0to200if(imod5=0)or(imod11=0)thenS=S+inextiPrintS
话说楼上的已经很好了,还要在做什么?算了,给你个实例吧,添加一个command按钮,输入以下代码OptionExplicitPrivateSubCommand1_Click()DimresultAsL
PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu
#includemain(){inti,sum;for(i=101;i
1填写imod6=0,指的是余数要等于0;2填写S,表示要把S输出.
dimiasintegerdimsumasintegersum=0fori=100to200step5ifimod30thensum=sum+inext
'10个数相乘?PrivateSubCommand1_Click()Dimi,nn=1Fori=1To10n=n*iNextMsgBoxnEndSu
intnum=0;//总数for(inti=101;i{lbl2.Text=lbl2.Text+i.ToString()+",";//显示所有奇数num=num+i;i=i+2;}lbl1.Text=
PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS
fori=2to88sum=sum+inextprintsum
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e&
dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问:mod什么意思啊没怎么听课不懂啊谢谢啊
楼上算法有问题,多了几个PrivateFunctionprime(nAsInteger)AsBoolean'返回值=True是素数,False不是素数DimkAsIntegerprime=TrueFo
楼上推荐的程序有个问题.3*7*9应该写成7*9,否则会漏掉63dimiasintegerdimjasintegerdimSasLongS=0fori=1to13230ifimodj=0thenS=S