《計(jì)算機(jī)二級(jí)vb教程》ppt課件(文件)
【正文】 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又稱(chēng)為“情況選擇”語(yǔ)句。 （ 2）“表達(dá)式值”其類(lèi)型與“測(cè)試表達(dá)式”相同，有確定值。以成績(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 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元。 Y End Sub Visual Basic程序設(shè)計(jì)教程 37 單選按鈕 (OptionButton) 單選按鈕可用于表示一組互相排斥的選項(xiàng)。初始文字大小為 10磅。 單擊單選按鈕時(shí)，只作選擇標(biāo)記，編程只對(duì)命令按鈕。第三個(gè)按鈕被按下 = 36 End If End Sub ▲ 表達(dá)式 = True可直接寫(xiě)成 Visual Basic程序設(shè)計(jì)教程 41 復(fù)選框 CheckBox 復(fù)選框允許用戶(hù)進(jìn)行多項(xiàng)選擇 復(fù)選框有三種狀態(tài)：選中 (√)，沒(méi)選中和無(wú)效。默認(rèn) 0表示左對(duì)齊 Value：復(fù)選框當(dāng)前狀態(tài)。 屬性設(shè)置 Label1： Caption：你沒(méi)有選擇項(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。 在學(xué)第 7章后，可用控件數(shù)組，大大簡(jiǎn)化程序。 此時(shí)不能采用雙擊方法創(chuàng)建控件。 默認(rèn)值為 Frame1 Enabled：允許屬性。 格式： Goto 行標(biāo)簽 | 行號(hào) 行標(biāo)簽為語(yǔ)句行標(biāo)識(shí)符的簡(jiǎn)稱(chēng)。行標(biāo)簽 Print 正在進(jìn)行處理中 ... …… ProB: 39。格式： On 表達(dá)式 GoTo 目標(biāo)列表 1．有關(guān)格式 “表達(dá)式”值應(yīng)為 0至 255之間的數(shù)，一般取整數(shù)。 若值小于 1或大于目標(biāo)列表總數(shù)，則執(zhí)行On …GoTo 語(yǔ)句后的下一句代碼。小于 0無(wú)效 On Int(Average / 10) + 1 GoTo A1, A1, A1, A1, _ A1, A1, A2, A2, A2, A3, A3 A1: Print 等級(jí)： amp。 Visual Basic程序設(shè)計(jì)教程 54 On Error語(yǔ)句 程序運(yùn)行出現(xiàn)錯(cuò)誤時(shí)，將運(yùn)行 On Error語(yǔ)句 利用 On Error語(yǔ)句可編寫(xiě)處理錯(cuò)誤程序段 On Error語(yǔ)句有三種格式： On Error GoTo line 39。(B+Sqr(D))/(2*A), “X2=”。 Visual Basic程序設(shè)計(jì)教程 56 模塊化程序設(shè)計(jì)的思想為：“自頂向下，逐步細(xì)化和模塊化” 總體出發(fā)，把一個(gè)大的任務(wù)分解為若干個(gè)子任務(wù) 每個(gè)子任務(wù)作為一個(gè)模塊完成一個(gè)特定的功能。 Visual Basic程序設(shè)計(jì)教程 57 【 例 47】 編程，求解一元二次方程： aX2＋ bX＋ c＝ 0。顯然有： 當(dāng) a、 b、 c均為零時(shí)，方程有無(wú)數(shù)解； 當(dāng) a、 b為零， c≠0時(shí)，方程無(wú)解； 當(dāng) a為零， b≠0時(shí)，方程解為 X＝－ c/b； 當(dāng) a≠0時(shí)，求： D＝ b2－ 4ac 若 D≥0， X＝ (－ b177。a=0,b=0,c=0 Else MsgBox 方 程 無(wú) 解 ?。?！ , , 出錯(cuò)信息 39。 Chr(13) amp。a≠0,D≥0 X1 = (B + Sqr(D)) / (2 * A) : X2 = (B Sqr(D)) / (2 * A) MsgBox X1= amp。 Round(X2,4), , 信息 Else 39。 T2 amp。 _ T1 amp。 （ 2）完整的復(fù)根沒(méi)有存放在變量中 （ 3） Chr(13)表示換行。 （ 2）產(chǎn)生 1~4的隨機(jī)整數(shù) C， 1表示加、 2表示減、 … 。 （ 6）在屬性窗口將 Command1的 TabIndex設(shè)為 0，使窗體啟動(dòng)后焦點(diǎn)自動(dòng)在 Command1上。設(shè)置界面運(yùn)算符，獲得正確答案和其它選項(xiàng)值 Case 1 : = + : Result = A + B: R1 = A B: R2 = A * B: R3 = A / B Case 2 : = : Result = A B: R1 = A + B: R2 = A * B: R3 = A / B If A B Then = B: = A: Result = B A Case 3 : = : Result = A * B: R1 = A + B: R2 = A B: R3 = A / B Case 4 : = 247。 程序中還存在一個(gè)問(wèn)題，即四個(gè)選項(xiàng)中有可能會(huì)出現(xiàn)重復(fù)，如 A、 B均為 1，而選項(xiàng)是由加、減、乘、除結(jié)果的整數(shù)構(gòu)成，故就會(huì)有 2個(gè)選項(xiàng)均為 1。出題完成 Visual Basic程序設(shè)計(jì)教程 65 Else 39。 Visual Basic程序設(shè)計(jì)教程 62 Dim Result As Integer Private Sub Form_Load() Randomize: = False = 簡(jiǎn)單四則運(yùn)算 := 出題 = 可選答案 = 16: = = : = End Sub 變量 Result的聲明和 Form_Load初始化對(duì)象屬性 Visual Basic程序設(shè)計(jì)教程 63 Pr
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1