VB用do while语句统计1-100内3的倍数有多少个. n=1

用count,否则的话,如果记录太多,你将不停地MoveNext,不停地判断b=a.DimiAsInteger,nAsLong,sAsStringText8=""Adodc1.RecordSource

PrivateSubCommand1_Click()DimiAsIntegerFori=1To5Ifi5ThenPicture1.PrintSpace((i-1)*2);String(8-((i-1)

自己一点点试,A在循环前应该赋初值A=0在A=A+1后放一条debug.printi,j,k,a可以得到如下结果.看看变化iJKA11111122113321142125213622272238311

Private Sub Command1_Click()    Dim i As Integer &

是循环变量实心的正方形.Forb=1To5Print""elseprint"**"endifNext

PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegern=0Fori=1To100IfiMod3=0Thenn=n+1Printn;iEndIfNex

这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i

给你做到第4题吧：Private Sub Command1_Click()    Dim i As Long,

PrivateSubForm_load()DimiAsLong,nasintegern=int(val(inputbox("输入Fibonacci数列的项数")))Fori=1TonPrintFibo

1.forlongresult=0;for(inti=100;i

B因为溢出.16384和2都是Integer,但结果却超出了32767,属于Long,所以因为数据类型的结果的转换太大,以致于不能在变量类型所允许的范围内表示出来.要正确表示可以这样PrintCLng

IF条件1ThenIf条件2Then语句1Else语句2EndIfElse语句3EndIf------------------------------不要写一行,这样是不是结构清楚点?再问：谢谢了。我

DimzsAsInteger,fsAsInteger,xAsStringDox=Inputbox("请输入一个整数")IfVal(x)>0Thenzs=zs+1ElseIfVal(x)fs=fs+1E

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

PrivateSubCommand1_Click()Dimm%,n%Fori=1To100IfiMod3=0Thenm=m+1IfiMod7=0Thenn=n+1NextiPrint"统计1~100中

fori=1to5forj=9to1step-2print6-i;nextjprintnexti

很简单.添加一个文本框（设置MultiLine=True和ScrollBars=2)、一个按钮.加入以下代码：PrivateSubCommand1_Click()Dima$,b$Open"c:\boo

B&=1FORA=1TO100B&=B&*ANEXTAEND

PrivateSubCommand1_Click()Dimi%,j3%,j7%Fori=1To100IfiMod3=0Thenj3=j3+1IfiMod7=0Thenj7=j7+1NextPrint"

PrivateSubCommand1_Click()i=1s=0DoWhilei