最新最全及華工版習(xí)題答案

1、最新最全的華工版Vb課后答案 第三部分 習(xí)題與解答第1章 程序設(shè)計語言與程序設(shè)計11填空題1VB是以（ 事件驅(qū)動 ）作為運行機(jī)制的新一代可視化程序設(shè)計語言。2程序設(shè)計語言是（ 人 ）與（ 計算機(jī) ）交流的工具。3 若從機(jī)器執(zhí)行的角度來對程序設(shè)計語言進(jìn)行分類，則可以分為（ 低級語言 ）和（ 高級語言 ）兩種。4計算機(jī)系統(tǒng)中，對高級語言的翻譯工具稱為（ 編譯 ）程序或（ 解釋 ）程序。5源程序中的錯誤一般分為（ 編譯 ）錯誤、（ 運行 ）錯誤和（ 邏輯 ）錯誤等三種。6VB把一個應(yīng)用程序稱為一個（ 工程 ），它包含各種文件。12 選擇題 1把a(bǔ)和b的乘積寫成ab的錯誤屬于（ c ）錯誤。a) 編譯

2、 b) 運行c) 邏輯d) 編譯和運行2用戶在什么時候都可以按（ b ）鍵來查看與當(dāng)前進(jìn)行的工作相關(guān)的幫助。a) Heldb) F1c) ESCd) F103 窗體文件的擴(kuò)展名為（ d ）。a) .vbpb) .basc) .exed) .frm4指示一個窗體位置的值是窗體的（ c ）。a) 對象b) 事件c) 屬性d) 方法5下面選項中不能運行VB程序的操作是（ a ）。a) 雙擊窗體b) 單擊“啟動”按鈕圖標(biāo)c) 從菜單欄運行菜單中選“全編譯執(zhí)行”菜單命令d) 按F5鍵13 問答題1低級語言和高級語言的各自特點是什么？ 答：參見教材1.1。2什么是數(shù)據(jù)描述和數(shù)據(jù)處理？答：參見教材1.2。3

3、源程序的翻譯方式有哪兩種，簡述它們的工作過程。答：參見教材1.1。4一個好程序的基本要求是什么？答：參見教材1.2。5Visual BASIC 集成開發(fā)環(huán)境的主窗口由哪些部分構(gòu)成？各自的主要功能是什么？答：參見教材1.3。6簡述在VB的環(huán)境下，對象、屬性、方法、事件和事件驅(qū)動程序的概念，并用例子進(jìn)行說明。答：在VB的環(huán)境下，對象是系統(tǒng)中的基本運行實體，它封裝了數(shù)據(jù)和操作。工具箱中的命令按鈕、標(biāo)簽、文本框等是對象摸板。控件是由VB工具箱創(chuàng)建的對象。屬性是對象的性質(zhì)或狀態(tài)特征。例如， 窗體的Caption（標(biāo)題）、BackColor（背景顏色）、Height（高度）和Width（寬度）等都是窗體的

4、屬性。事件是對象之間傳遞的消息。VB控件的事件由系統(tǒng)預(yù)先定義。例如，Click（單擊）事件、DblClick（雙擊）事件。方法是對象在某些事件驅(qū)動下執(zhí)行的特定操作。它可以執(zhí)行系統(tǒng)預(yù)定義的操作，例如窗體的Print（打?。┓椒?、Show（顯示窗體）方法； 當(dāng)事件由用戶或VB系統(tǒng)觸發(fā)時，對象會感受到該事件并對該事件作出響應(yīng)，響應(yīng)某個事件后所執(zhí)行的程序就是事件驅(qū)動程序。事件驅(qū)動程序有時也稱為事件過程。 例如，以下是命令按鈕Command1在接受單擊事件時驅(qū)動的程序：Private Sub Command1_Click()Print "Hello world ！"End Sub7總

5、結(jié)使用Visual BASIC開發(fā)一個應(yīng)用程序的過程。答：參見教材1.5。8下面程序是什么事件驅(qū)動程序？如何執(zhí)行該事件驅(qū)動程序？執(zhí)行的結(jié)果如何？Private Sub Command1_Click() Print "歡迎你使用VB！"End Sub答：略。14 編程題編寫一個程序。要求設(shè)置窗體的標(biāo)題是“這是我的第一個練習(xí)”，且在程序執(zhí)行后，單擊窗體顯示如下一行文字：我可以用Visual BASIC編寫程序了！解答：（1）用戶界面設(shè)計：設(shè)計用戶界面由一個窗體構(gòu)成。（2）對用戶界面上的控件對象的屬性進(jìn)行設(shè)置：把窗體的Caption屬性值設(shè)置為“這是我的第一個練習(xí)”。（3）編寫控

6、件對象的事件驅(qū)動程序：Private Sub Form_Click()Print "我可以用Visual BASIC編寫程序了！"End Sub第2章 基本數(shù)據(jù)類型與表達(dá)式21 填空題1在程序設(shè)計語言系統(tǒng)中具有固定語法含義的符號串稱為（ 關(guān)鍵字 ），它們通常用來表示系統(tǒng)提供的標(biāo)準(zhǔn)過程、函數(shù)、運算符、常量等。2（ 標(biāo)識符 ）用于標(biāo)記用戶自定義的常量、類型、變量、控件、過程、函數(shù)等名字。3整型數(shù)據(jù)占（ 2 ）字節(jié)的內(nèi)存空間。長整型數(shù)據(jù)占（ 4 ）個字節(jié)的內(nèi)存空間。單精度浮點型數(shù)據(jù)占（ 4 ）個字節(jié)的內(nèi)存空間。雙精度浮點型數(shù)據(jù)占（ 8 ）個字節(jié)的內(nèi)存空間。日期型數(shù)據(jù)占（ 8 ）個

7、字節(jié)的內(nèi)存空間。4100% 表示100為（ 整 ）型數(shù)據(jù)；100！表示100為（ 單精度浮點 ）型數(shù)據(jù)；100表示100為( 貨幣 )型數(shù)據(jù)。5 符號常量在某一過程中說明，則該符號常量只能在（ 該過程內(nèi) ）內(nèi)有效。6若一個整型變量說明了之后沒有給它賦值，則它的值為（ 0 ）。7在VB中可以把類型說明符放在變量名的（ 末尾 ）來說明變量的類型。8為使VB的編譯程序自動檢查變量聲明，遇到未經(jīng)說明的標(biāo)識符發(fā)出錯誤警告信息，在程序中要加上（ Option Explicit）語句。9對含有多種運算的表達(dá)式，各種運算之間的順序為（ 函數(shù)運算 ）（ 算術(shù)運算 ） （ 關(guān)系運算 ）（ 邏輯運算 ）。10把12

8、34.567的小數(shù)部分四舍五入轉(zhuǎn)換為整數(shù)，可使用函數(shù)（ Cint(1234.567) ）。11將x四舍五入到百位（例如，若x=23874.52應(yīng)舍入成23900），可使用表達(dá)式（ Int(x / 100 + 0.5) * 100 ）。12 將x從十位截斷（例如，x=23874.52應(yīng)截成23800）可使用表達(dá)式（ Fix(x / 100) * 100或者Int(x/100)*100或者Cint(x100)*100 ）。13設(shè)X為數(shù)值變量，求X的常用對數(shù)可使用的表達(dá)式是（ Log(X)/Log(10) ）。14要從字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函數(shù)（

9、 Mid(“Visual BASIC 6.0”,8,5) ）15設(shè)S是字符串變量，并且串長度為7，寫出生成由S的偶數(shù)序號字符組成的字符串的表達(dá)式（例如，把字符串”ABCDEFG”變成“BDF”）。答案：Mid(s, 2, 1) + Mid(s, 4, 1) + Mid(s, 6, 1) 16設(shè)S是字符串變量，并且串長度為7，寫出用第2i1個字符代替第2i個字符所得到字符串的表達(dá)式（例如，把字符串”ABCDEFG”變成“AACCEEG”）。答案：String(2, Mid(s, 1, 1) + String(2, Mid(s, 3, 1) + String(2, Mid(s, 5,1) + Mi

10、d(s,7, 1)或：String(2, Mid(s, 1, 1) + String(2, Mid(s, 3, 1) + String(2, Mid(s, 5, 1) + Right(s, 1)17 產(chǎn)生從整數(shù)a到整數(shù)b之間的隨機(jī)整數(shù)可使用表達(dá)式（ Int(b-a+1)*Rnd+a) ）。18產(chǎn)生從100.01到200.99之間的隨機(jī)數(shù)（包括兩端點）可使用的表達(dá)式是（ Int(20099-10001+1)*Rnd+10001)/100 ）。22 選擇題1下面選項中（ c ）是算術(shù)運算符。a) %b) c) Modd) And2 下面不合法的標(biāo)識符是（ d ）。a) o_Tob) Tab1c)姓

11、名d) Int3下列選項中，把r定義為雙精度型變量的是（ c ）。a) r%b) r!c) r#d) r$4下列表達(dá)式中（ d ）是錯誤的。a) 2a/5b) 21/5c) 2(1/5)d) (-2) (1/5)5在下列選項中，正確表達(dá)2a+5 的表達(dá)式是（ c ）。a) 2a+5b) 2a+25c) 2(a+5)d) 2a25610 Mod 4的值為( b )。a) 1b) 2c) 4d) 107下列運算符中( a )優(yōu)先級最高。a) /b) c) Modd) +8在VB中不能表示邏輯真的是( d )。a) Trueb) 1c) 1d) T9能正確表達(dá)a1或a5的邏輯表達(dá)式是( c )。a)

12、 a<=1或a>=5 b) a<=1 ,a>=5c) a<=1 or a>=5 d) a<=1 And a>=510設(shè)X為整型變量,不能正確表達(dá)1<X<5的邏輯表達(dá)式是( a )。a) 1< X <5 b) X=2 or X=3 or X=4c) 1<X And X <5 d) Not (X<=1)And Not (X>=5)11求COS35°可以使用的函數(shù)是（ d ）。a) Cos 35b) Cos(35)c) Cos(35º)d) Cos(35*3.14159/180)12L

13、en(“中國人民”)的值是（ b ）。a) 0b) 4c) 8d) 不能確定13設(shè)X是一個正實數(shù)，對X的第二位小數(shù)四舍五入可使用的函數(shù)是（ c ）。a) Int(X+0.05)/10 b) Int(X+0.05)/10)c) Int(10*(X+0.05)/10 d) Int(10*(X+0.05)/10)14函數(shù)Int(Rad*99+1)產(chǎn)生隨機(jī)數(shù)的范圍是( b )。a) 1,99)b) 1, 99c) 1，100)d) 1，10023 下列符號哪些是正確的變量名1)n 2) 3x 3) Abs 4) 85 5) print_56 6) 名稱7) 8) a%b 9) ab# 10)My Na

14、me 11)“年齡” 12)學(xué)校$答案: 除了以下符號外，其它符號都是正確的變量名。錯誤的變量名 原因3x 變量名必須以字母為開始Abs 不能和關(guān)鍵字同名85 變量名必須以字母開始 不是英文字母a%b 變量名中不能用字符%My Name 變量名內(nèi)不能有空格字符24 把下列數(shù)學(xué)表達(dá)式寫成VB表達(dá)式1) 2) xxx(ax+b)+c+d+e3) ln（1+|10） 4)5) ctg6) log10(a2+2ab+b2) 答案：1) 1/(1+(1/(1+1/(x+y)2) x*(x*(x*(a*x+b)+c)+d)+e3) Log(1+Abs(a+b)/(a-b) 10)4) Sqr(1+3.14

15、159/2*Cos(48*3.14159/180)5) 1/Tan(1-x*x)/(1+x*x)或者Cos(1-x*x)/(1+x*x)/Sin(1-x*x)/(1+x*x)6) Log(a*a+2*a*b+b*b)/Log(10)25 寫出下列函數(shù)的值1) Int(-1234.5678) 2) Fix(1234.5678)3) val(“12.34”) 4) Cint(1234.5678)5) Abs(-100) 6) Sgn(-100)7) Sqr(sqr(16) 8) Left(“Visual BASIC 6.0”,6)9)Mid(“Visual BASIC 6.0”,8,5)10) I

16、nStr(1, “Visual BASIC 6.0”,“BASIC”)11)String(3,“$”) 12) Int(100*Rnd)+1)答案：1) -1235 2) 12343) 12.344) 1235 5) 1006) -1 7) 2 8) Visual 9) BASIC 10) 811) $ 12) 產(chǎn)生從整數(shù)1到整數(shù)100之間的隨機(jī)整數(shù)26 寫出下列表達(dá)式的值1) ( 3 + 6) 2 2) 18 4 * 4.02 / 1.63) 25 3 Mod 3.2 * Int（ 2.5 ） 4)“xyz” + “438”5) “abc”& “123” &“abc” 6)

17、349.25 + “0.75” = 3507) “china”>=“canada” 8) “abc”<=“abc”&“123”9) 3 > 4 And 5 = 5 10) True Or Not 73 <= 4 答案：1) 4 2) 03)2 4)xyz438 5) abc123abc6) True 7) True 8) True 9) False 10) True27 設(shè)a1，a2，a3是布爾變量，其值依次為：True，True，F(xiàn)alse，寫出下列布爾表達(dá)式的值1) Not a1 And Not a2 2) Not a1 Eqv Not a23) a1 Or

18、 a2 And a3 4) a1 Xor a2 Or a35)（ Not a1 Or a2 ） And （ a2 Or a3 ）6) Not a1 And a2 Imp a3not-and-or-xor-eqv-lmp答案：1) False 2) True 3) True 4) False 5) True 6) True28 用關(guān)系表達(dá)式或邏輯表達(dá)式表示下列條件1) i 整除j 2) n是小于正整數(shù)k的偶數(shù)3)1<=x<10 4) x，y其中有一個小于z5) y 100,10，并且 y 10,1006) 坐標(biāo)點（x,y）落在以（10,20）為圓心，以35為半徑的圓內(nèi)7) 三條邊a，

19、b和c構(gòu)成三角形8) 年份Year能被4整除，但不能被100整除或者能被400整除答案：1) i Mod j=02) n<k And n Mod 2=03)1<=x And x<10 4) x<z Or y<z5) Not(y>=-100 And y<=-10 ) And Not(y>=10 And y<=100)6) Sqr(x-10)2+(y-15) 2)<357) a+b>c And b+c>a And c+a>b8) Year Mod 4=0 And year Mod 400<>0 Or Year

20、 Mod 400=029 問答題1. 標(biāo)識符的選取必須遵循什么規(guī)則？答：參見教材2.1.2。2. 各種基本數(shù)據(jù)類型的取值范圍如何？ 答：參見教材2.2表2-1。3. 空串與空格有什么不同？答：參見教材2.1.1。4. 什么是符號常量？使用符號常量有什么好處？答：參見教材2.3.1。5. 自動變量與靜態(tài)變量如何定義？它們之間有什么不同？答：參見教材2.3.2。6. 兩個字符串如何進(jìn)行比較(關(guān)系)運算,如何確定運算結(jié)果?試舉例說明。答：參見教材2.4.3。第3章 程序流程控制31 填空題1設(shè)變量r 表示圓的半徑，則計算圓的面積并賦給變量s使用的賦值語句為（s=3.14159*r*r ）。2給命令按

21、鈕Command2的Caption屬性賦予字符串“退出”使用的賦值語句為（ Command2.Caption=退出 ）。3為了求n的階乘，要求用戶輸入n的值。程序使用InputBox函數(shù)輸入，要求對話框提示信息為“請輸入一個求階乘的數(shù)：”，標(biāo)題為“求數(shù)的階乘”，并且正確地把輸入的信息轉(zhuǎn)換為數(shù)值存放到變量n中，則使用的賦值語句為（ n=val（InputBox（請輸入一個求階乘的數(shù)：，求數(shù)的階乘） ）。如果使用MsgBox對話框顯示提示信息“退出本系統(tǒng)？”，并顯示“是（Yes）”和“否（No）”兩個按鈕，顯示圖標(biāo)“？”號，指定第一個按鈕為默認(rèn)值以及標(biāo)題為“提示信息”，則調(diào)用MsgBox函數(shù)的形式

22、為（ MsgBox（退出本系統(tǒng)? ，4+32+0，提示信息） ）。如果使用MsgBox對話框顯示提示信息“文件未找到！”，并顯示“確定”按鈕、圖標(biāo)“！”號和標(biāo)題“文件查找”，則使用的MsgBox語句為（ MsgBox文件未找到，0+48+0，文件查找 ）。要在當(dāng)前窗體Form和立即窗口輸出字符串“Visual BASIC 6.0”使用的Print方法分別是( Print “Visual BASIC 6.0”)和( Debug.Print “Visual BASIC 6.0” )。使用Print方法時，若用逗號分隔， 則按( 標(biāo)準(zhǔn) )格式輸出各表達(dá)式的值，若用分號分隔，則按(緊湊 )格式輸出各表

23、達(dá)式的值。注釋語句是一個（ 非執(zhí)行 ）語句，VB不對它們進(jìn)行編譯，對程序的執(zhí)行結(jié)果沒有任何影響。判別變量i是否為偶數(shù)，若為偶數(shù)就把它顯示出來。使用單行結(jié)構(gòu)條件語句為（ If i Mod 2=0 Then print x）。10判別變量x是否大于0，若大于0，則累加到變量s1中，否則，累加到變量s2中，使用的單行結(jié)構(gòu)條件語句為（ If x>0 Then s1=s1+x Else s2=s2+x ）。11給定分段函數(shù)，求y的值，使用的單行結(jié)構(gòu)條件語句為（ If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）。12判別a是否等于b

24、，若a=b，則輸出字符串 “a is equal to b”的塊結(jié)構(gòu)條件語句為（ ）。答案： If a=b Then Print “a is equal to b”End13判別ch是否為小寫字母，若是，輸出“yes”；否則，輸出“No”的塊結(jié)構(gòu)條件語句為（ ）。答案： If Asc(ch)>=97 And Asc(ch)<=122 ThenPrint “Yes”Else Print “No”End If14若一個case子句中的表達(dá)式表由逗號分隔的若干個常數(shù)組成，則它的含義是：當(dāng)測試表達(dá)式的值等于（ 這些常數(shù)中的某一個 ）時，執(zhí)行該case子句相應(yīng)的程序塊。15若case子句中的

25、表達(dá)式表列具有形式：<表達(dá)式1> To <表達(dá)式2>，則它的含義是：當(dāng)測試表達(dá)式的值等于（ 這個范圍內(nèi)的值 ）時，執(zhí)行該case子句相應(yīng)的程序塊。16若case子句中的表達(dá)式表列具有形式：Is <關(guān)系運算符> <表達(dá)式>，則它的含義是：當(dāng)測試表達(dá)式的值滿足（ Is后的關(guān)系 ）時，執(zhí)行該case子句相應(yīng)的程序塊。17在循環(huán)語句中，反復(fù)執(zhí)行的程序段稱為（ 循環(huán)體 ）；進(jìn)入循環(huán)體的條件稱為（ 循環(huán)條件 ）；中止循環(huán)體執(zhí)行的條件稱為（ 結(jié)束循環(huán)條件 ）。32 選擇題下列賦值語句中，( d )是正確的。)x！abcb)a10ec)xd)s1002下列選項中

26、，( d )不能交換變量a和b的值。a) t=b : b=a : a=t b) a=a+b : b=a-b : a=a-bc) t=a : a=b : b=t d) a=b : b=a 3若在消息框MsgBox中顯示“確定(Ok)”和“取消(Cancel)”兩個按鈕，則buttons參數(shù)的設(shè)置值是( b )。a) 0b) 1c) 2d)34若在消息框MsgBox中選擇第二個按鈕為默認(rèn)值，則buttons參數(shù)的設(shè)置值是( b )。a)0b)256c)512d)7685若單擊了“終止（Abort）”按鈕，則MsgBox函數(shù)的返回值是（ c ）。a)1b)2c)3d)46以下不正確的單行結(jié)構(gòu)條件語句

27、是（ d ）。a) If x>y Then Print“x>y”b) If x Then t=t * xc) If x Mod 3=2 Then ? xd) If x<0 Then y=2*x-1:Printx End If7給定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print "#" Else Print "*"以上程序（ c ）。a) 沒有輸出 b) 有語法錯c) 輸出# d) 輸出*8把a(bǔ), b之中的最大值存放于max，下面語

28、句書寫正確的是（ d ）。a) If a>b Then max=a Else max=b End Ifb) If a>b Then max=aElse max=bEnd Ifc) If a>b Then max=a Else max=b d) If a>b Thenmax=a Elsemax=bEnd If9. 下列Case語句中正確的是（ c ）。a) Select Case xCase 1 Or 3 Or 5 y=x*x-1 Case Is >10 y=x+1 End Selectb) Select Case x Case 1, 3, 5 y=2*x-1 Ca

29、se Is x <=1 Y=2*x+1End Selectc) Select Case x Case Is <=0 y=x-1 Case Is >0 y=Sqr(x)+1 End Select d) Select Case xCase x>=1 And x<= 5y=x-1Case Is >10y=x*x+1End Select10執(zhí)行下列程序段后屏幕上（ c ）。i% = 10 : Sum = 0While i > 1Sum = Sum + ii = i - 1WendPrint Suma) 無顯示b) 顯示10c) 顯示54d) 顯示5511執(zhí)行下

30、列程序段輸出結(jié)果是（ c ）。x%=2Do while x<8Print “*”；x=x+2Loopa)*b) *c)*d)*12設(shè)有程序段Dim k% k=5Do until k=0k=k-1Loop則下面對循環(huán)語句描述正確的是（ c ）。a) 循環(huán)體1次也不執(zhí)行 b) 循環(huán)體執(zhí)行1次c) 循環(huán)體執(zhí)行5次 d) 循環(huán)體執(zhí)行無限次 13下面描述中錯誤的是（ a, c ）。a) 執(zhí)行Do until <條件>loop語句中，當(dāng)循環(huán)<條件>為false時，結(jié)束循環(huán)體的執(zhí)行。b) 執(zhí)行While <條件>Wend語句時，循環(huán)體可能一次也不執(zhí)行。c) Do l

31、oop While <條件>語句的循環(huán)體可能一次也不執(zhí)行。d) 執(zhí)行Do loop Until <條件>語句中，當(dāng)循環(huán)條件為true時，結(jié)束循環(huán)體的執(zhí)行。14下面程序段中循環(huán)語句的循環(huán)次數(shù)是（b ）。For x=10 To 1 Step -3Print xNext xa) 0b) 4c) 5d) 1015執(zhí)行語句For i=1 to 3: i=i+1 :Next i后變量i的值是（ c）。a) 3b) 4c) 5d) 616下面程序段執(zhí)行后輸出結(jié)果是（ b ）。For i=1 To 2 s=1For j=0 To i-1 s=s+s*jNext jPrint s,Nex

32、t ia) 1 1b) 1 2c) 2 1d) 2 233 閱讀下列程序，寫出執(zhí)行結(jié)果1. Private Sub Form_Click Print 2*3/2 ,“Visual ”&“BASIC”， Not 5>3， 0.75Print 2*3/2 ; “Visual ”&“BASIC”; Not 5>3; 0.75x=12.34Print “x=”；Print xEnd Sub答案： -3 Visual BASIC False .75-3 Visual BASICFalse .75x=12.342 Private Sub Form_Click Print Tab

33、(10); -100;Tab(20); 200;Tab(30); -300Print Spc(10); -100;Spc(10); 200;Spc(10); -300End Sub 答案： -100 200 -300-100 200 -3003 Private Sub Form_Click x=12.35Print Format (x,”#.#”)Print Format (x,”#.#”)Print Format (x,”000.00”)Print Format (x,”00.0”)Print Format (x,”0.00%” )Print Format (x,”$#.#”)Print F

34、ormat (x,”+#.#”)Print Format (x,”00.00E+00”)End Sub答案：1235 1235 01235124 123500%$12.35 +12.3512.35E+004 Private Sub Command1_Click()Dim a%, b%, c%, s%, w%, t%a = -1: b = 3: c = 3s = 0: w = 0: t = 0If c > 0 Then s = a + bIf a <= 0 Then If c <= 0 Then w = a - b End IfElse If c > 0 Then w =

35、 a - b Else t = cEnd Ifc = a + bPrint a, b, cPrint s, w, tEnd Sub答案： -1 3 2 2 0 05 Private Sub Command1_Click()Dim x%, y%x = InputBox("請輸入x的值：")Select Case xCase 1, 3, 5y = x - 1Case 6 To 10y = x + 1Case 2, 4y = 2 * xCase Is > 10y = x * x + 1End SelectPrint "x=" x, "y=&qu

36、ot; yEnd Sub（x 的輸入值為2.5、8、4和15）答案： x=2 y=4x=8 y=9x=4 y=8x=15 y=2266 Private Sub Command1_Click()Dim i%, t!t = 1: i = 1While i < 10t = t * ii = i + 2WendPrint "t=" tEnd Sub答案：t=9457 Private Sub Command1_Click()Dim i%, x%, y%x = 1: y = 1:i = 1Do Until i > 8If i Mod 2 = 1 Thenx = x * iE

37、lsey = y * iEnd Ifi = i + 1LoopPrint "x=" x, "y=" yEnd Sub答案：x=105 y=3848 Private Sub Command1_Click()Dim p%, s%p = 1: s = 1Do p=p+2:s=s+pLoop While p<10Print "s=" sEnd Sub答案：s=369 Private Sub Command1_Click()Dim m%, n%For m=1 to 3 n=0 While n<=m-1 Print m,n n=n+1

38、 WendNext mEnd Sub答案:1 0 2 0 2 13 03 13 234編程題1. 輸入一個學(xué)生成績，若成績在85分以上，則輸出“very good”；若成績在60分到80分之間，則輸出“good”；若成績低于60分，則輸出“no good”。解答：(1) 界面設(shè)計和屬性設(shè)置在窗體上建立兩個標(biāo)簽、兩個文本框和兩個命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如表3-3-1所示。表3-3-1第1題的屬性設(shè)置 控件名稱屬性名屬性值Form1 Caption根據(jù)分?jǐn)?shù)給定評語 Label1 Caption分?jǐn)?shù) Label2Caption評語Text1 Text空串Text2 Text空串Com

39、mand1Caption開始 Command2 Caption結(jié)束(2) 程序代碼Private Sub Command1_Click() Dim score!score = Val(Text1.Text) If score >= 85 Then Text2.Text = "Very good!" ElseIf score >= 60 Then Text2.Text = "Good!" Else Text2.Text = "No good!" End IfEnd SubPrivate Sub Command2_Click(

40、) EndEnd Sub(3) 運行情況運行程序后，屏幕出現(xiàn)用戶界面。把鼠標(biāo)移到Text1文本框并單擊，輸入分?jǐn)?shù)。然后，單擊“開始”命令按鈕，系統(tǒng)執(zhí)行Command1_Click事件過程。執(zhí)行結(jié)果如圖3.3.1所示。單擊標(biāo)題為“結(jié)束”的命令按鈕，執(zhí)行Command2_Click事件過程，結(jié)束程序的執(zhí)行。圖3.3.1 第1題的執(zhí)行結(jié)果2. 求一元二次方程ax+bx+c=0的根。解答：(1) 界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-2所示。表3-3-2 第2題的屬性設(shè)置 控件名稱 屬性名屬性值Form1Caption求一元二次方程的根Command1Ca

41、ption開始 Command2Caption結(jié)束(2) 程序代碼由中學(xué)數(shù)學(xué)知識知道，求一元二次方程的根的公式為：，編程時要考慮如下各種情況： 當(dāng)a=0 時，方程不是二次方程； 當(dāng) b2-4ac=0 時,有兩個相同的實根： ； 當(dāng) b2-4ac>0 時,有兩個不同的實根： ； 當(dāng) b2-4ac<0 時,有兩個共軛復(fù)根： 。Private Sub Command1_Click()Cls Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! a = InputBox("請輸入方程的系數(shù)a：") b = Input

42、Box("請輸入方程的系數(shù)b：") c = InputBox("請輸入方程的系數(shù)c：") Print: Print Print Tab(10); "輸入方程的系數(shù)為：" "a=" a; "b=" b; "c=" c Print If Abs(a) <= 0.000001 Then Print Tab(15); "方程不是一個二次方程！" Else disc = b 2 - 4 * a * c If Abs(disc) <= 0.000001 T

43、hen Print Tab(10); "方程有兩個相同的實根：" "x1=x2=" -b / (2 * a) ElseIf disc > 0.000001 Then x1 = (-b + Sqr(disc) / (2 * a) x2 = (-b - Sqr(disc) / (2 * a) Print Tab(5); "方程有兩個實根：" Print Tab(18); "x1=" x1 Print Tab(18); "x2=" x2 ElseIf disc < 0.000001 The

44、n realpart = -b / (2 * a): imagpart = Sqr(-disc) / (2 * a) Print Tab(5); "方程有兩個虛根：" Print Tab(18); "x1=" realpart; "+" imagpart; "i" Print Tab(18); "x2=" realpart; "-" imagpart; "i" End If End IfEnd SubPrivate Sub Command2_Click()

45、 EndEnd Sub注意，程序中的條件“fabs(a)<=0.000001”和“fabs(disc)<=0.000001”分別用來判斷a和disc的值是否為0。因為實數(shù)在計算機(jī)計算和存儲時會有微小的誤差，若用“a=0”和“disc=0”來判斷a和disc是否為0，則會由于誤差導(dǎo)致條件不成立，無法得到正確的運行結(jié)果。(3)運行情況運行程序后，單擊“開始”命令按鈕，執(zhí)行Command1_Click事件過程。執(zhí)行時，在InputBox框中輸入 a、b和c三個系數(shù)。圖3.3.2圖3.3.5顯示了不同系數(shù)輸入的執(zhí)行結(jié)果。 圖3.3.2 執(zhí)行結(jié)果(a) 圖3.3.3 執(zhí)行結(jié)果(b)圖3.3.

46、4 執(zhí)行結(jié)果(c) 圖3.3.5 執(zhí)行結(jié)果(d)3. 給定函數(shù)y = ,從鍵盤上輸入x的值，求y的值。(要求使用Case語句)解答：(1) 界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-3所示。表3-3-3 第3題的屬性設(shè)置 控件名稱屬性名屬性值Form1Caption求給定分段函數(shù)的值Command1Caption開始 Command2Caption結(jié)束(2) 程序代碼Private Sub Command1_Click() Cls Dim x!, y! x = InputBox("請輸入x的值：") If x >= 1 And

47、 x <= 5 Then Select Case x Case Is < 2 y = 3 * x - 5 Case Is < 4 y = 2 * Cos(x) + 1 Case Is <= 5 y = Sqr(1 + x * x) End Select Else y = x * x - 4 * x + 5 End If Print Tab(10); "x=" x, "y=" yEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 運行情況運行程序后，單擊“開始”命令按鈕，執(zhí)行事件過程C

48、ommand1_Click。執(zhí)行時，按InputBox對話框提示，輸入x的值。計算結(jié)果在窗體上顯示。4. 輸入圓的半徑R和運算標(biāo)志，按照運算標(biāo)志進(jìn)行指定運算。給定的運算標(biāo)志及其表示的運算如下：C（Circle）表示計算周長A（Area）表示計算面積B（Both）表示周長和面積都計算(要求使用Case語句)解答：(1)界面設(shè)計和屬性設(shè)置在窗體上放置兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-4所示。表3-3-4第4題的屬性設(shè)置 控件名稱屬性名屬性值Form1 Caption計算圓周長或圓面積或兩者都計算Command1Caption開始 Command2 Caption結(jié)束(2)程序代

49、碼Private Sub Command1_Click() Cls Dim r!, f As String * 1 Const pi! = 3.14159265 r = InputBox("請輸入圓的半徑 r ：") If r >= 0 Then f = UCase(InputBox("輸入運算標(biāo)志：" + Chr(13) & _ "C_(計算周長)" + Chr(13) & _ "A_(計算面積)" + Chr(13) & _ "B_(兩者都計算)") '

50、提示信息分多行顯示Select Case f Case "C" Print Tab(10); "半徑r=" r; "圓周長=" r * 2 * pi Case "A" Print Tab(10); "半徑r=" r; "圓面積=" r 2 * pi Case "B" Print Tab(10); "半徑r=" r; "圓周長=" r * 2 * pi Print Tab(10); "半徑r=" r

51、; "圓面積=" r 2 * pi Case Else Print Tab(18); "輸入的運算標(biāo)志錯！" End Select Else Print Tab(18); "半徑不能是負(fù)數(shù)！" End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub(3)運行情況運行程序后，單擊標(biāo)題為“開始”的命令按鈕，執(zhí)行Command1_Click事件過程。按InputBox對話框的提示輸入半徑r和運算標(biāo)志。計算結(jié)果在窗體上顯示。5. 求滿足12+22+n2>1000的最小n值。(要求使用Wh

52、ileWEnd語句)解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-5所示。表3-3-5 第5題的屬性設(shè)置 控件名稱 屬性名屬性值Form1 Caption求滿足12+22+n2>1000的最小n值Command1Caption開始 Command2 Caption結(jié)束(2)程序代碼Private Sub Command1_Click() Dim n%, s& n = 0: s = 0 While s <= 1000 n = n + 1 s = s + n 2 Wend Print: Print: Print Print Tab(8); &q