【正文】 ox對話框的提示輸入半徑r和運算標(biāo)志。 輸入的運算標(biāo)志錯！ End Select Else Print Tab(18)。 圓面積=。 半徑r=。 圓周長=。 半徑r=。 圓面積=。 半徑r=。 圓周長=。 半徑r=。 _ B___(兩者都計算))) 39。 _ C___(計算周長) + Chr(13) amp。窗體和命令按鈕的主要屬性設(shè)置如表334所示。4. 輸入圓的半徑R和運算標(biāo)志，按照運算標(biāo)志進(jìn)行指定運算。執(zhí)行時，按InputBox對話框提示，輸入x的值。 x, y=。表333 第3題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption求給定分段函數(shù)的值 Command1Caption 開始 Command2 Caption 結(jié)束(2) 程序代碼Private Sub Command1_Click() Cls Dim x!, y! x = InputBox(請輸入x的值：) If x = 1 And 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)。(要求使用Case語句)解答：(1) 界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕?！?3)運行情況運行程序后，單擊“開始”命令按鈕，執(zhí)行Command1_Click事件過程。 i End If End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub注意，程序中的條件“fabs(a)=”和“fabs(disc)=”分別用來判斷a和disc的值是否為0。 。 x2=。 imagpart。 realpart。 Print Tab(18)。 x2 ElseIf disc Then realpart = b / (2 * a): imagpart = Sqr(disc) / (2 * a) Print Tab(5)。 x1 Print Tab(18)。 方程有兩個實根： Print Tab(18)。 x1=x2=。 方程不是一個二次方程！ Else disc = b ^ 2 4 * a * c If Abs(disc) = Then Print Tab(10)。 c=。 b=。 a=。Private Sub Command1_Click() Cls Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! a = InputBox(請輸入方程的系數(shù)a：) b = InputBox(請輸入方程的系數(shù)b：) c = InputBox(請輸入方程的系數(shù)c：) Print: Print Print Tab(10)。窗體和命令按鈕的主要屬性設(shè)置如表332所示。 第1題的執(zhí)行結(jié)果2. 求一元二次方程ax+bx+c=0的根。然后，單擊“開始”命令按鈕，系統(tǒng)執(zhí)行Command1_Click事件過程。表331 第1題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption根據(jù)分?jǐn)?shù)給定評語 Label1 Caption 分?jǐn)?shù) Label2Caption 評語 Text1 Text 空串 Text2 Text 空串 Command1Caption 開始 Command2 Caption 結(jié)束(2) 程序代碼Private Sub Command1_Click() Dim score! score = Val() If score = 85 Then = Very good! ElseIf score = 60 Then = Good! Else = No good! End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 運行情況運行程序后，屏幕出現(xiàn)用戶界面。解答：(1) 界面設(shè)計和屬性設(shè)置在窗體上建立兩個標(biāo)簽、兩個文本框和兩個命令按鈕。 yEnd Sub答案：x=105 y=3848． Private Sub Command1_Click()Dim p%, s%p = 1: s = 1Do p=p+2:s=s+pLoop While p10Print s=。 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 * iElsey = y * iEnd Ifi = i + 1LoopPrint x=。 x, y=。Spc(10)。Spc(10)。 300Print Spc(10)。 200。 100。 Not 53。 “Visual ” amp。For i=1 To 2 s=1For j=0 To i1 s=s+s*jNext jPrint s,Next ia) 1 1 b) 1 2 c) 2 1 d) 2 23．3 閱讀下列程序，寫出執(zhí)行結(jié)果1. Private Sub Form_Click Print –2*3/2 , “Visual ” amp。For x=10 To 1 Step 3Print xNext xa) 0 b) 4 c) 5 d) 1015．執(zhí)行語句For i=1 to 3: i=i+1 :Next i后變量i的值是（ c　）。d) 執(zhí)行Do …loop Until 條件語句中，當(dāng)循環(huán)條件為true時，結(jié)束循環(huán)體的執(zhí)行。b) 執(zhí)行While 條件…Wend語句時，循環(huán)體可能一次也不執(zhí)行。a) 循環(huán)體1次也不執(zhí)行 b) 循環(huán)體執(zhí)行1次c) 循環(huán)體執(zhí)行5次 d) 循環(huán)體執(zhí)行無限次 13．下面描述中錯誤的是（ a, c ）。i% = 10 : Sum = 0While i 1Sum = Sum + ii = i 1WendPrint Suma) 無顯示 b) 顯示10 c) 顯示54 d) 顯示5511．執(zhí)行下列程序段輸出結(jié)果是（ c ）。a) If ab Then max=a Else max=b End Ifb) If ab Then max=aElse max=bEnd If1c) If ab Then max=a Else max=b d) If ab Thenmax=a Elsemax=bEnd If9. 下列Case語句中正確的是（ c ）。a) If xy Then Print “xy” b) If x Then t = t * xc) If x Mod 3=2 Then ? x d) If x0 Then y = 2*x1 : Print x End If7．給定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=cb Then Print Else Print *****以上程序（ c ）。a)0 b)256 c)512 d)7685．若單擊了“終止（Abort）”按鈕，則MsgBox函數(shù)的返回值是（ c ）。 a) t=b : b=a : a=t b) a=a+b : b=ab : a=ab c) t=a : a=b : b=t d) a=b : b=a 3．若在消息框MsgBox中顯示“確定(Ok)”和“取消(Cancel)”兩個按鈕，則buttons參數(shù)的設(shè)置值是( b )。3．2 選擇題１．下列賦值語句中，( d )是正確的。16．若case子句中的表達(dá)式表列具有形式：Is 關(guān)系運算符 表達(dá)式，則它的含義是：當(dāng)測試表達(dá)式的值滿足（ Is后的關(guān)系 ）時，執(zhí)行該case子句相應(yīng)的程序塊。答案： 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)的程序塊。12．判別a是否等于b，若a=b，則輸出字符串 “a is equal to b”的塊結(jié)構(gòu)條件語句為（ ）。10．判別變量x是否大于0，若大于0，則累加到變量s1中，否則，累加到變量s2中，使用的單行結(jié)構(gòu)條件語句為（ If x0 Then s1=s1+x Else s2=s2+x ）。９．判別變量i是否為偶數(shù)，若為偶數(shù)就把它顯示出來。７．使用Print方法時，若用逗號分隔， 則按( 標(biāo)準(zhǔn) )格式輸出各表達(dá)式的值，若用分號分隔，則按( 緊湊 )格式輸出各表達(dá)式的值。５．如果使用MsgBox對話框顯示提示信息“文件未找到！”，并顯示“確定”按鈕、圖標(biāo)“！”號和標(biāo)題“文件查找”，則使用的MsgBox語句為（ MsgBox＂文件未找到＂，0+48+0，＂文件查找＂　 ）。程序使用InputBox函數(shù)輸入，要求對話框提示信息為“請輸入一個求階乘的數(shù)：”，標(biāo)題為“求數(shù)的階乘”，并且正確地把輸入的信息轉(zhuǎn)換為數(shù)值存放到變量n中，則使用的賦值語句為（ n=val（InputBox（＂請輸入一個求階乘的數(shù)：＂，＂求數(shù)的階乘＂） ）。2． 給命令按鈕Command2的Caption屬性賦予字符串“退出”使用的賦值語句為（ =＂退出＂ ）。答：。5. 自動變量與靜態(tài)變量如何定義？它們之間有什么不同？答：。3. 空串與空格有什么不同？答：?！?23”9) 3 4 And 5 = 5 10) True Or Not 7–3 = 4 答案：1) 4 2) 0 3) 2 4) xyz438 5) abc123abc6) True 7) True 8) True 9) False 10) True2．7 設(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 a2 And a3 4) a1 Xor a2 Or a35)（ Not a1 Or a2 ） And （ a2 Or a3 ）6) Not a1 And a2 Imp a3 notandorxoreqvlmp答案：1) False 2) True 3) True 4) False 5) True 6) True2．8 用關(guān)系表達(dá)式或邏輯表達(dá)式表示下列條件1) i 整除j 2) n是小于正整數(shù)k的偶數(shù)3) 1=x10 4) x，y其中有一個小于z5) y [–100,–10]，并且 y [10,100]6) 坐標(biāo)點（x, y）落在以（10, 20）為圓心，以35為半徑的圓內(nèi)7) 三條邊a，b和c構(gòu)成三角形8) 年份Year能被4整除，但不能被100整除或者能被400整除答案：1) i Mod j=0 2) nk And n Mod 2=03) 1=x And x10 4) xz Or yz5) Not(y=100 And