計(jì)算機(jī)二級(jí)vb教程ppt課件-文庫(kù)吧在線文庫(kù)
【正文】 縮進(jìn)格式，增加可讀性。 （ 5）語(yǔ)句塊可以是一條或多條語(yǔ)句，可寫(xiě)成一行或多行。 True表示選中 3．單選按鈕的事件 單選按鈕的主要事件是 Click事件 Visual Basic程序設(shè)計(jì)教程 38 【 例 44】 設(shè)計(jì)三個(gè)單選按鈕，用來(lái)控制文本框中文本的字號(hào) 1 36磅。是否按下第二個(gè)？ = 18 Else 39。 事件：各復(fù)選框的 Click。 Visual Basic程序設(shè)計(jì)教程 47 2．創(chuàng)建框架容器內(nèi)其它控件的方法： （ 1）先建框架，在選擇框架后依次創(chuàng)建其中的各控件。 False時(shí)，框架及其內(nèi)部的控件都不可見(jiàn) Visual Basic程序設(shè)計(jì)教程 49 Goto語(yǔ)句 實(shí)現(xiàn)程序流程無(wú)條件轉(zhuǎn)移到本過(guò)程的另一處。 Visual Basic程序設(shè)計(jì)教程 51 On...GoTo語(yǔ)句 On...GoTo語(yǔ)句可實(shí)現(xiàn)多分支。大于 100無(wú)效 If Average 0 Then GoTo A4 39。禁止當(dāng)前過(guò)程任何錯(cuò)誤處理程序 Visual Basic程序設(shè)計(jì)教程 55 【 例 】 求一元二次方程的實(shí)數(shù)解，程序可以編寫(xiě)成： Private Sub Form_Click() Dim A As Single, B As Single, C As Single Dim D As Single, X1 As Single, X2 As Single On Error GoTo ErrLine A = Val(InputBox(“a=”)): B = Val(InputBox(“b=”)) C = Val(InputBox(“c=”)) D = B * B 4 * A * C Print “X1=”。 這些模塊集組合起來(lái)形成一個(gè)整體，完成指定功能的問(wèn)題要求。 , , 信息 39。a≠0 If D = 0 Then 39。 + amp。 i , , 信息 End If End If End Sub （ 1） T T2可改用 X1和 X2，但并非真正的 X值。 （ 5）標(biāo)志 Flag表示答題是否正確，正確為 1，否則為 0。判題開(kāi)始 Flag = 0 If Then If Val() = Result Then MsgBox 非常正確 !, , 信息 : Flag = 1 ElseIf Then If Val()=Result Then MsgBox 非常正確 ,做得很棒 !,信息:Flag=1 ElseIf Then If Val()=Result Then MsgBox 非常正確 ,很聰明 !, , 信息 : Flag = 1 ElseIf Then If Val()=Result Then MsgBox 好極了 ,完全正確 !, 信息 : Flag = 1 End If If Flag = 0 Then MsgBox 很遺憾 ,你沒(méi)有做對(duì) ,下次努力吧 !, , 信息“ = 出題“ End If End Sub Visual Basic程序設(shè)計(jì)教程 66 上面程序雖然較長(zhǎng)，但部分處理過(guò)程類似。出題開(kāi)始 A = Int(Rnd * 9 + 1): B = Int(Rnd * 9 + 1): C = Int(Rnd * 4 + 1) If C = 4 Then A = A * B = A: =B Select Case C 39。 （ 1）命令按鈕應(yīng)具有出題和判題兩個(gè)功能。 X2= amp。 X2= amp。 amp。 為防止出錯(cuò)，在編程前應(yīng)考慮周全。 復(fù)雜程序應(yīng)根據(jù)錯(cuò)誤號(hào) ()來(lái)編寫(xiě)處理程序。 優(yōu)秀 A4: …… 不過(guò)現(xiàn)在基本上使用以 If和 Select Case語(yǔ)句為主。 Visual Basic程序設(shè)計(jì)教程 52 2．語(yǔ)句流程 先計(jì)算表達(dá)式的值， 若值為 1，轉(zhuǎn)移到目標(biāo)列表中的第 1個(gè)目標(biāo)處 若值為 2，轉(zhuǎn)移到目標(biāo)列表中的第 2個(gè)目標(biāo)處， …… 。 Visual Basic程序設(shè)計(jì)教程 50 如要求輸入一個(gè) 0的數(shù)，再進(jìn)行一些處理，代碼： Private Sub Command1_Click() Dim A As Single,…… A = Val(InputBox(請(qǐng)輸入一整數(shù) )) If A 0 Then GoTo ProA MsgBox 數(shù)據(jù)輸入有錯(cuò) ! GoTo ProB ProA: 39。 默認(rèn)值為 Frame1 Caption：框架標(biāo)題，一般說(shuō)明框架內(nèi)控件特性。 在學(xué)第 8章后，可用過(guò)程調(diào)用方法，進(jìn)行程序復(fù)用。 默認(rèn)值為 Check1 Alignment：對(duì)齊方式，整數(shù)類型。啟動(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ā)生變化。 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。 Select Case 測(cè)試表達(dá)式 [Case 表達(dá)式值 1 [ 語(yǔ)句塊 1 ]] [Case 表達(dá)式值 2 [ 語(yǔ)句塊 2 ]] …… [Case Else [ 語(yǔ)句塊 n+1]] End Select Visual Basic程序設(shè)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1