【正文】 Print smystring nflag = nflag + 1 Else nflag = 1 End If End Sub 程序環(huán)境 【 例 】 在窗體中輪流以不同字體顯示文字 Visual Basic程序設計教程 27 Select Case是實現(xiàn)多分支程序設計的條件語句 Select Case又稱為“情況選擇”語句。 （ 2）“表達式值”其類型與“測試表達式”相同，有確定值。以成績等級轉換為例，使用Select Case語句的代碼如下： Visual Basic程序設計教程 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ù)錯誤 End Select Visual Basic程序設計教程 32 【 例 】 輸入年 、 月份 ， 輸出該月天數(shù) ,判斷某年 y是否為閏年的條件： y mod 4=0 and y mod 100 0 or y mod 400=0 程序環(huán)境 Visual Basic程序設計教程 33 【 例 43】 我國個人所得稅在 2022年元旦提高起征點，起征點的 1600元。 Y End Sub Visual Basic程序設計教程 37 單選按鈕 (OptionButton) 單選按鈕可用于表示一組互相排斥的選項。初始文字大小為 10磅。 單擊單選按鈕時，只作選擇標記，編程只對命令按鈕。第三個按鈕被按下 = 36 End If End Sub ▲ 表達式 = True可直接寫成 Visual Basic程序設計教程 41 復選框 CheckBox 復選框允許用戶進行多項選擇 復選框有三種狀態(tài)：選中 (√)，沒選中和無效。默認 0表示左對齊 Value：復選框當前狀態(tài)。 屬性設置 Label1： Caption：你沒有選擇項目 ! Check1～ Check6： Caption 分別設為： 100米、 200米、 400米、跳高、跳遠、鉛球 Form： Caption：田徑項目選擇 Visual Basic程序設計教程 44 復選框 CheckBox例（部分程序） Private Sub Check1_Click() Dim Flag As Integer, T As String Flag = 0 T = 你選擇了 : 39。 在學第 7章后，可用控件數(shù)組，大大簡化程序。 此時不能采用雙擊方法創(chuàng)建控件。 默認值為 Frame1 Enabled：允許屬性。 格式： Goto 行標簽 | 行號 行標簽為語句行標識符的簡稱。行標簽 Print 正在進行處理中 ... …… ProB: 39。格式： On 表達式 GoTo 目標列表 1．有關格式 “表達式”值應為 0至 255之間的數(shù)，一般取整數(shù)。 若值小于 1或大于目標列表總數(shù)，則執(zhí)行On …GoTo 語句后的下一句代碼。小于 0無效 On Int(Average / 10) + 1 GoTo A1, A1, A1, A1, _ A1, A1, A2, A2, A2, A3, A3 A1: Print 等級： amp。 Visual Basic程序設計教程 54 On Error語句 程序運行出現(xiàn)錯誤時，將運行 On Error語句 利用 On Error語句可編寫處理錯誤程序段 On Error語句有三種格式： On Error GoTo line 39。(B+Sqr(D))/(2*A), “X2=”。 Visual Basic程序設計教程 56 模塊化程序設計的思想為：“自頂向下，逐步細化和模塊化” 總體出發(fā)，把一個大的任務分解為若干個子任務 每個子任務作為一個模塊完成一個特定的功能。 Visual Basic程序設計教程 57 【 例 47】 編程，求解一元二次方程： aX2＋ bX＋ c＝ 0。顯然有： 當 a、 b、 c均為零時，方程有無數(shù)解； 當 a、 b為零， c≠0時，方程無解； 當 a為零， b≠0時，方程解為 X＝－ c/b； 當 a≠0時，求： D＝ b2－ 4ac 若 D≥0， X＝ (－ b177。a=0,b=0,c=0 Else MsgBox 方 程 無 解 ?。?！ , , 出錯信息 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）完整的復根沒有存放在變量中 （ 3） Chr(13)表示換行。 （ 2）產(chǎn)生 1~4的隨機整數(shù) C， 1表示加、 2表示減、 … 。 （ 6）在屬性窗口將 Command1的 TabIndex設為 0，使窗體啟動后焦點自動在 Command1上。設置界面運算符，獲得正確答案和其它選項值 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。 程序中還存在一個問題，即四個選項中有可能會出現(xiàn)重復，如 A、 B均為 1，而選項是由加、減、乘、除結果的整數(shù)構成，故就會有 2個選項均為 1。出題完成 Visual Basic程序設計教程 65 Else 39。 Visual Basic程序設計教程 62 Dim Result As Integer Private Sub Form_Load() Randomize: = False = 簡單四則運算 := 出題 = 可選答案 = 16: = = : = End Sub 變量 Result的聲明和 Form_Load初始化對象屬性 Visual Basic程序設計教程 63 Pr