vb求1到100之间能被6整除的整数个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/09 02:14:50
![vb求1到100之间能被6整除的整数个数](/uploads/image/f/855187-43-7.jpg?t=vb%E6%B1%821%E5%88%B0100%E4%B9%8B%E9%97%B4%E8%83%BD%E8%A2%AB6%E6%95%B4%E9%99%A4%E7%9A%84%E6%95%B4%E6%95%B0%E4%B8%AA%E6%95%B0)
subcommand1_click()dimiasinteger,sasintegers=0fori=1to100if(imod3=0andimod7=0)thens=s+inextmsgboxsen
.不是16是多少,你自己看啊.6,12,18,24,30,36,42,48,54,60,66,72,78,84,90,96正好16个啊
求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/
dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext
3再答:6再答:9再答:12再答:12再答:15再答:18再答:21再答:24再答:27再答:30再答:33再答:36再答:39再答:42再答:45再答:48再答:51再答:54再答:57再答:60再
SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&
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
PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu
PrivateSubForm_Click()Dimx1%,x2%,count%count=0Fori=1To100x1=iMod5x2=iMod7Ifx1=0Andx2=0ThenPrinti;End
这些数组成以105为首项,以195为末项,公差为5的等差数列,共有19项.其和=2850.
1填写imod6=0,指的是余数要等于0;2填写S,表示要把S输出.
Dim i, j j = 0 &
dimiasintegerdimsumasintegersum=0fori=100to200step5ifimod30thensum=sum+inext
PrivateSubCommand1_Click()Fori=1To100IfiMod7=0Thenn=n+1EndIfNextiPrintnEndSu
在窗体上添加三个文本框,和一个按钮.在按钮的单击事件中写:privatesubcommand1_clickdimsumasinteger'和dimcountasinteger'个数sum=0count
1到100之间能被5整除的数:100/5=201到100之间能被6整除的数:100/6=16.41到100之间既能被5整除又能被6整除的:100/(5*6)=3.101到100之间既不能被5整除也不能
Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti
dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问:mod什么意思啊没怎么听课不懂啊谢谢啊
PrivateSubCommand1_Click()Fori=iTo100IfiMod5=0OriMod7=0Thens=s+iEndIfNextiPrint"能被5或都7整除的数之和为"&sEndS