346VB選擇語(yǔ)句

1、新時(shí)代領(lǐng)航信息技術(shù)基礎(chǔ)能力訓(xùn)練必修一版權(quán)所有 侵權(quán)必究3.4.6vb選擇語(yǔ)句(1課時(shí))學(xué)習(xí)指導(dǎo)學(xué)習(xí)指導(dǎo)1選擇語(yǔ)句也稱“分支結(jié)構(gòu)語(yǔ)句”或“條件判斷語(yǔ)句”，用來(lái)表示選擇(條件)控制結(jié)構(gòu)，使得程序在執(zhí)行過(guò)程中，根據(jù)不同的判斷結(jié)構(gòu)，選擇執(zhí)行不同的處理。選擇語(yǔ)句主要有if語(yǔ)句，在vb中，if語(yǔ)句又分為兩種形式：行if語(yǔ)句。行if語(yǔ)句必須在一行內(nèi)寫(xiě)完。該語(yǔ)句的執(zhí)行過(guò)程是：先計(jì)算條件表達(dá)式的值，如果條件表達(dá)式的計(jì)算結(jié)果是true，就執(zhí)行then后面的語(yǔ)句，否則執(zhí)行else后面的語(yǔ)句。如果else和它的后隨語(yǔ)句不出現(xiàn)，則條件表達(dá)式值為true時(shí)執(zhí)行then后面的語(yǔ)句，否則就什么也不執(zhí)行，程序轉(zhuǎn)向if語(yǔ)句后面的

2、后繼語(yǔ)句。行if語(yǔ)句格式如下：if條件表達(dá)式 then語(yǔ)句1else 語(yǔ)句2或if條件表達(dá)式then 語(yǔ)句塊if語(yǔ)句。塊if語(yǔ)句的格式如下：if 條件表達(dá)式1 then語(yǔ)句塊1elseif 條件表達(dá)式2 then語(yǔ)句塊2elseif 條件表達(dá)式n then語(yǔ)句塊nelse 語(yǔ)句塊0end if這兒的語(yǔ)句塊可以由一個(gè)或多個(gè)語(yǔ)句組成。如果只有兩種不同情形的分別處理，則中間所有的elseif部分都不必書(shū)寫(xiě)，只保留語(yǔ)句塊1和語(yǔ)句塊0相應(yīng)的部分即可，即塊if語(yǔ)句可以簡(jiǎn)化為以下格式：if 條件表達(dá)式1 then語(yǔ)句塊1else 語(yǔ)句塊0end if當(dāng)條件表達(dá)式為true或false時(shí)進(jìn)行處理的語(yǔ)句都只有一

3、個(gè)時(shí)，可采用行if語(yǔ)句，也可采用塊if語(yǔ)句；而如果分支中進(jìn)行處理的語(yǔ)句不止一個(gè)時(shí)，必須采用塊if語(yǔ)句。2inputbox函數(shù)(1)作用：顯示一個(gè)輸入框，并提示用戶在文本框中輸入文本和數(shù)字或選中某個(gè)單元格區(qū)域，當(dāng)按下確定按鈕后返回包含文本框內(nèi)容的值。(2)語(yǔ)法：inputbox(“提示文本”，”標(biāo)題”)參數(shù)說(shuō)明：提示文本是必選項(xiàng)。例如有以下vb程序段：private sub command1_click()dim sngcjsngcj inputbox(”請(qǐng)輸入學(xué)生成績(jī)：”， ”輸入成績(jī)”)end sub執(zhí)行后，會(huì)跳出如下輸入對(duì)話框。此時(shí)，輸入的內(nèi)容將返回到變量sngcj中3msgbox函數(shù)(1

4、)作用：在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè) integer 告訴用戶單擊哪一個(gè)按鈕。(注：在程序調(diào)試階段，此函數(shù)非常有用。) (2)語(yǔ)法： msgbox(提示文本， 按鈕， 標(biāo)題) 參數(shù)說(shuō)明：提示文本為必填項(xiàng)，按鈕為選填，默認(rèn)值為0。例如有以下vb程序段：private sub command1_click()dim sngcjsngcj msgbox(”你確認(rèn)要退出嗎？”， 1, ”關(guān)閉”)end sub運(yùn)行時(shí)，會(huì)跳出如下圖所示對(duì)話框。4print命令作用：在窗體中顯示指定的信息語(yǔ)法：print 變量、表達(dá)式或字符串學(xué)習(xí)提示學(xué)習(xí)提示本節(jié)課學(xué)習(xí)中要求掌握vb選擇語(yǔ)句的使用。掌握i

5、nputbox函數(shù)，msgbox函數(shù)及print命令的使用。并能使用if語(yǔ)句靈活處理生活中的實(shí)際問(wèn)題。難點(diǎn)是塊if語(yǔ)句的靈活使用。1在vb中，針對(duì)語(yǔ)句if i1 then j1，下列說(shuō)法正確的是()ai1和j1均為賦值語(yǔ)句bi1和j1均為關(guān)系表達(dá)式ci1為關(guān)系表達(dá)式，j1為賦值語(yǔ)句di1為賦值語(yǔ)句，j1為關(guān)系表達(dá)式【答案】c基礎(chǔ)訓(xùn)練基礎(chǔ)訓(xùn)練2運(yùn)行下列vb程序段后，顯示的結(jié)果為()dim x as integerif x then print x else print x1a1 b0 c1 d顯示錯(cuò)誤【答案】a3下面vb語(yǔ)句正確的是()aif x y then print “x不等于y” bif

6、 x y print x不等于ycif x y then print “x不等于y” dif x y print x不等于y【答案】c4符合vb語(yǔ)句正確描述：如果x3y且xy，則yx3是()a b.（，）c.*d.：【答案】a5.下面程序段()能夠正確實(shí)現(xiàn)目的：如果x0 then xy3 else yx3print xy；yxa3 3 b5 8 c3 3 d25 25【答案】c7在條件選擇語(yǔ)句ifelseifelseend if中，當(dāng)if結(jié)構(gòu)內(nèi)有多個(gè)條件都為true時(shí)，則()avb依次執(zhí)行條件為true的后面的語(yǔ)句塊bvb執(zhí)行第一個(gè)為true的條件后面的語(yǔ)句塊cvb執(zhí)行最后一個(gè)為true的條件

7、后面的語(yǔ)句塊d. vb執(zhí)行任一個(gè)為true的條件后面的語(yǔ)句塊【答案】b8有如下vb程序段：private sub command1_click()dim sngcjsngcj inputbox(”請(qǐng)輸入學(xué)生的成績(jī)：”， ”輸入成績(jī)”)if sngcj 85 thenmsgbox (”成績(jī)優(yōu)秀”)elseif sngcj 60 and sngcj 85 thenmsgbox (”成績(jī)優(yōu)秀”)elseif sngcj 60 and sngcj 85 thenmsgbox (”成績(jī)合格”)elsemsgbox (”成績(jī)較差”)end ifend sub當(dāng)用戶在界面輸入“70”后，此時(shí)將會(huì)顯示()的提

8、示信息a成績(jī)優(yōu)秀 b成績(jī)合格 c成績(jī)較差 d成績(jī)不合格【答案】b9下列vb程序的功能是輸入一串字符，判斷該字符串字符數(shù)奇偶。private sub command1_click()dim nvalue as string, nlength as stringnvalue text1.textif len(nvalue) mod 2 0 then nlength ”single”else nlength ”double”end if label2.caption nlengthend sub運(yùn)行程序后在文本框text1中輸入“basic”，單擊“command1”按鈕，標(biāo)簽label2中輸出()

9、asingle bdouble c1 d2【答案】a10下列vb事件過(guò)程private sub command_click()msgbox str(123 456)end sub運(yùn)行時(shí)，在輸出對(duì)話框中顯示的提示信息是()a123123 b”246” c顯示出錯(cuò)信息 d579【答案】d11利用if語(yǔ)句補(bǔ)充完整如下計(jì)算分段函數(shù)代碼：y private sub form_click()dim x as integer, y as integerx inputbox(”請(qǐng)輸入一個(gè)數(shù)值”)if x 20 then_elseif x 10 then_elseif _ then_end ifprint ”x”； x, ”y”； yend sub【答案】（1）y=x*x+3*x+2（2）y=sqr(3*x)-2（3） x0（4）y=1/x+abs(x)12變量a，b，c分別保存一元二次方程的二次項(xiàng)、一次項(xiàng)系數(shù)和常數(shù)項(xiàng)(其中a0)，變量x1和x2分別保存方程的兩個(gè)根。完善下列程序，使程序運(yùn)行時(shí)能根據(jù)方程的a，b，c值計(jì)算根并輸出相應(yīng)信息。d_if d0 thenx1_x2_text4.textstr(x1)text5.textstr(x2)label6.caption”有兩個(gè)不同的實(shí)數(shù)根”elseif_then x1(b)/(2*a) x2=x1 text4.text=str(x1) text5.