第四章控制結(jié)構(gòu)(編輯修改稿)
2024-11-03 12:32 本頁面
【文章內(nèi)容簡介】 f m a r k = 70 T he n P r i nt 中 E l s e I f m a r k = 80 T he n P r i nt 良 E l s e I f m a r k = 90 T he n P r i nt 優(yōu) E l s e P r i nt 不及格 E nd I f 返回 72 ? Select Case 語句 Select Case 語句是多分支結(jié)構(gòu)的又一種表示形式，又稱情況語句。 語句形式： Select Case 變量或表達(dá)式 Case 表達(dá)式列表 1 語句塊 1 Case 表達(dá)式列表 2 語句塊 2 …… [Case Else 語句塊 n＋ 1] End Select F 表達(dá)式列表 1 語句塊 1 表達(dá)式列表 2 語句塊 2 表達(dá)式列表 n 語句塊 n … . . 語句塊 n＋ 1 T T T Select語句流程示意圖 F F … . . Private Sub Command1_Click() Dim code As String code = Trim() Select Case code Case + Text4 .Text= Val(Text1) + Val(Text3) Case = Val(Text1) Val(Text3) Case * = Val(Text1) * Val(Text3 Case / IF Val(Text3) = 0 Then MsgBox (除數(shù)不能為 0，請重新輸入 ) Text3 = “ = Else Text4 = Val(Text1) / Val(Text3 End IF End Select End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1 = Text2 = Text3 = Text4 = End Sub 例 47編寫一個(gè)簡便四則運(yùn)算器，應(yīng)用 Select Case 判斷運(yùn)算符。運(yùn)行界面如圖 【 程序代碼 】 表達(dá)式列表 ：與 變量或表達(dá)式 同類型的下面四種形式之一： 表達(dá)式 例 : case A 一組枚舉表達(dá)式 (用逗號分隔 ) case 2,4,6,8 表達(dá)式 1 To 表達(dá)式 2 case 60 To 100 Is 關(guān)系運(yùn)算符表達(dá)式 case Is 60 語句的嵌套 語句形式： IF 表達(dá)式 1 Then 語句塊１ IF 表達(dá)式 2 Then 語句塊２ … End IF 語句塊３ … End IF ?例 46 輸入 3個(gè)整數(shù)，按從小到大的順序輸出。程序運(yùn)行界面如圖 程序代碼如下： Private Sub Command1_Click() Dim x%, y%, z%, t% x = Val(InputBox(請輸入 1個(gè)整數(shù) )) y = Val(InputBox(請輸入 1個(gè)整數(shù) )) z = Val(InputBox(請輸入 1個(gè)整數(shù) )) Print 您輸入三個(gè)的數(shù)是： 。 x。 Spc(1)。 y。 Spc(1)。 z IF x y Then ‘ 如果 x y則 x,y交換 t = x: x = y: y = t End IF IF y z Then t = y: y = z: z = t IF x y Then t = x: x = y: y = t End IF End IF Print 從小到大的順序是： 。 x。 Spc(1)。 y。 Spc(1)。 z End Sub Private Sub Command2_Click() End End Sub ?例 27在文本框中輸入 11000之間的數(shù)字，如果輸入非數(shù)值，或數(shù)值超出范圍，給予提示，并重新輸入。運(yùn)行效果及程序代碼如下： Private Sub Form_Load() = = End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 39?；剀囨I的 ASCII碼值為 13 If IsNumeric() Then 39。判斷是否是數(shù)值 x = Val() If x 0 Or x 1000 Then = 39。焦點(diǎn)回到文本框 = 數(shù)值超出范圍 ,再輸入 ! 39。文本框中顯示提示信息 Else = 輸入正確！ End If Else = 請輸入數(shù)字 ! End If End If End Sub 條件函數(shù) VB中提供的條件函數(shù)： IIF（）函數(shù)和 Choose（）函數(shù)，適用于簡單的判斷場合。前者代替 IF語句，后者可代替 Select Case語句， ?IIF（）函數(shù) 函數(shù)形式： IFF（表達(dá)式，條件為 True時(shí)的值，條件為 False時(shí)的值） 例如：求 x， y中大的數(shù)，放入變量 T中，可以應(yīng)用語句 T=IFF( xy , x ,y) ?Choose ()函數(shù) 函數(shù)形式： Choose（整型表達(dá)式，選項(xiàng)列表） 其中整型表達(dá)式的值決定函數(shù)返回選項(xiàng)列表中的哪個(gè)值。如果整型表達(dá)式為 1，則函數(shù)返回選項(xiàng)列表中的第一項(xiàng)的值，若整型表達(dá)式為 2，則函數(shù)返回選項(xiàng)列表中的第 2項(xiàng)的值， … 依次類推。 如果整型表達(dá)式的值小于 1或大于列出的選項(xiàng)數(shù)目時(shí)，函數(shù)返回 Null。 如果整型表達(dá)式的值為非整型時(shí)，系統(tǒng)自動取其整數(shù)進(jìn)行判斷。 例如，根據(jù) x是 1～ 4的值，轉(zhuǎn)換成 “ 內(nèi)科 ” 、 “ 外科 ” 、 “ 婦科 ” 、 “ 兒科 ” 的語句可以寫成： kb＝ Choose（ x,“內(nèi)科 ” ,“外科 ” ,“婦科 ” ,“兒科 ” ） For循環(huán)語句 For循環(huán)語句是計(jì)數(shù)型循環(huán)語句，用于控制循環(huán)次數(shù)預(yù)知的循環(huán)結(jié)構(gòu)。 語句形式： For 循環(huán)變量＝初值 To 終值 [ Step 步長 ] Next 循環(huán)變量 說明： 循環(huán)變量必須是數(shù)值型 步長：一般為正數(shù)，初值小于終值 ； 若為負(fù)數(shù)，初值大于終值； Step
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1