1、程序的選擇結(jié)構(gòu) select case結(jié)構(gòu),Private Sub Command1_Click() player = Text1.Text Select Case player Case 科比 MsgBox 洛杉磯湖人隊(duì)；24號(hào)球衣, 0, 球隊(duì)名稱 Case 霍華德 MsgBox 休斯頓火箭隊(duì)；12號(hào)球衣, 0, 球隊(duì)名稱 Case 詹姆斯 MsgBox 邁阿密熱火隊(duì)；6號(hào)球衣, 0, 球隊(duì)名稱 Case Else MsgBox NBA 沒(méi)有這個(gè)球員, 0, 球隊(duì)名稱 End Select End Sub, , ,Select Case語(yǔ)句,基本格式 Select Case Case Ca

2、se Case Else End Select,功能: 根據(jù)測(cè)試表達(dá)式的值,按順 序匹配Case后的表達(dá)式, 如果匹配成功,則執(zhí)行該 Case下的語(yǔ)句塊,然后轉(zhuǎn) 到End Select語(yǔ)句之后 繼續(xù)執(zhí)行,Case（后面的）表達(dá)式（兩種形式） 1.羅列。例如: Case “科比”，“加索爾” Case 1 , 3 , 5 2.范圍。具體范圍 用TO 例如: Case 10 TO 30 Case A TO Z 其他 用Is 例如: Case Is = 10,注意: 1. 以上兩種形式可以混用， 例如: Case Is -5 , 0 , 5 To 100 2.測(cè)試表達(dá)式類型應(yīng)與Case表達(dá)式類型一致

3、，,【例】求一元二次方程ax2+bx+c=0的解 。 分析： (1) 如果a=0；b=0，則方程無(wú)解，提示重新輸入系數(shù)； b0，則 x=-c/b (2) 如果a0； b2-4ac=0 ，則有兩個(gè)相等的實(shí)根 b2-4ac0， 則有兩個(gè)不等的實(shí)根 b2-4ac0， 則有兩個(gè)共軛復(fù)根,Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text): Picture1.Cls If A = 0 Then If B = 0 Then MsgBox 系數(shù)為零，請(qǐng)重新輸入 Else X = -

4、C / B: Picture1.Print X=; X End If Else Delta = B 2 - 4 * A * C Select Case Delta Case 0: Picture1.Print X1=X2=; -B / (2 * A) Case Is 0 X1 = (-B + Sqr(Delta) / (2 * A) X2 = (-B - Sqr(Delta) / (2 * A) Picture1.Print X1=; X1, X2=; X2 Case Is 0: MsgBox 有兩個(gè)共軛復(fù)根 End Select End If End Sub,練習(xí): 編寫程序計(jì)算貨物運(yùn)費(fèi)T。設(shè)貨物運(yùn)費(fèi)每噸單價(jià)P(元)與運(yùn)輸距離S(公里)之間有如下關(guān)系: 30 S100 27.5 100S200