第三次VB參考答案

1、一、填空題1、(提交作業(yè)，無參考答案)字符常量必須用_括起來 。 解析：字符常量必須用雙引號括起來，如"jxnanchang"。 2、日期型常量必須要用_括起來。 解析：在程序中書寫時要用兩個“#”符號把表示日期和時間的值括起來。 格式：可以是mm/dd/yyyy或mm-dd-yyyy，也可以是yyyy/mm/dd或yyyy-mm-dd，如果日期是非法的或不存在的，系統(tǒng)將提示出錯。 #09/02/99#、#January 4，2005#、#2005-5-1 14:30:00 PM#都是合法的日期型常量。 3、設(shè)變量a=10,b=20,c=30,d=40，則表達(dá)式d>c

2、>b= a<>(b>d)的值是_。 解析： 在求表達(dá)式d>c>b=a<>(b>d)的值時，由于表達(dá)式的運(yùn)算優(yōu)先順序，所以先計(jì)算括號內(nèi)的值。根據(jù)b和d的值可知，括號內(nèi)b>d的值是False（轉(zhuǎn)換為數(shù)值型的值0），因此整個表達(dá)式可以簡化為40>30>20=10<>0。按照關(guān)系運(yùn)算符的優(yōu)選級是從左向右的順序進(jìn)行運(yùn)算的。先計(jì)算40>30的結(jié)果為True（轉(zhuǎn)換為數(shù)值型的值為1），整個表達(dá)式簡化為1>20=10<>0；計(jì)算1>20的結(jié)果為False（轉(zhuǎn)換為數(shù)值型的值0），整個表達(dá)式簡化為0=1

3、0<>0；計(jì)算0=10的結(jié)果為False（轉(zhuǎn)換為數(shù)值型的值0），整個表達(dá)式簡化為0<>0，此表達(dá)式的計(jì)算結(jié)果為False。因此答案是False（關(guān)系運(yùn)算符的運(yùn)算結(jié)果是布爾值True或False）。 注意：在將布爾值True參加數(shù)值運(yùn)算時，True被轉(zhuǎn)換為整數(shù)1，而False被轉(zhuǎn)換為整數(shù)0。在將數(shù)值轉(zhuǎn)換為布爾值時，只要是非0值就轉(zhuǎn)換為True，0值轉(zhuǎn)換為False。 4、單擊窗體，并編寫如下程序代碼： Private Sub Form_click() Dim c As Boolean c = 5 - 8 Print c End Sub 運(yùn)行后的輸出結(jié)果是：_。 解析： 通

4、過代碼中的聲明語句可知變量c為布爾型，則返回值只有True或False。表達(dá)式“c = 5 8”的值為3，是數(shù)值型的值。此時將數(shù)值型轉(zhuǎn)換成布爾型的值，3屬于非0的數(shù)則轉(zhuǎn)換為True。因此答案是True。5、（提交作業(yè)）根據(jù)所給條件，列出布爾表達(dá)式。(1)閏年的條件是年號（year）能被4整除，但不能被100整除；或者能被400整除。(2)一元二次方程ax2+bx +c = 0有實(shí)根的條件為：a0，并且b2-4ac 0。(3)征兵的條件是：男性（sex）年齡（age）在1820歲之間，身高（size）在1.65m以上；或者女性（sex）年齡（age）在1618歲之間，身高（size）在1.60m

5、以上。(4)分房的條件為已婚（marrigerat），年齡（age）在26歲以上，工作年限（workingage）在5年以上。解答：其布爾表達(dá)式分別為(1)(year Mod 4=0 And year Mod 100<>0) O r(year Mod 400=0)或 (Int(year/4)=year/4 And Int(year/100)<>year/100) Or (Int(year/400)=year/400)說明：被某個數(shù)整除，可以用數(shù)值運(yùn)算符Mod或Int()函數(shù)來實(shí)現(xiàn)。 (2)a<>0And b2-4*a*c>=0 (3)設(shè)性別sex值Tr

6、ue代表男，sex值False代表女。(sex And age>=18 And age<=20 And size>=1.65) Or (Not sex And age>=16 And age<=18 And size>=1.60)(4) 設(shè)婚否marrigerat值為True代表已婚，F(xiàn)alse代表未婚。marrigerat And age >= 26 And workingage >= 5 6、(提交作業(yè))在數(shù)值型數(shù)據(jù)類型中占2個字節(jié)的是_ ，其類型說明符是_ 。 解析：數(shù)值型數(shù)據(jù)類型包括字節(jié)型（Byte），占1個字節(jié)；整型（Integer），

7、占2個字節(jié)，用%表示；長整型（Long），占4個字節(jié)，用&表示；單精度型（Single），占4個字節(jié)，用！表示；雙精度型（Double），占8個字節(jié)，用#表示；貨幣型（Currency），占8個字節(jié)，用 表示，所以結(jié)果是Integer和%。7、(提交作業(yè))編寫如下代碼： Private Sub Form_click() Dim a$, b$, c$ a = "Visual Basic Technology" b = "Programme" c = b & LCase(Mid(a, 4, 2) & Right(a, 8) Print

8、 c End Sub 單擊窗體后輸出結(jié)果為：_ 。 解析：Lcase(x)函數(shù)是將字符串中的字母轉(zhuǎn)換成小寫狀態(tài)；Mid(x,n1,n2)函數(shù)是返回字符串x左邊第n1個字符開始到第n2個字符。例如：Mid("jxbsvti",2,3)返回的值是“xbs”。Right(x,n)函數(shù)是在字符串x中從右邊取n個字符，“&”是用來連接字符串的運(yùn)算符。因此答案是“Programmetechnology”。二、選擇題1、(自測作業(yè)) “x是小于100的非負(fù)數(shù)”，用VB表達(dá)式表示正確的是 A. 0 x 100 B. 0 <= x < 100 C. 0 <= x A

9、nd x < 100 D. 0 <= x Or x < 100 解答：(A)和(B)是錯誤的VB表達(dá)式，同時根據(jù)題意應(yīng)該用邏輯與And來表示。所以，正確答案為(C)。2、(自測作業(yè))執(zhí)行語句 Dim cond As Boolean： X =8， 在以下表達(dá)式中， cond 值為 True 的是（ ）。A. cond = X >10 B. cond = X =8C. cond =（X >5 And X <3） D. cond = X =0解答：答案為B，第二個“=”號是關(guān)系運(yùn)算符，表達(dá)式x=8的值為True；第一個“=”號是賦值運(yùn)算符，即把True值賦給con

10、d。3、 (自測作業(yè))布爾變量 bools =true 的條件是兩門功課 A， B 中， 兩門均達(dá)90， 或平均達(dá)到或高于95，正確的表達(dá)式是。A. bools=（A >=90 And B >=90 And（A + B）/2 >=95）B. bools= A >=90 Or B >=90 Or（A + B）/2 >=95C. bools= A >=90 And B >=90 Or（A + B）/2 >=95D. bools= A >=90 And B >=90 Or A >=95 And B >=95解答：答案為C。

11、兩門課均達(dá)90是且得關(guān)系，與平均分達(dá)到95是或的關(guān)系。4、(自測作業(yè))語句 Dim C as String *1， 表達(dá)式 C >=“A” And C <=“Z” Or C >=“a” And C<=“z”值為 True， 則 C 一定是（ ）。A. 數(shù)字 B. 大寫字母 C. 小寫字母 D. 字母解答：答案為D。變量C是定長字符串，長度為1，C >=“A” And C <=“Z” Or C >=“a” And C<=“z”，表示C中存放字符的Ascii碼介于“A”“Z”或“a”“z”。故表達(dá)式取真的條件是C是字母。5、(自測作業(yè))關(guān)于語句 Se

12、lect case A 的 case 子句及其說明中，說明錯誤的是（ ）。A. Case -5 To5 判斷 A 在區(qū)間 -5， 5 中B. Case “0” To “9”，“a” To “f” 判斷 A 是數(shù)字字符或字母 “a”“f” 中某字符C. Case“張”，“陳” 判斷 A 是字符“張”或“陳”D. Case Is<0，1，2 判斷 A 是小于 0 或小于 1 或小于 2解答：答案為D，答案D表示A 是小于 0 或A= 1 或A=26、（提交作業(yè)）在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程。程序運(yùn)行后，如果在輸入對話框中輸入 2，則窗體上顯示的是（

13、 ）。Private Sub Command1_Click（）x =InputBox（“Input”）Select Case xCase 1，3Print“分支1”Case Is>4Print“分支2”Case ElsePrint“Else分支” End SelectEnd SubA. 分支1 B. 分支2 C. Else 分支 D. 程序出錯解答：答案為C，輸入為“2”，符合Case Else部分7、（提交作業(yè)）設(shè) a =2， b =3，c =4， d =5， 下列表達(dá)式的值是（ ）。Not a <=c Orc =b2 And b < >a +cA. -1 B. 1

14、C. True D. False解答：答案為D。解答：略8、（提交作業(yè)）以下關(guān)系表達(dá)式中，其值為 False 的是（ ）。A.“ABC” > “AbC” B.“the” <> “they”C.“VISUAL” = UCase（“Visual”） D.“Integer” > “Int”解答：答案為B；兩個字符串比較大小，規(guī)則為對應(yīng)位置字符依次進(jìn)行Ascii碼比較（以A答案為例，即“A”和“A”比，“B”和“b”比，“C”和“C”比），有一對比出大小就立刻結(jié)束，如果沒有比出大小某字符串已經(jīng)比較完畢，則一定小。9、（提交作業(yè)）以下 Case 語句中錯誤的是（ ）。A. Cas

15、e 0 To10 B. Case Is>10C. Case Is>10 And Is<50 D.Case 3,5， Is>10 解答：答案為C；Select-Case語句沒有這種表達(dá)形式。10、（提交作業(yè)）在窗體上畫一個名稱為 Command1 的命令按鈕， 然后編寫如下事件過程。 程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是（ ）。Private Sub Command1_Click（）x = -5If Sgn（x） Theny =Sgn（x2）Elsey =Sgn（x）End IfPrint yEnd SubA. -5 B.25 C.1 D. -1答案為C。第二行語句I

16、f Sgn（x） Then 看似缺少些什么實(shí)則不然。Sgn函數(shù)為符號函數(shù)，x=-5，則sgn（x）=-1。由于Sgn(x)作為If語句的條件表達(dá)式，取值只能是True或False。根據(jù)書本p51不同數(shù)據(jù)類型的賦值說明第三條，-1轉(zhuǎn)換為True，則Then后的語句y =Sgn（x2）被執(zhí)行，結(jié)果為1。三、編程題1、(提交作業(yè))編寫實(shí)現(xiàn)以下要求，當(dāng)用戶單擊窗體，彈出Inputbox輸入框，在輸入框中輸入的值在90100則在窗體上輸出“優(yōu)”；如果在輸入框中輸入的值在8089則在窗體上輸出“良”；如果在輸入框中輸入的值在7079則在窗體上輸出“中”；如果在輸入框中輸入的值在6069則在窗體上輸出“及格

17、”；否則在窗體上輸出“不及格”。（界面自行設(shè)計(jì)，提交窗體文件，保存文件名為f1）程序代碼如下： Private Sub Form_Load() MsgBox "單擊窗體", , "輸入" End Sub Private Sub Form_Click() Dim a As Single a = InputBox("請輸入a的值", "輸入") If a > 100 Then Print "Error" ' 出錯信息 ElseIf a >= 90 Then Print "

18、;優(yōu)" ElseIf a >= 80 Then Print "良" ElseIf a >= 70 Then Print "中" ElseIf a >= 60 Then Print "及格" Else Print "不及格" End If End Sub 2、(提交作業(yè))編寫實(shí)現(xiàn)以下要求，在文本框中輸入一個學(xué)生的三科成績，計(jì)算總分，并找出最高分。（提交窗體文件，保存文件名為f2）【參考答案】 Private Sub Command1_Click() g1 = Val(Text1.Text) g2 = Val(Text2.Text) g3 = Val(Text3.Text) Var = (g1 + g2 + g3) / 3 g = g1 If g < g2 Then g = g2 If g < g3 Then g = g3 Text4.Text = Var Text5.Text = g End Sub 3、(提交作業(yè))編寫實(shí)現(xiàn)以下要求，商店在出售某一件商品時，假設(shè)單價是12.5元，如果一次購買數(shù)量在1099件之間，按9.8折出售；購買數(shù)量在100199件之間，按9.5折出售；購買數(shù)量在200件以