VB经典试上机讲解FOR循环ARRAYAIJ

VB for循环~

'先给你解释一下代码:

Private Sub form_click()
Dim b, k As Integer '定义变量 b,k,其中 b是变体,k 是整形,最好这样定义:dim b as integer,k as integer
b = 1 'b赋值=1
For k = 1 To 4 '开始for循环
b = b * k 'b=b*k
If b >= 15 Then '如果b值>=15 则,退出循环
Exit For
Else
k = k + 2 '否则 k=k+2
End If
Next k
Print k '输出k
Print b '输出 b
End Sub
'第一次循环时k=1，b=b*k=1*1=1,因为 b>=15 不成立，所以执行 k=k+2=1+2=3 ，然后执行到next k 时，k值要加上step值，则第一次循环结束时k=4
'第二次循环时,k=4,b=1*4=4 ,接着执行k=k+2=4+2=6 ，然后执行 next k ，则 k=6+1=7 ,循环结束
'所以最终结果 ： k=7，b=4

试一下不就知道了，呵呵。
我刚才试了一下
Dim i, x As Byte
Private Sub Form_Load()
i = 0
x = 7
For i = 2 To x - 1
If i = 6 Then Text3.Text = "该结束了"
If i = 7 Then Text3.Text = "到7才结束"
If x Mod i = 0 Then
Exit For
End If

Next i
Text1.Text = Str(i)
Text2.Text = Str(x)
End Sub

运行结果为Text1、text2显示均为7，text3显示“该结束了”
所以 for循环结束 i的值是7
事实是最好的证据
text3的显示结果表明i=6时for循环仍然有效，i=7无效。
“是到6自动结束还是到7判断后结束?”应该是到6自动结束，没有再去判断7，总之这个问题不会影响程序的正常运行

主要是理解循环部分。

For循环里做的事情是这样的：

从4开始，每次执行一次它内部的代码，一直递减到1为止。

当i=4时，s=0+a(4-1)*1，其中a(3)=4,即s=4,j=10
当i=3时，s=4+a(3-1)*10，其中a(2)=3,即s=34,j=100
当i=2时，s=34+a(2-1)*100，其中a(1)=2,即s=234,j=1000
当i=1时，s=234+a(1-1)*1000，其中a(0)=1,即s=1234

到此，循环结束，s的值为1234

以上代码其实存在一个问题的。如果没有指明数组的起始值，默认是从0开始的。所以上面代码中的a数组只有0到3共4元素，第一次i=4时，用a(i)访问时是存在问题的。正常情况下应该会报变量未定义，因为没有a(4)这个元素。上面的代码更应该是：

Private Sub Command1_Click()
	Dim a,s,j,i
	s=Array(1,2,3,4)
	j=1
	s=0
	For i=4 To 1 Step -1
		s=s+a(i-1)*j
		j=j*10
	Next i
	Print s
End Sub

---

天全县18223335759： VB算法与程序设计99中FOR循环ARRIJJI - ？
白宙星乐： 首先第一个for循环之前arr是一个二维数组,3行2列,然后for循环赋值 arr(3,2)=3*2+2=8 redim preserve arr(3,4) 表示不清除原有数据,且扩充数组第二维,有原来的2列变成4列,前2列的的数据还是原来第一个for赋值的数据,然后for对后2列数据赋值 arr(3,4)=4+9=13 加起来21

天全县18223335759： VB经典试上机讲解FOR循环SUMARRI - ？
白宙星乐： 这个先求出array的下界和上界,遍历整个array,求出所有数值的和然后和除以上界,就是array的元素个数,其实就求平均值整个计算过程是(12+4+8+16)÷4=10

天全县18223335759： VB里的 for循环要怎么理解? - ？
白宙星乐： For循环,用于反复执行循环体内语句,第一次执行循环前将初始内容赋于循环变量,每执行一次循环,循环变量自动增加,用步长指定的量,当循环变量的值超出定义的始值与终值,则循环停止...for i = 1 to 10 step = 2 print i next 屏幕输出1到10

天全县18223335759： VB经典试上机讲解FOR循环ARRIJTOAS - ？
白宙星乐： i=3,j=3时,arr(j,i)=arr(3,3)=(3-1)*2+3=7i=3,j=4时,arr(j,i)=arr(3,4)=(3-1)*2+4=8i=4,j=3时,arr(j,i)=arr(4,3)=(4-1)*2+3=9i=4,j=4时,arr(j,i)=arr(4,4)=(4-1)*2+4=10

天全县18223335759： VB里的for循环要怎么理解 - ？
白宙星乐： 例: for i = 0 to 5 (Step 1) '执行循环,初始i = 0,当i>5时结束 (默认为Step 1,步进1,每执行一次i值+1 do....Next同理 for i = 10 to 1 step -2 '这里加了Step,那么初始i = 10,每执行一次 -2,i值小于1则结束

天全县18223335759： VB中的循环语句中的for... 是怎么用的?？
白宙星乐： for语句是循环语句,它的格式是:For 变量=初值 To 终值 〔Step 步长] 循环体Next 变量如:For i=0 to 999 '这里省略Step说明步长为1 循环体Next i说明从0到999,循环1000次.又如:For i=20 to 0 Step -2 循环体Next i说明从20到0,以步长为-2,循环10次你现在明白“For…To…”表示什么了吧!

天全县18223335759： vb里面的for循环 - ？
白宙星乐： For n=1 to m Step 2表示每次步进2如果m为10,则循环为:1,3,5,7,9 如果Step1,次数应该是 x*(1+x)/2=10*(1+10)/2=55 如果Step2,次数应该是 x*(1+x/2)/2=10*(1+10/2)/2=30

天全县18223335759： vb for循环的详细分析,解说下面代码的循环顺序,越详细越好 - ？
白宙星乐： 它是这样循环的:a=1 -> b=3 -> b=4 -> a=2 -> b=3 -> b=4 二级for循环时,先运行第一级的第一种情况,然后运行第二级循环,第二级循环完后,再运行第一级的第二种情况,然后再运行第二级循环,第二级循环完后,继续看第一级的情况,直至第一级情况循环完毕

天全县18223335759： VB语句中的for循环语句这么运用? - ？
白宙星乐： for i=3 to 10000 '查找质数 for j=2 to i-1 x=i mod jif i<>0 thenexit for '如果除了1和本身,还能被任意小于本身的一个数整除,那么此数不是指数,并跳出循环,进行下一个数的判断 esle '如果一个数不能被所有小于它的数整除,那么这个数就...

天全县18223335759： VB经典试上机讲解FOR循环AJAB - ？
白宙星乐： 得循环条件可知:a(2)=2^2=4a(3)=3^3=9a(4)=4^4=16a(5)=5^5=25所以:a(2)*a(3)-a(4)*2=4*9-16*2=36-32=4,即:a(a(2)*a(3)-a(4)*2)=a(4)所以,原式=a(4)+a(5) =16+25 =41