初中第二冊(cè)《信息技術(shù)》教材說明及教學(xué)參考

data>=90?

輸出“優(yōu)秀”

yes

no

例：輸入一個(gè)數(shù)，如果是3的倍數(shù)則通過消息框輸出。  private sub form_click()      dim data as integer      data = inputbox("請(qǐng)輸入一個(gè)值：")      if  data mod 3 = 0 then msgbox data  end sub其中“data mod 3 =0”，即數(shù)據(jù)除以3后的商是0，可以得到3的倍數(shù)。1.2語法格式：if  <條件>  then  <語句1>  else  <語句2>功能：如果“條件”的值為true，則執(zhí)行語句組1，否則執(zhí)行語句組2。說明：（1）“條件”通常是關(guān)系表達(dá)式或邏輯表達(dá)式。條件語句要求在一行內(nèi)書寫完畢。（2）語句組1和語句組2可以是簡(jiǎn)單語句，也可以是用冒號(hào)分隔的多個(gè)語句。（3）[ else  <語句組2>] 是可選項(xiàng)，當(dāng)該項(xiàng)省略時(shí)，if語句簡(jiǎn)化為：if <條件>  then  <語句>。例如，             private sub form_click()                                    dim data as integer                   data = inputbox(“請(qǐng)輸入成績(jī)：")                    if data >= 90 then print “優(yōu)秀” else print “合格”                   print "計(jì)算完畢"                                    end sub 上例的if 語句可以改寫為：             if data < 90 then print "合格" else print "優(yōu)秀"

data>=90?

輸出“優(yōu)秀”

yes

no

輸出“合格”

輸出“計(jì)算完畢”

可以讓學(xué)生想一想，如何應(yīng)用if語句編寫程序，設(shè)計(jì)程序，輸入x的值，當(dāng)x>=0時(shí)，y=1+x；當(dāng)x<0時(shí)，y=1-2。計(jì)算y的值。 解析：if x>=0 then y=1+x else y=1-2*x2.多行格式語法格式：if條件then語句序列1elseif條件then語句序列2else語句序列3endif結(jié)構(gòu)如下：if <條件> then  <語句組1>[else  <語句組2>]end if說明：（1）if塊必須以一個(gè)end if語句結(jié)束.（2）程序運(yùn)行該語句時(shí)，首先判斷<條件>: 如果條件為true，執(zhí)行then后的語句組1，否則執(zhí)行else后的語句組2。當(dāng)執(zhí)行完then或else之后的語句組后，則繼續(xù)執(zhí)行end if后的語句。（3）語句組可以是單個(gè)語句，也可以是多個(gè)語句。（4）else子句是可選項(xiàng)。若有該項(xiàng)，else必須單獨(dú)占一行。試一試：設(shè)計(jì)一個(gè)程序，輸入成績(jī)，如果不低于85分，輸出“良好！”；如果不低于70分，輸出“優(yōu)秀！”；如果不低于60分，輸出“及格！”；如果低于60分，輸出“不及格！”。 二、 select case語句多種分支情況雖然可以用if語句的嵌套形式實(shí)現(xiàn)多分支選擇，但使用系統(tǒng)提供的多分支選擇select case語句，更為簡(jiǎn)單。語法格式：    select case  <測(cè)試表達(dá)式>        case <表達(dá)式1>            <語句1>        case <表達(dá)式2>            <語句2>            ………         [case else            <語句 n+1>]    end select說明：<測(cè)試表達(dá)式>值的類型是數(shù)值型、字符串型、日期型等，一旦與某個(gè)case后的<表達(dá)式>值相等，則執(zhí)行這個(gè)case中的<語句>，完成后執(zhí)行end select后的語句。 如果所有的case后的<表達(dá)式>都不與<測(cè)試表達(dá)式>項(xiàng)匹配，則執(zhí)行case else后的<語句>。執(zhí)行過程：先對(duì)“測(cè)試條件”求值，然后順序測(cè)試該值與哪個(gè)case子句中的“表達(dá)式列表”相等，如果相等，執(zhí)行該case分支后的語句序列，然后執(zhí)行end select后面的語句；如果沒有相等的，則執(zhí)行case else后的語句序列，最后也執(zhí)行end select后面的語句。 功能：根據(jù)“測(cè)試條件”的值，從多個(gè)case中選擇符合條件的一個(gè)語句序列執(zhí)行。例一：學(xué)生成績(jī)分等，代碼如下：   private sub form_click()  data = inputbox("請(qǐng)輸入一個(gè)成績(jī)", "成績(jī)分等")  select case int(data / 10)       case 10            msgbox "滿分", , "成績(jī)分等"       case 9            msgbox "優(yōu)秀", , "成績(jī)分等"       case 8            msgbox "良好", , "成績(jī)分等"       case 7            msgbox "一般", , "成績(jī)分等"       case 6           msgbox "合格", , "成績(jī)分等"       case else           msgbox "不合格", , "成績(jī)分等"  end select  end sub例二：測(cè)試輸入的字符，代碼如下： private sub form_click()char = inputbox("請(qǐng)輸入一個(gè)字符", "測(cè)試")select case char   case "0" to "9"       msgbox "字符是數(shù)字", , "測(cè)試"   case "a" to "z"       msgbox "字符是小寫字母", , "測(cè)試"   case "a" to "z"       msgbox "字符是大寫字母", , "測(cè)試"   case else       msgbox "字符是其它符號(hào)", , "測(cè)試"end selectend sub運(yùn)行后結(jié)果如圖：循環(huán)結(jié)構(gòu)語句一、for…next語句  for…next循環(huán)結(jié)構(gòu)是一種最簡(jiǎn)單的循環(huán)結(jié)構(gòu)，它屬于計(jì)數(shù)型循環(huán)，常用于循環(huán)次數(shù)已知的程序結(jié)構(gòu)中。在vb中，for…next循環(huán)結(jié)構(gòu)的語法定義如下：