第三章 VB程序設計語句

　　1. For循環

　　For <循環變量>=<初值> to <終值>[step 步長]

　　<循環體>

　　[Exit For]

　　Next <循環變量>

　　1) 多重循環

　　Do循環

　　格式一：Do While <條件> <語句塊> Loop

　　格式二：Do Until <條件> <語句塊> Loop

　　格式三：Do <語句塊> Loop While <條件>

　　格式四：Do <語句塊> Loop Until <條件>

　　2) 二重循環

　　1.典型案例：求100以內的素數。2.取矩陣對角線上的元素。3.打印“*”型圖。

　　3) 程序范例：

　　Const n=5,m=4

　　Dim a(m,n)

　　Private Sub Command1_Click()

　　K=1

　　For i=1 To m

　　For j=1 To n

　　a(i,j)=k

　　k=k+1

　　Next j

　　Next i

　　End Sub

　　Private Sub Command2_Click()

　　Summ=0

　　For i=1 To m

　　For j=1 To n

　　If i=1 Or i=m Then

　　Summ=summ+a(i,j)

　　Else

　　If j=I Or j=n Then

　　Summ=summ+a(i,j)

　　End If

　　End If

　　Next j

　　Next i

　　Print summ

　　End Sub

　　過程Command1_Click()的作用是二維數組a 中存放1個 m行n列的矩陣;過程Command2_Click()的作用是

　　A) 計算矩陣外圍一圈元素的累加和 B) 計算矩陣除外一圈以外的所有元素的累加和

　　C) 計算矩陣第1列和最后一列元素的累加和 D) 計算矩陣第1行和最后一行元素的累加和