計(jì)算機(jī)二級(jí)vb教程ppt課件(編輯修改稿)
2025-05-30 07:08 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Print Average, 不及格 Case Else Print Average, 輸入數(shù)據(jù)錯(cuò)誤 End Select Visual Basic程序設(shè)計(jì)教程 32 【 例 】 輸入年 、 月份 ， 輸出該月天數(shù) ,判斷某年 y是否為閏年的條件： y mod 4=0 and y mod 100 0 or y mod 400=0 程序環(huán)境 Visual Basic程序設(shè)計(jì)教程 33 【 例 43】 我國(guó)個(gè)人所得稅在 2022年元旦提高起征點(diǎn)，起征點(diǎn)的 1600元。假定某單位薪金總值不超過 41600元， 41600元以下的工資、薪金部分的稅率表如表所示。 現(xiàn)要求編寫一程序，在文本框中輸入工資或薪金總額，單擊“計(jì)算”按鈕，將求得的個(gè)人所得稅顯示在標(biāo)簽上。 Visual Basic程序設(shè)計(jì)教程 34 40000元以下的工資、薪金部分的稅率表 Visual Basic程序設(shè)計(jì)教程 35 【 例 43】 計(jì)算個(gè)人所得稅 程序 Private Sub Form_Load() = 個(gè)人所得稅 = 薪金總額 = = = 計(jì)算 End Sub Visual Basic程序設(shè)計(jì)教程 36 Private Sub Command1_Click() Dim X As Single, Y As Single X = Val() Select Case X 1600 Case Is 40000, Is 1600 MsgBox 輸入的薪金有錯(cuò) , , 出錯(cuò) 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 = 個(gè)人所得稅為 : amp。 Y End Sub Visual Basic程序設(shè)計(jì)教程 37 單選按鈕 (OptionButton) 單選按鈕可用于表示一組互相排斥的選項(xiàng)。 1．創(chuàng)建單選按鈕 在工具箱內(nèi)選取單選按鈕工具。 2．單選按鈕的主要屬性 （名稱） : Name，單選按鈕的名稱，默認(rèn)值為 Option1 Caption: 單選按鈕的標(biāo)題內(nèi)容，默認(rèn)值為 Option1 Alignment:對(duì)齊方式，默認(rèn) 0(左 )，按鈕在左，標(biāo)題在右； Value: 按鈕是否被選中。 True表示選中 3．單選按鈕的事件 單選按鈕的主要事件是 Click事件 Visual Basic程序設(shè)計(jì)教程 38 【 例 44】 設(shè)計(jì)三個(gè)單選按鈕，用來(lái)控制文本框中文本的字號(hào) 1 36磅。初始文字大小為 10磅。 控件： 1個(gè)文本框， 3個(gè)單選按鈕。 事件： Form_Load 和各單選按鈕的 Click Private Sub Form_Load() = 10 = True 39。啟動(dòng)時(shí) ,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è)計(jì)教程 39 【 例 45】 修改例 44，增加一個(gè)“確定”命令按鈕，只有當(dāng)單擊“確定”后，才使文本框字號(hào)才發(fā)生變化。 單擊單選按鈕時(shí)，只作選擇標(biāo)記，編程只對(duì)命令按鈕。 Private Sub Form_Load() = 10 = True = Hello! End Sub Visual Basic程序設(shè)計(jì)教程 40 Private Sub Command1_Click() If = True Then 39。是否是第一個(gè)按鈕按下？ = 10 ElseIf = True Then 39。是否按下第二個(gè)？ = 18 Else 39。第三個(gè)按鈕被按下 = 36 End If End Sub ▲ 表達(dá)式 = True可直接寫成 Visual Basic程序設(shè)計(jì)教程 41 復(fù)選框 CheckBox 復(fù)選框允許用戶進(jìn)行多項(xiàng)選擇 復(fù)選框有三種狀態(tài)：選中 (√)，沒選中和無(wú)效。 1．創(chuàng)建復(fù)選框 在工具箱內(nèi)選取復(fù)選框工具。 2．復(fù)選框的主要屬性 （名稱）： Name，名稱，默認(rèn)值為 Check1 Caption：標(biāo)題內(nèi)容，字符型。 默認(rèn)值為 Check1 Alignment：對(duì)齊方式，整數(shù)類型。默認(rèn) 0表示左對(duì)齊 Value：復(fù)選框當(dāng)前狀態(tài)。 0：未選中，呈空白； 1：選中，呈“ √”； 2：無(wú)效，呈灰色“ √” Visual Basic程序設(shè)計(jì)教程 42 3．復(fù)選框的事件 復(fù)選框的主要事件是 Click事件 常用的代碼結(jié)構(gòu)為： If =1 Then 語(yǔ)句塊 Else 或 語(yǔ)句塊 End If Select Case Case 0 語(yǔ)句塊 Case 1 語(yǔ)句塊 End Select Visual Basic程序設(shè)計(jì)教程 43 【 例 46】 設(shè)計(jì)程序，單擊任一個(gè)復(fù)選框，標(biāo)簽顯示的內(nèi)容都會(huì)發(fā)生變化。什么都不選時(shí)，標(biāo)簽顯示“你沒有選擇項(xiàng)目 !” 對(duì)象： 1個(gè)標(biāo)簽和 6個(gè)復(fù)選框。 事件：各復(fù)選框的 Click。 屬性設(shè)置 Label1： Caption：你沒有選擇項(xiàng)目 ! Check1～ Check6： Caption 分別設(shè)為： 100米、 200米、 400米、跳高、跳遠(yuǎn)、鉛球 Form： Caption：田徑項(xiàng)目選擇 Visual Basic程序設(shè)計(jì)教程 44 復(fù)選框 CheckBox例（部分程序） Private Sub Check1_Click() Dim Flag As Integer, T As String Flag = 0 T = 你選擇了 : 39。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 = 你沒有選擇項(xiàng)目！ = T End Sub
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1