用VB的do...whie语句来编写辗转相除法

iffornext

for语句fori=n1ton2[stepn3]...[exitfor]nexti对于对象集合有个特殊的For语句比如Text控件数组Text1(n)dimttasTextBoxForeachttin

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

i=100dowhilei

这个要看i的数据类型,如果i为整型,如下面形式：dimiaslongfori=2.5to6.5step0.5next结果将会是你所理解的那样,如果i是之前未声明,i的类型是变体,这时就不会自动取整,你

VB里Call用来调用函数或者过程,不过那是过去的用法了.在VB6里只要把过程名或者函数名写在要执行的地方就行了,很久以前是要在前面加上Call的Subsubpro(a,b)c=a+bEndsub函数

不一样!前者是在满足while的条件后执行do后的语句,不满足则跳出循环；后者是满足while后的条件后再次执行循环内容.简单来说,后者至少都会执行循环内容一次,而前者可能一次都不会执行.举个例子吧：

forx(循环变量)=1(初始值)to10(终止值)step2(步进)next以上为完整的循环结构1.没有终止值所以错3.初始值比终止值小所以步进应该为整数而它是负数所以也错4.初始值大于终止值默认步

Do...Loop语句当条件为True时,或直到条件变为True时,重复执行一个语句块中的命令.语法Do[{While|Until}condition][statements][ExitDo][sta

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

sum=sum-sum有效,其它都不是赋值

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

OptionExplicitPrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimmAsIntegerm=Val(InputBox("输入m的值

'统计TEXT1文本框中字符为的个数dim w as integer '定义一个整型变量for i=1 to le

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

数值0等同于布尔值常量的False,而DoUntil则是当表达式为真时跳出循环,这与DoWhile刚好相反,所以:DoUntil0相当于DoUntilFalse相当于DoWhileNot(False)

Rnd函数随机生成一个1到6的随机整数.　　DimMyValue　　MyValue=Int((6*Rnd)+1)'生成1到6之间的随机数值,这里的int是把后面产生的小数转换成整数!为了生成某个范围内

Private Sub Command1_Click()  Dim pi As Double, t As&nb

PrivateSubCommand1_Click()i=1s=0DoWhilei