access真題練習(xí)第八章

1、第8章 VBA程序設(shè)計(jì)8.3 VBA基本語句8.4 程序基本結(jié)構(gòu)第8章(2)重點(diǎn)：掌握VBA程序設(shè)計(jì)三種基本結(jié)構(gòu) 難點(diǎn)：循環(huán)結(jié)構(gòu)8.3 VBA基本語句8.3.1 VBA語句的書寫規(guī)則（1）每個(gè)語句行以回車鍵結(jié)束。（2）通常將一條語句寫在一行內(nèi)。若語句較長，可以用續(xù)行符“ _” 。（3）允許在程序的同一行上書寫多條語句，各語句之間需用冒號“:”分隔。（4）不區(qū)分字母的大小寫（字符串內(nèi)的字母除外）。8.3.2 VBA基本語句1.注釋語句該語句不被執(zhí)行。格式1：Rem 注釋內(nèi)容格式2：注釋內(nèi)容2.聲明語句變量類型的指定3.賦值語句格式：Let 變量名 = 表達(dá)式例：let z = x z = x8.

2、4 程序基本結(jié)構(gòu)8.4.1 順序結(jié)構(gòu)照解決問題的順序編寫相應(yīng)的語句，程序運(yùn)行時(shí)自上而下依次執(zhí)行語句，這種程序結(jié)構(gòu)稱為順序結(jié)構(gòu)。順序結(jié)構(gòu)的流程圖如圖8-7所示。圖8-7 順序結(jié)構(gòu)流程圖8.4.2 分支結(jié)構(gòu) 1.單行If語句If 條件 Then 語句序列1 Else 語句序列2例1：輸入成績x如果x60，y為合格寫法1：if x60 then y=”合格”寫法2: if x60 then Y=”合格” End if8.4.2 分支結(jié)構(gòu)例2：輸入成績x，若x60,y為合格，其它為不合格寫法1： if x 60 Then y = 合格 Else y = 不合格 End If寫法2: if x 60 T

3、hen y = 合格 Else y = 不合格8.4.2 分支結(jié)構(gòu)2.多分支結(jié)構(gòu)if 條件1 then 語句1Elseif 條件2 then 語句2Else 語句3End if例4：成績x=40,y為極差，40 x=60為差，60 x=80為好其它為很好 if x=40 then Y=”極差” Elseif x=60 then Y=”差”Elseif x=80 then Y=”好” Else Y=”很好” End if8.4.2 分支結(jié)構(gòu)3.情況語句 select caseSelect case x Case is =40 Y=”極差” Case is =60 then Y=”差” Case

4、is =80 then Y=”好” Case Else Y=”很好”End select 8.4.3 循環(huán)結(jié)構(gòu)根據(jù)指定條件的當(dāng)前值來決定一行或多行語句是否要重復(fù)執(zhí)行。1.For語句 For 循環(huán)變量=初值 To 終值 Step 步長 循環(huán)體語句序列 Next 循環(huán)變量8.4.3 循環(huán)結(jié)構(gòu)例5：求 1到5 自然數(shù)之和 S = 0 For i =1 to 5 step 1 S= S + i Next i 變形 :求1到5自然數(shù)的乘積8.4.3 循環(huán)結(jié)構(gòu)2.while 語句 格式 While 條件 循環(huán)語句 Wend 例：用while 語句實(shí)現(xiàn)例5 S=0 i=1 while i58.4.3 循環(huán)結(jié)

5、構(gòu)例6：求100 以內(nèi)偶數(shù)的和 S = 0 For i=1 to 100 step 1 ? Next i 8.4.3 循環(huán)結(jié)構(gòu)練習(xí):1：輸入一個(gè)數(shù)x，判斷它是否是閏年（4的倍數(shù)但不是100的倍數(shù)；400的倍數(shù)）練習(xí)2：輸入一個(gè)三位數(shù)x,判斷它是否是水仙花數(shù)（如153=13+53+33）8.4.3 循環(huán)結(jié)構(gòu)練習(xí)3：輸入一個(gè)大于2的數(shù)，判斷它是否是素?cái)?shù) K = sqr(x) For i=2 to k If x mod i = 0 then Exit for End if Next i If i k then y=”素?cái)?shù)” else y=”非素?cái)?shù)” end if 方法2：Y=“素?cái)?shù)”For i=2 to x-1 if x mod i =0 then y=“非素?cái)?shù)” exit for end ifNext i8.4.3 循環(huán)結(jié)