bycj.net
当前位置:首页 >> vBFor循环结构 >>

vBFor循环结构

For i = 1 To 5 For j = 1 To i n = n + 1 Print n; Next j Print Next i 这样看可能会比较清楚吧 写程序的时候注意缩进

先执行这个 For j = 1 To i n = n + 1 Print n; Next j 再 For i = 1 To 5 Print Next i 执行5次 若n初始为0结果为: 12345 678910 1112131415 1617181920 2122232425

Private Sub Command1_Click() Dim i%, j% For i = 1 To 7 Step 2 Print Tab(7 - i); For j = 1 To i - 1 Print i; Next j Print i Next i For i = 5 To 1 Step -2 Print Tab(7 - i); For j = 1 To i - 1 Print i; Next j Print j Next i End Sub

for i=起始值 to 终止值 step 阶值 next i 循环方式:判断起始值是否到终止值,每次在起始值上加 阶值(阶值 可正负),知道超出范围,退出;Exit for可中间退出for循环 dim i as integer i=3 do while i>0(条件例:i>0,将会循环3次,然后结束退出) i=i-1 loop

重复次数就是执行多少次循环内的程序.循环控制就是可以随时停止循环.for 循环变量 = 初值 to 终值 [step 步长] exit forexit先把初值赋值给循环变量,然后将循环变量与终值比较看是否超过终值.如果未超过则执行循环体,否则终止循环.执行循环体中的语句后,next将循环变量加上“步长”值,再赋给循环变量.然后循环继续.

T++ return m++

1.WhileWend 语句 只要指定的条件为 True,则会重复执行一系列的语句.语法 While condition [statements]..Wend2.DoLoop2.1 第一种用法 用 Do 循环重复执行一语句块,且重复次数不定.DoLoop 语句有几种演变形式,但每种都计算数

i=1的时候,j分别等于1输出一次a,即1*1=12输出一次a,即1*2=23输出一次a,即1*3=3 然后i=2 j再次分别等于输出一次a,即2*1=22输出一次a,即2*2=43输出一次a,即2*3=6 以此类推,知道最后输出9*9=81

Dim i,sum as Integer sum=0 For i=1 to 100 step 1 sum=sum+i next print sum

Private Sub Command1_Click()'参数越大,越精确Label1.Caption = Str(GetE(1000000000#))End Sub'根据)(1+1/n)^n当n→∞时=ePrivate Function GetE(ByVal N As Long) As DoubleDim I As LongGetE = (1 + 1 / N) ^ NEnd Function

ppcq.net | yhkn.net | jclj.net | snrg.net | so1008.com | 网站首页 | 网站地图
All rights reserved Powered by www.bycj.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com