高一 算法 VB 计算1到100所有数的和

Private Sub Command1_Click()    Dim i As Integer &

氨基酸分子个数的计算公式肽键数=脱去的水分子数蛋白质的相对分子质量+脱去水分子总相对分子质量氨基酸的平均相对分子质量=-----------------------------------------

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

DimiAsLongDimCountAsLongFori=1To100If(iMod3=0)And(iMod2=0)ThenCount=Count+1Debug.PrintiEndIfNextMsgB

#includeintmain(void){inti,sum;sum=0;for(i=1;i

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

Private Sub Command1_Click()Dim i As Long, x As LongFor 

PrivateSubCommand1_Click()Fori=2To1000Forj=2ToiIfiModj=0ThenExitForNextjIfj=iThenPrinti;NextiEndSu

S=0i=1DOS=S+1/(i*(i+1))i=i+1LOOPUNTILi>=100PRINTSEND

1填写imod6=0,指的是余数要等于0；2填写S,表示要把S输出.

248050247500再问：不是说结果的，而是说编程的再答：我不懂vb,只会用php或者其他的，简单的用basic写一下吧,大致思路是这样的。sum1=0sum2=0fora=100to10000i

1.关于氨基酸缩合反应的计算由氨基酸分子脱水缩合可知,蛋白质形成过程中每形成一个肽键,同时失去一分子水,即形成的肽键数=失去分子数2.有关蛋白质的分子量的计算蛋白质相对分子质量=氨基酸相对分子质量总和

这是循环结构,i在递增第一次循环s初值为0,i初值1s赋值s+i则此时的s为1第二次s值为1,i增到2此时s赋值s+i得到3第三次s值为3,i增到3此时s赋值s+i得到6第四次s值为6,i增到4此时s

）匀变速直线运动1.平均速度V平=S/t（定义式）2.有用推论Vt^2–Vo^2=2as3.中间时刻速度Vt/2=V平=(Vt+Vo)/24.末速度Vt=Vo+at5.中间位置速度Vs/2=[(Vo^

PrivateSubForm_click()Dima5AsInteger,a1AsInteger,KAsIntegerK=0Fora1=1To100Fora5=1To20Ifa1+a5=40ThenI

PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio

记住一个公式：（首项+尾项）*项数/2,要计算你的问题把数据代入即可.首项=1,尾项=100000000000000000000000000000000000000000000000000000000

解题思路：算法。解题过程：

楼上推荐的程序有个问题.3*7*9应该写成7*9,否则会漏掉63dimiasintegerdimjasintegerdimSasLongS=0fori=1to13230ifimodj=0thenS=S