32vb三種程序結(jié)構(gòu)visualbasic語言作為結(jié)構(gòu)化程序設(shè)計語-全文預(yù)覽
【正文】 While 〈 條件表達(dá)式 〉 〈 循環(huán)體 〉 [Exit Do] 〈 循環(huán)體 〉 Loop ⑴ . Do While … Loop 語句 T F 條件 循環(huán)體Do While … Loop 語句流程圖 說明： 循環(huán)體中要有控制循環(huán)的語句 ， 以避免出現(xiàn)死循環(huán) 。 Private Sub Form_Click() Dim i%, famp。 ☆ Exit For為強(qiáng)行退出循環(huán)語句 。 Visual Basic 支持的循環(huán)結(jié)構(gòu)有： ☆ For...Next ☆ Do…Loop ☆ While…Wend 循環(huán)結(jié)構(gòu) 1. For …Next 循環(huán) 循環(huán)體 Exit For 循環(huán)體 循環(huán)變量增加步長 循環(huán)變量獲得初值 F T 循環(huán)變量在終值內(nèi) For循環(huán)的執(zhí)行過程 格式： For 循環(huán)變量 = 初值 To 終值 [Step 步長 ] 循環(huán)體 [ Exit For ] 循環(huán)體 Next [循環(huán)變量 ] 說明： ① 格式中的參數(shù)說明： ☆ 循環(huán)變量必須為數(shù)值型 。 如： Case 1 To 10 ?Is 關(guān)系運(yùn)算表達(dá)式 。 說明： 如果在一個列表中有多個值，就用逗號把值隔開。 x1, x2=。 Private Sub Form_Click() Dim score As Single score = InputBox(請輸入學(xué)生的成績 score。 pay End Sub 3. If…Then …Else If 語句（多分支結(jié)構(gòu)）結(jié)構(gòu) 語句格式： If 〈 表達(dá)式 1 〉 Then 〈 語句塊 1〉 ElseIf 〈 表達(dá)式 2〉 Then 〈 語句塊 2〉 … … [Else 〈 語句塊 n+1 ] End If F T T T …… 表達(dá)式 1 表達(dá)式 2 表達(dá)式nn 語句塊 1 語句塊 2 語句塊 nn 語句塊 n+11 F… 圖 多分支結(jié)構(gòu) 說明： ① 不管有幾個分支 ， 程序執(zhí)行了一個分支后 ， 其余分支不再執(zhí)行 。 【 例 34】 火車站行李費(fèi)的收費(fèi)標(biāo)準(zhǔn)是 40kg以內(nèi)（ 包括 40kg） /kg， 超過部分為 /kg。 編寫的窗體單擊事件過程代碼如下： Private Sub Form_Click() Dim a As Single, b As Single, c As Single, max As Single a = InputBox(請輸入第一個數(shù) , 輸入框 ) b = InputBox(請輸入第二個數(shù) , 輸入框 ) c = InputBox(請輸入第三個數(shù) , 輸入框 ) max = a If b max Then max = b If c max Then max = c Print 三個數(shù)中最大的為： amp。 說明： 語句塊可以是一條或多條語句 。 示例： a=Val() 值為 b=Val(13456) 值為 13 Val將數(shù)字字符串轉(zhuǎn)換為數(shù)值 ， 當(dāng)字符串中出現(xiàn)非數(shù)值字符時 ， 停止轉(zhuǎn)換 ， 函數(shù)返回的是停止轉(zhuǎn)換前的結(jié)果 。 例： ? Lcase(39。 示例： Print Asc(C) 值為 67。 說明：該函數(shù)是無參函數(shù) ， 返回由當(dāng)前系統(tǒng)時間組成的一個字符串 。 Print Str(123) 三、 日期函數(shù) 1． Date 格式： Date 功能：提取計算機(jī)系統(tǒng)的當(dāng)前日期 。 說明： Number為一個數(shù)值型量 ， 返回一個字符型量 。為數(shù)值表達(dá)式，設(shè)置每次搜索的起點(diǎn)。 例子： int((ba+1)*rnd)+a 要產(chǎn)生 30～ 50之間的隨機(jī)數(shù) int(Rnd*21)+30 二、 字符串函數(shù) ☆ Len( )函數(shù) 格式： Len(String) 功能：計算字符串的長度。 默認(rèn)情況下，每次運(yùn)行一個應(yīng)用程序， VB提供一相同的種子，即 Rnd產(chǎn)生相同序列的隨機(jī)數(shù)。 （ 各數(shù)據(jù)項(xiàng)之間用分號或空格作為分隔符 ） 格式 2： [對象 .]Print[Spc(n)/Tab(n)][表達(dá)式表 ] Spc(n)函數(shù)：用于在輸出時插入 n個空格。 當(dāng)表達(dá)式缺省時 ， 則屏幕顯示一個空行 。 如果省略了對象 ， 則在窗體上輸出 。 ?標(biāo)題：是對話框窗口中的標(biāo)題文本，類型是 字符串。 ?標(biāo)題：顯示在消息框標(biāo)題欄上的文本。最長 1024字符。 例如； n=“123” ?n中的結(jié)果是 123 ?n為整形 n=“1a23” ?出現(xiàn) “ 類型不匹配 ” 的錯誤 當(dāng)邏輯型賦值給數(shù)值型時 ， True轉(zhuǎn)換為 1， False轉(zhuǎn)換為 0；反之 ， 當(dāng)數(shù)值型賦給邏輯型時 ， 非 0轉(zhuǎn)換為 True，0轉(zhuǎn)換為 False. MsgBox函數(shù)：向用戶顯示信息（輸出） MsgBox語句 : MsgBox （ 提示內(nèi)容 [,答復(fù)按鈕 +圖標(biāo) ][,標(biāo)題 ]） MsgBox函數(shù)： Dim x As Integer X=MsgBox(提示內(nèi)容 [,答復(fù)按鈕 +圖標(biāo) ][,標(biāo)題 ]) 功能：打開一個消息框 ， 等待用戶選擇一個按鈕 。 賦值語句 格式： 變量名 /對象 .屬性名 = 表達(dá)式 功能：將賦值號右邊表達(dá)式的值賦給賦值號左邊的變量或?qū)ο髮傩?。 順序結(jié)構(gòu) 順序結(jié)構(gòu)程序中的語句依照其在程序中的位置依次順序地執(zhí)行。 當(dāng)表達(dá)式是數(shù)字字符串 ， 左邊變量是數(shù)值類型時 ， 自動轉(zhuǎn)換成數(shù)值類型再賦值；但當(dāng)表達(dá)式有非數(shù)字字符或空串時 ， 則出錯 。 參數(shù)說明 ?提示內(nèi)容：顯示給用戶的信息。 ?答復(fù)按鈕 +圖標(biāo)：確定在消息框中按鈕 的數(shù)目和類型，以及圖標(biāo)的類型。 （ 1）句法 變量名 =InputBox(提示 [,標(biāo)題 ][,默認(rèn)值 ][橫坐標(biāo)，縱坐標(biāo) ]) （ 2）參數(shù)說明 ?提示：提示信息，類型
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1