VBA:利用循环语句计算-搜答案-拍题作业网

先比较两数大小,用大的减小的,不停减,见到大数小于小数停,记录下减的次数就是除的商,最后大数的大小就是余数

【答案】：12【运行过程】由于step(步长)为3,每次循环时,i都会+3.如果不写step3则默认每次循环+1循环ii与10比较s①3

Private Sub Command1_Click() Dim i As Integer &

说清楚你要具体做什么再问：对于下列数据进行分组，每组5个数，要求总长度为90，所分组中先将短的取完，其次较短的，以此类推，用lingo解决长度1415161718192021根数35292142356

在excel中用vba输入以下代码即可：（vb中也可以）Subaaa()Dims,i,k,mFori=1To1000IfiMod2=0Thenk=0-iElsek=iEndIfs=s+1/kNextM

DimiAsIntegerFori=0To100i=i+1NextResponse.Write(i)

Dfor(inti=0;i

publicclassSum{\x09publicstaticvoidmain(Stringargs[]){\x09\x09inti,j,sum=0;r=1;\x09\x09while(i

fori=0to9next--------------whilei0wend---------------dowhilei0loop----------------doloopwhilei0-----

int s=1; for(int i=2;i<70;i++){ s=s*i;//循环退出时S的值就是69的阶乘}

Sub a()Range("F1:O1") = ""j = 5For i = 0

想法是好的,不过这个是不现实的,因为do-loop语句只是语句,不是局域过程.首先你要怎么显示询问语句呢?这里给你假设一条途径来说明一下吧：假设你是想出现结果以后单击确定按钮（name属性是comma

会的你可以试试单步运行看看Dim i, j j = 0 For i&n

每一次循环k就增加2类似于C++的for(intk=5;k

ForI=1to20step2根据条件,程序中没有I·,应该是另一题的答案印错了.第一次循环i＝1,X＝6第二次循环i＝3,X＝9第三次循环i=5,X＝14……没有什么是等于0的.

第2次循环,i=1,j=-3,n=2第3次循环,i=1,j=-2,n=3第4次循环,i=1,j=--1,n=4第5次循环,i=2,j=-4,n=5...共循环3x4=12次,所有n=12-------

你没注明要什么语言.再问：matlab再答：MATLABfor(i=1:123)j=i+j;endj==================================================

intnum=1;for(inti=1;i

对于循环：Forcounter=startToend[Stepincrement]statementsNext[counter]来说,该循环中语句statements执行的次数为：int((end-s

可以直接用分类汇总解决 VBA代码如下Sub SubTotal()Dim k%k = 4For i = 4 T