作业帮vb在窗口求1到100内所有偶数和
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/26 05:29:19
你是要找出100以内被4整除的数吗下面是这样的例子（用VBA写的）：Subtest()DimiAsIntegeri=4DoWhilei
Fori=0To100IfiMod2=0Thenn=i^2sum=sum+nEndIfNEXT放在IF内就是只对偶数做平方的和,否则不做和.
iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】
dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext
n=0Fori=200To1000IfiMod4=3AndiMod7=5AndiMod9=2Thenn=n+1EndIfNextiPrintn
dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum
Subtest()DimiAsInteger,sAsInteger,nAsIntegerFori=1To100s=s+iIfiMod19=0Thenn=n+1NextiMsgBox"1到100所有数的
我的是正 For i = 1 To 100 If i Mod 3 = 0&nbs
PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu
sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum
PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS
fori=1to50ifimod20thensum=sum+inextmsgboxsum
这个是编程题吧?起始a=1sum=0循环条件（a
PrivateSubCommand1_Click()Dima()AsIntegerDimkAsInteger,mAsInteger,iAsInteger,jAsIntegerk=0Form=2To10
因为小球是自由下落则2gh=Vt²-Vo²（h为窗户高度2m）Vo=gt1Vt=Vo+gt2把h=2mg=9.8m/s²t2=0.25s代入,解得：t1=0.69s根据自
1.设水滴在屋檐最上端时的速度为v根据v²-v0²=2ax,得（v+GT）²-v²=2GH解方程可得v=（2H-GH²）/2T又根据v²=2
PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu
在2m中平均速度为2m/0.25s=8m/s,这是在窗前运动中间时刻的速度,因此到下沿时速度v2=8m/s+0.125*g=9.25m/s由x=(v2)^2/2g=4.28m所以窗口到屋檐距离是4.2
一个for嵌套一个if,注意n要定义为int,倒数用1.00/n即可再问：哦哦，谢啦