VB求1到30之间能被6整除的数
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/17 19:51:12
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再
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
1到200之间,能被3整除有=198/3=66个1到200之间,能被21整除有=189/21=9个1到200之间,能被3整除但不能被7整除的数=能被3整除-能被21整除=66-9=57个count=0
--求1到50之间能被3整除的数的和DECLARE@iINT,@sumINTSELECT@i=1,@sum=0WHILE@i
PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu
1填写imod6=0,指的是余数要等于0;2填写S,表示要把S输出.
dimiasintegerdimsumasintegersum=0fori=100to200step5ifimod30thensum=sum+inext
PrivateSubCommand1_Click()Fori=1To100IfiMod7=0Thenn=n+1EndIfNextiPrintnEndSu
因:6=2*38=2*2*26和8的最小公倍数是:2*3*2*2=24又:1000/24=41.16所以1到1000之间能同时被6和8整除的数中,最大的10个数之和是:24*(41+40+39+38+
在窗体上添加三个文本框,和一个按钮.在按钮的单击事件中写:privatesubcommand1_clickdimsumasinteger'和dimcountasinteger'个数sum=0count
PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew
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什么意思啊没怎么听课不懂啊谢谢啊
24,30,36的最小公倍数为360.1000<360n<5000,n最小为3,最大为13所以1000到5000之间能被24,30,36整除的所有整数和=360×(3+4+...+13)=31680