vb大一選擇程序結構習題答案答案(共6頁)

《vb大一選擇程序結構習題答案答案(共6頁)》由會員分享，可在線閱讀，更多相關《vb大一選擇程序結構習題答案答案(共6頁)（6頁珍藏版）》請在裝配圖網上搜索。

1、精選優質文檔-傾情為你奉上4.2習題一、選擇題 1. 以下不正確的單行結構條件語句是（ D ）。（A）If xy Then Print xy（B）If x Then t=t*x（C）If x Mod 3=2 Then Print x（D）If xmax Then max=a Else max=b End If(B) If amax Then max=aElse max=bEnd If(C) If amax Then max=aElsemax=6( D) If amax Then max=aElsemax=6End If5. 執行下列程序段輸出的結果為（ C ）。 a=3 IF a0 Then

2、Print# Else Print$ End IfA) #$B) $#C) #D) $6. 下面程序段運行后,顯示的結果是( B ) dim xif x then print x else print x+1 (A) 1 (B) 0 (C) -1 (D) 顯示出錯信息7: 語句IF x=1 THEN y=1, 下列說法正確的是( C ) (A) X=1和Y=1均為賦值語句 (B) X=1和Y=1均為關系表達式 (C) X=1為關系表達式,Y=1為賦值語句 (D) X=1為賦值語句,Y=1為關系表達式8. 用IF語句表示分段函數，下列程序段不正確的是( A )(A)If x=1 then f=s

3、qr(x+1) (B) If x=1 then f=sqr(x+1)F=x*x+3 if x=1 then f=sqr(x+1) If x1 then f=x*x+3 9. 下面IF語句統計滿足性別（sex）為男，職稱（duty）為副教授以上，年齡（age）小于40歲條件的人數，不正確的語句是( D )(A) If sex=”男” and age0 then n=n+1 (B) If sex=“男” and age40 and (duty=“教授” or duty=“副教授”) then n=n+1 (C) If sex=“男” and age40 and right(duty,2)=“教授”

4、 then n=n+1 (D) If sex=“男” and agey,x,y) (B) Ifxy then MAX=X ELSE MAX=Y(C) MAX=XIF Y=X THEN MAX=Y(D) IF Y=X THEN MAX=Y MAX=X二、填空題1. 下面事件過程的功能是：輸入三個整數x、y和z，按從大到小順序輸出這三個數，在橫線上填上適當內容。Private Sub Command1_Click()Dim x!, y!, z!x = InputBox(x=)y = InputBox(y=)z = InputBox(z=)If (1) xy Then t = x: x = y: y

5、 = tIf (2)xz Then t = x: x = z: z = tIf y= 65 And Asc(ch) = 65ch = LCase(ch) Else If（2）Asc(ch) = 97 And Asc(ch) 0 Then s1=s1+x Else s2=s2+x） 6. 給定分段函數 ，求y的值，使用的單行結構條件語句為（ If x0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）7. 下面事件過程的功能是：輸入x和a的值，按公式計算y的值，在橫線上填上適當內容。Private Sub Command1_Click()Dim x

6、!, a%, y#x = InputBox(x=)a = InputBox(a=)If (1) x = a Or x = -a Theny = 0Else If (2) -a x And x a Then y = Sqr(a * a - x * x) Else y = x - 1 End IfEnd IfPrint y=; yEnd Sub8. 下面事件過程的功能是：輸入年份和月份，輸出該月有多少天，在橫線上填上適當內容。提示：每年的1，3，5，7，8，10，12月每月有31天；每年的4，6，9，11月，每月有30天；每年的2月份，閏年為29天，平年為28天。年份能被4整除，但不能被100整除

7、或年份能被400整除的年份均為閏年，否則，為平年。Private Sub Command1_Click()Dim year%, month%, days%year = InputBox(請輸入年份：)month = InputBox(請輸入月份：)Select Case (1) month Case 1, 3, 5, 7, 8, 10, 12days = 31 (2) Case 4,6,9,11days = 30Case 2If (3) year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0 Thendays = 29Elsedays = 2

8、8End IfEnd SelectPrint year; 年; month; 月有; days; 天End Sub9. 若case子句中的表達式表列為用逗號把若干個常數分隔開來，則它的含義是：當測試表達式的值等于 (1) 這些常數中的某一個 時，執行該case子句相應的程序塊。若case子句中的表達式表列具有形式：表達式1 To 表達式2，則它的含義是：當測試表達式的值等于 (2) 這個范圍內的值 時，執行該case子句相應的程序塊。若case子句中的表達式表列具有形式：Is關系運算符 表達式，則它的含義是：當測試表達式的值滿足 (3) Is后的關系 時，執行該case子句相應的程序塊。三閱讀

9、下列程序，寫出執行結果1. 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 Else t = cEnd Ifc = a + bPrint a, b, cPrint s, w, tEnd Sub1答案 -1 3 22 0 02. 當x的輸入值分別為2.5、8、4和15時，寫出下列事件過程輸出結果Private Sub Command1_Click()Dim x%, y%x = InputBox(請輸入x的值：)Select Case xCase 1, 3, 5y = x *2Case 6 To 10y = x + 1Case 2, 4y = 3* xCase Is 10y = x * x + 7End SelectPrint x=; x, y=; yEnd Sub2.答案X=2 y=6X=8 y=9X=4 y=12X=15 y=232專心-專注-專業