vb程序設(shè)計(jì)總復(fù)習(xí)(編輯修改稿)
2025-07-04 13:38 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 ...... End If End If注意：每個(gè)End If與它上面最接近的If配對(duì)。書寫時(shí)可以為鋸齒形，便于區(qū)分和配對(duì)。5. 情況語(yǔ)句Select Case格式： Select Case 變量或表達(dá)式 Case 表達(dá)式列表1 語(yǔ)句塊1 Case 表達(dá)式列表2 語(yǔ)句塊2 ...... Case Else 語(yǔ)句塊n+1 End Select說(shuō)明: 測(cè)試表達(dá)式 : 數(shù)值或字符表達(dá)式 Case 表達(dá)式表: 表中的表項(xiàng)為如下形式: (1) 表達(dá)式1 [,表達(dá)式2]... 如: Case 1 , 3 , 5 (2) 表達(dá)式1 TO 表達(dá)式2 如: Case 10 to 30 Case A to Z (3) Is 關(guān)系運(yùn)算符表達(dá)式 如: Case Is = 10 Case Is = 0 與 Case 0 相同 Select Case格式注意要點(diǎn): 1不可以在Case后的表達(dá)式中使用測(cè)試表達(dá)式中的變量。2Select Case后只能是一個(gè)變量。3不要在Case后直接使用布爾運(yùn)算符來(lái)表示條件。如： Case x0 and x 1006. 條件測(cè)試函數(shù)的格式：IIf(條件表達(dá)式,當(dāng)條件為Ture時(shí)的值,當(dāng)條件為False時(shí)的值)Choose(數(shù)字類型變量，值為1的返回值，值為2的返回值...) 例：Dim x% If x Then Print x Else Print x + 1 實(shí)驗(yàn)C：1 p265Private Sub Form_Click()Dim x!, y!x = Val(InputBox(輸入x的值))If x 1000 Then y = x ElseIf x 2000 Then y = * x ElseIf x 3000 Then y = * xElse y = * xEnd IfPrint yEnd Sub 實(shí)驗(yàn)C：2Private Sub Form_Click()Dim time!, f!time = InputBox(“輸入上網(wǎng)時(shí)間的值：)If time 10 Then f = 30 ElseIf time 50 Then f = * timeElse f = 2 * timeEnd IfIf f 150 Then f = 150Print fEnd SubDim time!, f!time = InputBox(輸入上網(wǎng)時(shí)間的值：)Select Case time Case Is 10 f = 30 Case Is 50 f = * time Case Else f = 2 * timeEnd SelectIf f 150 Then f = 150Print f三. 循環(huán)結(jié)構(gòu)1. For...Next循環(huán)結(jié)構(gòu)格式 For 循環(huán)變量=初值 To 終值 [Step 步長(zhǎng)] 循環(huán)體 [Exit For] Next [循環(huán)變量]說(shuō)明：(1)循環(huán)變量——數(shù)值變量(2)初值 ,終值 ,步長(zhǎng)——數(shù)值表達(dá)式(3)步長(zhǎng)——可正可負(fù),但不能為0,為1時(shí)可以省略 步長(zhǎng) 0 初值=終值 =1 時(shí),可省略 0 初值=終值 =0 死循環(huán)循環(huán)次數(shù)S=7 7 1For i = 1 To 6 Step 1S=S iNext iPrint S , i 下面第40號(hào)語(yǔ)句共執(zhí)行了_____ 次,第41號(hào)語(yǔ)句共執(zhí)行了______ 次,……30 FOR J=1 TO 12 STEP 340 FOR K=6 TO 2 STEP 241 MsgBox(j amp。 “ ” amp。 k)42 next k43 Next j 2. Do...Loop循環(huán)4種結(jié)構(gòu)格式 格式四: Do [語(yǔ)句組1] [Exit Do] [語(yǔ)句組2]Loop Until條件格式一: Do While 條件 [語(yǔ)句組1] [Exit Do] [語(yǔ)句組2]Loop格式二: Do Until 條件 [語(yǔ)句組1] [Exit Do] [語(yǔ)句組2]Loop格式三: Do [語(yǔ)句組1] [Exit Do] [語(yǔ)句組2]Loop While 條件功能： 使用While 條件: 條件為True時(shí)，執(zhí)行循環(huán)體 條件為False時(shí)，退出循環(huán) 使用Until 條件: 條件為False時(shí)，執(zhí)行循環(huán)體 條件為True時(shí)，退出循環(huán)循環(huán)體內(nèi)必須有改變循環(huán)變量的語(yǔ)句，當(dāng)循環(huán)結(jié)束時(shí)循環(huán)變量的值應(yīng)超出終值3. 嵌套循環(huán)/多重循環(huán) P80 計(jì)算多重循環(huán)的循環(huán)次數(shù)為每一重循環(huán)次數(shù)的乘積。 外循環(huán)要完整地包含內(nèi)循環(huán)結(jié)構(gòu)，不能交叉，循環(huán)控制變量名不能相同。、結(jié)束循環(huán)后循環(huán)變量的值、循環(huán)體中執(zhí)行Exit for 或 Exit do后循環(huán)變量的值，循環(huán)次數(shù)等4. 常用算法:累加、累乘,排序．求最大值、求最小值、以及它們的位置,求平均值求素?cái)?shù)、求水仙花數(shù)、插入、刪除數(shù)據(jù)等 “窮舉法”也稱為“枚舉法”或“試湊法”， 即將可能出現(xiàn)的各種情況一一測(cè)試，判斷是否滿足條件，一般采用循環(huán)來(lái)實(shí)現(xiàn)。 遞推法 “遞推法”又稱為“迭代法”，其基本思想是把一個(gè)復(fù)雜的計(jì)算過(guò)程轉(zhuǎn)化為簡(jiǎn)單過(guò)程的多次重復(fù)。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。 實(shí)驗(yàn)D:6編一程序，顯示所有的水仙花數(shù)。Private Sub Form_Click() Dim s%，a %,b %,c % For s = 100 To 999 a= s \ 100 b= s \ 10 Mod 10 c= s Mod 10 If a ^ 3 +b ^ 3 + c ^ 3 = s Then Print s； End If Next sEnd Sub第五章 數(shù)組一. 數(shù)組的概念1數(shù)組:
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1