vb求1到1000中能被6整除的个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/09 03:30:25
![vb求1到1000中能被6整除的个数](/uploads/image/f/855186-42-6.jpg?t=vb%E6%B1%821%E5%88%B01000%E4%B8%AD%E8%83%BD%E8%A2%AB6%E6%95%B4%E9%99%A4%E7%9A%84%E4%B8%AA%E6%95%B0)
subcommand1_click()dimiasinteger,sasintegers=0fori=1to100if(imod3=0andimod7=0)thens=s+inextmsgboxsen
privatesubcommand1_click()dimi,a,bfori=1to1000ifimod3=0thena=a+1ifimod7=0thenb=b+1nextprint"1~1000中能
dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num
iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】
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再
count=0Fori=1To1000IFi%7==0Thencount++Nexti
Private Sub Command1_Click() Dim a As Long &nbs
Subtest()DimiAsInteger,sAsInteger,nAsIntegerFori=1To100s=s+iIfiMod19=0Thenn=n+1NextiMsgBox"1到100所有数的
设置了没5个换行PrivateSubBcompute_Click()t=0Fori=1To12260If(iMod3=0)And(iMod7=0)And(iMod9=0)ThenTresult.Tex
PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn
我的是正 For i = 1 To 100 If i Mod 3 = 0&nbs
PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu
1填写imod6=0,指的是余数要等于0;2填写S,表示要把S输出.
PrivateSubCommand1_Click()Fori=1To100IfiMod7=0Thenn=n+1EndIfNextiPrintnEndSu
sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum
PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew
Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti
dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问:mod什么意思啊没怎么听课不懂啊谢谢啊
一个for嵌套一个if,注意n要定义为int,倒数用1.00/n即可再问:哦哦,谢啦