第三章 VB程序設(shè)計(jì)語(yǔ)句

　　1. For循環(huán)

　　For <循環(huán)變量>=<初值> to <終值>[step 步長(zhǎng)]

　　<循環(huán)體>

　　[Exit For]

　　Next <循環(huán)變量>

　　1) 多重循環(huán)

　　Do循環(huán)

　　格式一：Do While <條件> <語(yǔ)句塊> Loop

　　格式二：Do Until <條件> <語(yǔ)句塊> Loop

　　格式三：Do <語(yǔ)句塊> Loop While <條件>

　　格式四：Do <語(yǔ)句塊> Loop Until <條件>

　　2) 二重循環(huán)

　　1.典型案例：求100以?xún)?nèi)的素?cái)?shù)。2.取矩陣對(duì)角線(xiàn)上的元素。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

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

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

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