計(jì)算機(jī)二級(jí)vb教程ppt課件-文庫吧資料
2025-05-09 07:08本頁面
【正文】 4 復(fù)選框 CheckBox例（部分程序） Private Sub Check1_Click() Dim Flag As Integer, T As String Flag = 0 T = 你選擇了 : 39。什么都不選時(shí)，標(biāo)簽顯示“你沒有選擇項(xiàng)目 !” 對(duì)象： 1個(gè)標(biāo)簽和 6個(gè)復(fù)選框。默認(rèn) 0表示左對(duì)齊 Value：復(fù)選框當(dāng)前狀態(tài)。 2．復(fù)選框的主要屬性 （名稱）： Name，名稱，默認(rèn)值為 Check1 Caption：標(biāo)題內(nèi)容，字符型。第三個(gè)按鈕被按下 = 36 End If End Sub ▲ 表達(dá)式 = True可直接寫成 Visual Basic程序設(shè)計(jì)教程 41 復(fù)選框 CheckBox 復(fù)選框允許用戶進(jìn)行多項(xiàng)選擇 復(fù)選框有三種狀態(tài)：選中 (√)，沒選中和無效。是否是第一個(gè)按鈕按下？ = 10 ElseIf = True Then 39。 單擊單選按鈕時(shí)，只作選擇標(biāo)記，編程只對(duì)命令按鈕。 事件： Form_Load 和各單選按鈕的 Click Private Sub Form_Load() = 10 = True 39。初始文字大小為 10磅。 2．單選按鈕的主要屬性 （名稱） : Name，單選按鈕的名稱，默認(rèn)值為 Option1 Caption: 單選按鈕的標(biāo)題內(nèi)容，默認(rèn)值為 Option1 Alignment:對(duì)齊方式，默認(rèn) 0(左 )，按鈕在左，標(biāo)題在右； Value: 按鈕是否被選中。 Y End Sub Visual Basic程序設(shè)計(jì)教程 37 單選按鈕 (OptionButton) 單選按鈕可用于表示一組互相排斥的選項(xiàng)。 現(xiàn)要求編寫一程序，在文本框中輸入工資或薪金總額，單擊“計(jì)算”按鈕，將求得的個(gè)人所得稅顯示在標(biāo)簽上。以成績等級(jí)轉(zhuǎn)換為例，使用Select Case語句的代碼如下： 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 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】 我國個(gè)人所得稅在 2022年元旦提高起征點(diǎn)，起征點(diǎn)的 1600元。 （ 4） Case與“表達(dá)式值”之間應(yīng)有空格間隔。 （ 2）“表達(dá)式值”其類型與“測試表達(dá)式”相同，有確定值。 當(dāng)與所有的表達(dá)式值不符時(shí)，執(zhí)行 Case Else后的語句塊。 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 = 隸書 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ì)的條件語句 Select Case又稱為“情況選擇”語句。但可讀性不好。 Visual Basic程序設(shè)計(jì)教程 24 編寫嵌套的選擇結(jié)構(gòu)程序 If語句允許出現(xiàn)嵌套形式。 合格 Else = 等級(jí)： amp。其中標(biāo)簽 Label5用于顯示等級(jí) = 等級(jí)： amp。 （ 4）行 If語句也可以改寫成塊 If語句。 兩數(shù)互換使用語句組： 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語句采用多行代碼的形式，其格式為： If 條件 1 Then 語句塊 1 [ElseIf 條件 2 Then [ 語句塊 2 ]] …… [Else [ 語句塊 n+1 ]] End If 1．語句執(zhí)行過程 執(zhí)行過程如圖 Visual Basic程序設(shè)計(jì)教程 22 使用塊 If語句 2．關(guān)于格式 （ 1） If與 End If必須成對(duì)出現(xiàn)。 這樣 A、 B、 C已按從小到大排列。 通過這樣兩次比較， A便是最小數(shù)了。 程序算法為： （ 1）先將三個(gè)數(shù)賦值給變量 A、 B、 C。界面如圖。 Visual Basic程序設(shè)計(jì)教程 17 在窗體上建立文本框控件 Text1和命令按鈕控件 Command1。 Visual Basic程序設(shè)計(jì)教程 16 5 x5)(x 5x x1 f ( x )1 / 42????????【 例 】 編程，輸入 x，求下列分段函數(shù) f(x)值。 Visual Basic程序設(shè)計(jì)教程 14 使用行 If語句 行 If語句的格式為： If 條件 Then 語句 1 [Else 語句 2 ] If 條件 Th
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1