vb結(jié)構(gòu)化程序設(shè)計(jì)ppt課件(編輯修改稿)
2025-06-01 18:28 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 應(yīng)刪去所有 stop語(yǔ)句。 格式： End End語(yǔ)句用來(lái)結(jié)束程序的執(zhí)行，并關(guān)閉已打開(kāi)的文件。 在程序設(shè)計(jì)中經(jīng)常需要根據(jù)不同的情況采用不同的處理。例如，一元二次方程的求根問(wèn)題，要根據(jù)判別式小于零或大于等于零的情況，采用不同的數(shù)學(xué)表達(dá)式進(jìn)行計(jì)算。對(duì)于這類(lèi)問(wèn)題，必須借助選擇結(jié)構(gòu)。 行 If語(yǔ)句 格式： If 條件 then 語(yǔ)句 1 [Else 語(yǔ)句 2] 功能：當(dāng)條件滿(mǎn)足時(shí)，執(zhí)行語(yǔ)句 1；條件不滿(mǎn)足時(shí)，執(zhí)行語(yǔ)句 2。 【 例 】 任意輸入三個(gè)數(shù)，找出其中的最大值。 程序代碼如下： Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, max As Single a = b = c = max = a If b max Then max = b If c max Then max = c = max End Sub 塊 If 塊 If的格式、功能 格式： If 條件 then 語(yǔ)句塊 1 [ Else 語(yǔ)句塊 2] End If 說(shuō)明： 1． “ 條件 ” 一般為關(guān)系表達(dá)式或邏輯表達(dá)式。 通常把關(guān)系表達(dá)式或邏輯表達(dá)式的值為真時(shí)，稱(chēng)為條件滿(mǎn)足；值為假時(shí)，稱(chēng)為條件不滿(mǎn)足。反之亦然。 2．語(yǔ)句塊 語(yǔ)句塊 2分別是“ 條件 ” 滿(mǎn)足或不滿(mǎn)足時(shí)，處理方法的描述，可以是若干個(gè)語(yǔ)句。 3． If… Then 、 Else、 End If 是 VB的保留字。 功能： 塊 If首先判斷“條件”，其值為真時(shí)，執(zhí)行語(yǔ)句塊 1；為假時(shí)執(zhí)行語(yǔ)句塊 2。當(dāng)缺省 [Else?] 中的內(nèi)容時(shí)，該選擇結(jié)構(gòu)只對(duì)條件滿(mǎn)足的情況進(jìn)行處理。執(zhí)行過(guò)程如圖所示。 F T 條件滿(mǎn)足？ 語(yǔ)句塊 1 語(yǔ)句塊 2 End If下一語(yǔ)句 塊 If執(zhí)行過(guò)程 塊 If的嵌套 所謂塊 If語(yǔ)句的嵌套，就是在語(yǔ)句塊 1或語(yǔ)句塊 2中又包含塊 If語(yǔ)句。 注意： 1．保持塊 If結(jié)構(gòu)的完整，不要漏掉 End If。 2．盡量采用縮進(jìn)式書(shū)寫(xiě)格式，使結(jié)構(gòu)清晰。 3．盡量選擇恰當(dāng)?shù)臈l件，使程序簡(jiǎn)單明了 。 多分支語(yǔ)句 當(dāng)對(duì)一個(gè)表達(dá)式的不同取值情況作不同處理時(shí)，用 ElseIf語(yǔ)句程序結(jié)構(gòu)顯得較為雜亂，而用 Select Case語(yǔ)句將使程序的結(jié)構(gòu)更清晰， Select Case語(yǔ)句又稱(chēng)為情況語(yǔ)句。 格式： Select Case 測(cè)試表達(dá)式 Case 表達(dá)式列表 1 語(yǔ)句塊 1 Case 表達(dá)式列表 2 語(yǔ)句塊 2 ? Case 表達(dá)式列表 n 語(yǔ)句塊 n [Case Else 語(yǔ)句塊 n+1] End Select 功能：根據(jù) “ 測(cè)試表達(dá)式 ” 的值，選擇第一個(gè)符合條件的語(yǔ)句塊執(zhí)行。 Select Case語(yǔ)句的執(zhí)行過(guò)程是： 先求“測(cè)試表達(dá)式”的值，然后順序測(cè)試該值符合哪一個(gè) Case子句中情況，如果找到了，則執(zhí)行該 Case子句下面的語(yǔ)句塊，然后執(zhí)行 End Select下面的語(yǔ)句；如果沒(méi)找到，則執(zhí)行 Case Else下面的語(yǔ)句塊，然后執(zhí)行 End Select下面的語(yǔ)句。 說(shuō)明： 1． “ 測(cè)試表達(dá)式 ” 可以是數(shù)值型或字符串型表達(dá)式； 2． “ 表達(dá)式列表 ” 形式有以下三種： （ 1）一個(gè)表達(dá)式或用逗號(hào)隔開(kāi)的若干表達(dá)式 例如： Case 2,4,6,8 表示的情況是：測(cè)試表達(dá)式的值等于 2，4， 6， 8之一。 （ 2）表達(dá)式 1 To表達(dá)式 2 例如： Case 80 To 90 表示的情況是： 80≤測(cè)試表達(dá)式 ≤90。 （ 3） Is 關(guān)系運(yùn)算符 表達(dá)式 例如： Case Isx^2 表示的情況是：測(cè)試表達(dá)式 x^2。 循環(huán)概述 所謂循環(huán)就是重復(fù)地執(zhí)行一組語(yǔ)句。 在實(shí)際工作中，常遇到一些操作過(guò)程不復(fù)雜但需要反復(fù)進(jìn)行相同處理的問(wèn)題，這些問(wèn)題如果單純用順序結(jié)構(gòu)來(lái)處理，將得到一個(gè)非常乏味且冗長(zhǎng)的程序。 例如，計(jì)算 1~100所有奇數(shù)的平方和，如果用順序結(jié)構(gòu)來(lái)解決這個(gè)問(wèn)題，我們就會(huì)給出下面的程序： Private Sub Form_Click() Dim samp。, x% s = 0 x = 1 s = s + x ^2 x = x + 2 s = s + x ^2 x = x + 2 s = s + x ^2 …… x = x +2 39。x的值累加到 99 s = s + x ^2 Print 1~100之間所有奇數(shù)的平方和 =。 s End Sub 我們用循環(huán)語(yǔ)句解決上面的問(wèn)題，程序非常簡(jiǎn)短： Private Sub Form_Click() Dim samp。, x% s = 0 For x = 1 To 99 Step 2 s = s + x ^2 Next x Print 1~100所有奇數(shù)的平方和 =。 s End Sub VB提供了三種不同風(fēng)格的循環(huán)語(yǔ)句，它們分別是： （ 1） For…Next 語(yǔ)句； （ 2） Do…Loop 語(yǔ)句； （ 3） While…Wend 語(yǔ)句。 我們將對(duì)這三種循環(huán)語(yǔ)句逐一介紹。 For…Next 循環(huán) For循環(huán)的一般格式如下：
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1