第2章visualbasic60編程基礎(chǔ)第二部分-展示頁(yè)
2024-10-10 16:23本頁(yè)面
【正文】 參數(shù)“循環(huán)變量”、“初值”、“終值”和“步長(zhǎng)”都是數(shù)值型的。這種形式保證“語(yǔ)句塊”至少執(zhí)行一次： Do [語(yǔ)句塊 ] Loop While (條件 ) 其他兩種演變形式類似于前兩個(gè)，所不同的是，只要“條件”為 False而不是 True，它們就執(zhí)行循環(huán)。因此，只要“條件”為 True或非零，循環(huán)可以隨意執(zhí)行多次；如果“條件”一開始便為 False，則不會(huì)執(zhí)行語(yǔ)句。 Do While (條件 ) [語(yǔ)句塊 ] Loop 當(dāng) Visual Basic Do循環(huán)時(shí)會(huì)首先測(cè)試“條件”。如同 If…Then 條件必須是一個(gè)數(shù)值或者值為 True（非零）或 False（零）的表達(dá)式。 1． Do…Loop 用 Do循環(huán)重復(fù)執(zhí)行一語(yǔ)句塊，且重復(fù)次數(shù)不定。如果 x不能被 4和 100整除 = no End If ElseIf (x Mod 400 = 0) Then 39。如果 X不能被 100整除 If (x Mod 4 = 0) Then 39。將文本框中輸入的值賦給變量 a If a 0 Then 39。 Select Case test 測(cè)試表達(dá)式 [Case 表達(dá)式列表 1 [語(yǔ)句塊 1]] [Case 表達(dá)式列表 2 [語(yǔ)句塊 2]] ... [Case Else [語(yǔ)句塊 n]] End Select 【 案例 27】 求數(shù)據(jù)的絕對(duì)值 按鈕單擊事件中的代碼為 Private Sub Command1_Click() Dim a As Integer 39。然后， Visual Basic Case的值進(jìn)行比較。 Select Case語(yǔ)句的能力與 If…Then…Else 語(yǔ)句類似，但對(duì)多重選擇的情況， Select Case語(yǔ)句使代碼更加易讀。 （ 3） IIf函數(shù)用于實(shí)現(xiàn)一些簡(jiǎn)單的條件判斷分支結(jié)構(gòu)，其格式如下： IIf(條件，條件為真時(shí)的值，條件為假時(shí)的值 ) 其作用是對(duì)條件進(jìn)行測(cè)試，若條件成立（為真值），則取第一個(gè)值（即“條件為真時(shí)的值”），否則取第二個(gè)值（即“條件為假時(shí)的值”）。當(dāng)它找到一個(gè)為 True的條件時(shí)， Visual Basic ，然后執(zhí)行 End If后面的代碼。 （ 2）用 If…Then…Else 塊定義幾個(gè)語(yǔ)句塊，執(zhí)行其中一個(gè)語(yǔ)句： If 條件 1 Then [語(yǔ)句塊 1] [Else If 條件 2 Then [語(yǔ)句塊 2]] ... [Else [語(yǔ)句塊 n]] End If Visual Basic “條件 1”。一個(gè)為零的數(shù)值為 False，而任何非零數(shù)值都被看做 True。 If 條件 Then 語(yǔ)句 If 條件 Then [語(yǔ)句塊 ] End If “條件”通常是比較式，但它可以是任何計(jì)算數(shù)值的表達(dá)式。使用順序結(jié)構(gòu)只需要將合法語(yǔ)句按照合理的執(zhí)行順序排列即可一一執(zhí)行。有些簡(jiǎn)單程序可以只用單向流程來(lái)編寫，有些流程可以依靠運(yùn)算符的優(yōu)先級(jí)來(lái)控制，但任何編程語(yǔ)言的效力和用途皆由其通過(guò)結(jié)構(gòu)和循環(huán)改變語(yǔ)句順序的能力而得。第 2章 Visual Basic （第二部分） 基本流程結(jié)構(gòu) 數(shù)組 過(guò)程 Visual Basic 綜合案例 實(shí)訓(xùn) 基本流程結(jié)構(gòu) 控制結(jié)構(gòu)可控制程序執(zhí)行的流程。如果未使用控制流語(yǔ)句，程序便從左至右、自頂向下地貫穿這些語(yǔ)句。 順序結(jié)構(gòu) 順序結(jié)構(gòu)中程序按照語(yǔ)句編寫的先后順序一條一條地執(zhí)行。 【 案例 26】 二次函數(shù)計(jì)算器 按鈕單擊事件中的代碼為 Private Sub Command1_Click() Dim x, y As Double Const a = 3 Const b = 5 x = Val() y = a * x ^ 2 + b * x + 1 y = y / Abs(a + b) = Str$(y) End Sub 條件結(jié)構(gòu) Visual Basic ： ? If…Then ； ? If…Then…Else ； ? Iif； ? Select Case； （ 1）用 If…Then 結(jié)構(gòu)有條件地執(zhí)行一個(gè)或多個(gè)語(yǔ)句，單行語(yǔ)法和多行塊語(yǔ)法都可以使用。 Visual Basic 將這個(gè)值解釋為 True或 False。若“條件”為 True，則 Visual Basic “ Then”關(guān)鍵字后面的所有“語(yǔ)句塊”。如果它為 False，Visual Basic “條件 2”，依此類推，直到找到一個(gè)為 True的條件。作為一個(gè)選擇，可以包含 Else語(yǔ)句塊，如果前 n1個(gè)條件都是 False，則 Visual Basic Else語(yǔ)句塊。 （ 4） Visual Basic Select Case結(jié)構(gòu)替代If…Then…Else ，從而可在多個(gè)語(yǔ)句塊中有選擇地執(zhí)行其中一個(gè)。Select Case在結(jié)構(gòu)的開始便處理一個(gè)測(cè)試表達(dá)式并只計(jì)算一次。如果相等，就執(zhí)行與該 Case相關(guān)聯(lián)的語(yǔ)句塊。定義變量 a = Val() 39。當(dāng) a為負(fù)數(shù)時(shí)取其相反數(shù) a = a End If = Str$(a) End Sub 按鈕單擊事件中的代碼為 Private Sub Command2_Click() = = End Sub 【 案例 28】 閏年 “確定”按鈕單擊事件中的代碼為 Private Sub Command1_Click() Dim x As Integer x = Val() If (x Mod 100) Then 39。如果 x能被 4整除但不能被 100整除 = yes Else 39。如果 x能被 100整除，又能被 400整除 = yes Else = no End If End Sub “清除”按鈕單擊事件中的代碼為 Private Sub Command2_Click() = = End Sub 【 案例 29】 查詢十二生肖 Case 6 = 虎 Case 7 = 兔 Case 8 = 龍 Case 9 = 蛇 Case 10 = 馬 Case 11 = 羊
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1