計算機(jī)二級vb教程ppt課件-在線瀏覽
2025-06-20 07:08本頁面
【正文】 If x = 0 Then If x = 0 Then y = 0 Else y = 1 Else y = 1 Visual Basic程序設(shè)計教程 25 變量 y存放比較結(jié)果。 如果使用塊 If來編程，程序代碼為： If x = 0 Then If x = 0 Then y = 0 Else y = 1 End If Else y = 1 End If 嵌套時，程序注意使用縮進(jìn)格式，增加可讀性。 常用于分段計算、根據(jù)離散值處理信息 Select Case語句的其格式是： Select Case 測試表達(dá)式 [Case 表達(dá)式值 1 [ 語句塊 1 ]] [Case 表達(dá)式值 2 [ 語句塊 2 ]] …… [Case Else [ 語句塊 n+1]] End Select Visual Basic程序設(shè)計教程 28 1．語句執(zhí)行過程 先求出測試表達(dá)式的值 將值與 Case語句中的表達(dá)式值進(jìn)行比較，如果條件滿足，則執(zhí)行該 Case子句對應(yīng)的語句塊。 Select Case 測試表達(dá)式 [Case 表達(dá)式值 1 [ 語句塊 1 ]] [Case 表達(dá)式值 2 [ 語句塊 2 ]] …… [Case Else [ 語句塊 n+1]] End Select Visual Basic程序設(shè)計教程 29 2．關(guān)于格式 （ 1）“測試表達(dá)式”可以是數(shù)值、字符串表達(dá)式。 “表達(dá)式值”的幾種形式 : 表達(dá)式值 表示固定值，如 Case 1或 Case 3*5+Y 表達(dá)式值 1,…, 值 n 表示幾個固定值之一，如 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è)計教程 30 （ 3） Select Case 應(yīng)與 End Select成對出現(xiàn)。 （ 5）語句塊可以是一條或多條語句，可寫成一行或多行。假定某單位薪金總值不超過 41600元， 41600元以下的工資、薪金部分的稅率表如表所示。 Visual Basic程序設(shè)計教程 34 40000元以下的工資、薪金部分的稅率表 Visual Basic程序設(shè)計教程 35 【 例 43】 計算個人所得稅 程序 Private Sub Form_Load() = 個人所得稅 = 薪金總額 = = = 計算 End Sub Visual Basic程序設(shè)計教程 36 Private Sub Command1_Click() Dim X As Single, Y As Single X = Val() Select Case X 1600 Case Is 40000, Is 1600 MsgBox 輸入的薪金有錯 , , 出錯 Case 0 To 500: Y = (X 1600) * Case 500 To 2022: Y = 500 * + (X 1600 500) * Case 2022 To 5000: Y=500*+1500*+(X 1600 2022)* Case 5000 To 20220 Y=500 * + 1500 * + 3000 * + (X 1600 5000) * Case Is 20220 Y=500*+1500*+3000*+15000*+(X160020220)* Case Else: Y = 0 End Select = 個人所得稅為 : amp。 1．創(chuàng)建單選按鈕 在工具箱內(nèi)選取單選按鈕工具。 True表示選中 3．單選按鈕的事件 單選按鈕的主要事件是 Click事件 Visual Basic程序設(shè)計教程 38 【 例 44】 設(shè)計三個單選按鈕，用來控制文本框中文本的字號 1 36磅。 控件： 1個文本框， 3個單選按鈕。啟動時 ,10磅單選按鈕處于選中狀態(tài) = Hello! End Sub Private Sub Option1_Click() = 10 End Sub Private Sub Option2_Click() = 18 End Sub Private Sub Option3_Click() = 36 End Sub Visual Basic程序設(shè)計教程 39 【 例 45】 修改例 44，增加一個“確定”命令按鈕，只有當(dāng)單擊“確定”后，才使文本框字號才發(fā)生變化。 Private Sub Form_Load() = 10 = True = Hello! End Sub Visual Basic程序設(shè)計教程 40 Private Sub Command1_Click() If = True Then 39。是否按下第二個？ = 18 Else 39。 1．創(chuàng)建復(fù)選框 在工具箱內(nèi)選取復(fù)選框工具。 默認(rèn)值為 Check1 Alignment：對齊方式，整數(shù)類型。 0：未選中，呈空白； 1：選中，呈“ √”； 2：無效，呈灰色“ √” Visual Basic程序設(shè)計教程 42 3．復(fù)選框的事件 復(fù)選框的主要事件是 Click事件 常用的代碼結(jié)構(gòu)為： If =1 Then 語句塊 Else 或 語句塊 End If Select Case Case 0 語句塊 Case 1 語句塊 End Select Visual Basic程序設(shè)計教程 43 【 例 46】 設(shè)計程序，單擊任一個復(fù)選框，標(biāo)簽顯示的內(nèi)容都會發(fā)生變化。 事件：各復(fù)選框的 Click。T暫存標(biāo)簽要顯示的字符串 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If Flag = 0 Then T = 你沒有選擇項目！ = T End Sub Visual Basic程序設(shè)計教程 45 其它復(fù)選框的 Click事件的內(nèi)部代碼，與 Check1完全一樣。 在學(xué)第 8章后，可用過程調(diào)用方法，進(jìn)行程序復(fù)用。 Visual Basic程序設(shè)計教程 46 框架 Frame框架是一種容器性質(zhì)的 VB控件 窗體
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1