《計(jì)算機(jī)二級(jí)vb教程》ppt課件-文庫(kù)吧
2025-04-18 07:08 本頁(yè)面
【正文】 小的數(shù)放入 A，大的數(shù)放入 C。 通過(guò)這樣兩次比較， A便是最小數(shù)了。 （ 4） B和 C比較，小的數(shù)放入 B，大的數(shù)放入 C。 這樣 A、 B、 C已按從小到大排列。 （ 5） A、 B、 C分別放入三個(gè)文本框。 兩數(shù)互換使用語(yǔ)句組： X = A : A = B : B = X Visual Basic程序設(shè)計(jì)教程 20 【 例 42】 三數(shù)排序 程序代碼如下 : Option Explicit Private Sub Command1_Click() Dim A As Single, B As Single, C As Single, X As Single A = Val(): B = Val() C = Val() If A B Then X = A: A = B: B = X If A C Then X = A: A = C: C = X If B C Then X = B: B = C: C = X = A: = B: = C End Sub Visual Basic程序設(shè)計(jì)教程 21 塊 If語(yǔ)句采用多行代碼的形式，其格式為： If 條件 1 Then 語(yǔ)句塊 1 [ElseIf 條件 2 Then [ 語(yǔ)句塊 2 ]] …… [Else [ 語(yǔ)句塊 n+1 ]] End If 1．語(yǔ)句執(zhí)行過(guò)程 執(zhí)行過(guò)程如圖 Visual Basic程序設(shè)計(jì)教程 22 使用塊 If語(yǔ)句 2．關(guān)于格式 （ 1） If與 End If必須成對(duì)出現(xiàn)。 （ 2）塊 If語(yǔ)句必須在 Then或 Else后換行 （ 3）塊 If語(yǔ)句可以沒(méi)有 Else或 ElseIf子句。 （ 4）行 If語(yǔ)句也可以改寫(xiě)成塊 If語(yǔ)句。 Visual Basic程序設(shè)計(jì)教程 23 如變量 Average存放成績(jī)，進(jìn)行等級(jí)轉(zhuǎn)換的語(yǔ)句為： If Average = 90 Then 39。其中標(biāo)簽 Label5用于顯示等級(jí) = 等級(jí)： amp。 優(yōu)秀 ElseIf Average = 60 Then = 等級(jí)： amp。 合格 Else = 等級(jí)： amp。 不合格 End If 3． 關(guān)于 語(yǔ)句塊 語(yǔ)句塊可以是一條或多條語(yǔ)句，可寫(xiě)成一行或多行。 Visual Basic程序設(shè)計(jì)教程 24 編寫(xiě)嵌套的選擇結(jié)構(gòu)程序 If語(yǔ)句允許出現(xiàn)嵌套形式。 如判斷 x的符號(hào)，采用行 If嵌套，程序代碼為： If x = 0 Then If x = 0 Then y = 0 Else y = 1 Else y = 1 Visual Basic程序設(shè)計(jì)教程 25 變量 y存放比較結(jié)果。但可讀性不好。 如果使用塊 If來(lái)編程，程序代碼為： If x = 0 Then If x = 0 Then y = 0 Else y = 1 End If Else y = 1 End If 嵌套時(shí)，程序注意使用縮進(jìn)格式，增加可讀性。 Visual Basic程序設(shè)計(jì)教程 26 Dim nflag As Integer Dim smystring As String Private Sub Form_Load() nflag = 1 smystring = 歡迎使用 Visual Basic = 18 End Sub Private Sub Form_Click() If nflag = 1 Then = 黑體 Print smystring nflag = nflag + 1 Else If nflag = 2 Then = 楷體 _gb2312“ Print smystring nflag = nflag + 1 Else If nflag = 3 Then = 隸書(shū) Print smystring nflag = nflag + 1 Else nflag = 1 End If End Sub 程序環(huán)境 【 例 】 在窗體中輪流以不同字體顯示文字 Visual Basic程序設(shè)計(jì)教程 27 Select Case是實(shí)現(xiàn)多分支程序設(shè)計(jì)的條件語(yǔ)句 Select Case又稱為“情況選擇”語(yǔ)句。 常用于分段計(jì)算、根據(jù)離散值處理信息 Select Case語(yǔ)句的其格式是： Select Case 測(cè)試表達(dá)式 [Case 表達(dá)式值 1 [ 語(yǔ)句塊 1 ]] [Case 表達(dá)式值 2 [ 語(yǔ)句塊 2 ]] …… [Case Else [ 語(yǔ)句塊 n+1]] End Select Visual Basic程序設(shè)計(jì)教程 28 1．語(yǔ)句執(zhí)行過(guò)程 先求出測(cè)試表達(dá)式的值 將值與 Case語(yǔ)句中的表達(dá)式值進(jìn)行比較，如果條件滿足，則執(zhí)行該 Case子句對(duì)應(yīng)的語(yǔ)句塊。 當(dāng)與所有的表達(dá)式值不符時(shí)，執(zhí)行 Case Else后的語(yǔ)句塊。 Select Case 測(cè)試表達(dá)式 [Case 表達(dá)式值 1 [ 語(yǔ)句塊 1 ]] [Case 表達(dá)式值 2 [ 語(yǔ)句塊 2 ]] …… [Case Else [ 語(yǔ)句塊 n+1]] End Select Visual Basic程序設(shè)計(jì)教程 29 2．關(guān)于格式 （ 1）“測(cè)試表達(dá)式”可以是數(shù)值、字符串表達(dá)式。 （ 2）“表達(dá)式值”其類型與“測(cè)試表達(dá)式”相同，有確定值。 “表達(dá)式值”的幾種形式 : 表達(dá)式值 表示固定值，如 Case 1或 Case 3*5+Y 表達(dá)式值 1,…, 值 n 表示幾個(gè)固定值之一，如 Case 1,3,5,7,9 表達(dá)式值 1 To 值 2 表示上下限之間的范圍，如 Case 2 To 4 Is 關(guān)系運(yùn)算符 值 表示范圍，如 Case Is 5 Visual Basic程序設(shè)計(jì)教程 30 （ 3） Select Case 應(yīng)與 End Select成對(duì)出現(xiàn)。 （ 4） Case與“表達(dá)式值”之間應(yīng)有空格間隔。 （ 5）語(yǔ)句塊可以是一條或多條語(yǔ)句，可寫(xiě)成一行或多行。以成績(jī)等級(jí)轉(zhuǎn)換為例，使用Select Case語(yǔ)句的代碼如下： Visual Basic程序設(shè)計(jì)教程 31 Select Case Average Case 90 To 100 Print Average, 優(yōu)秀 Case 80 To 89 Print Average, 良好 Case 70 To 79 Print Average, 中等 Case 60 To 69 Print Average, 及格 Case 0 To 59
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1