資源簡介

臨河三中2021～2022學年上學期第二次月考
高二編程試卷
試卷總分：100分 考試時間：70分鐘
姓名 班級 考號
注意事項：1．答卷前，務必將自己的姓名、準考證號等填寫在試卷和答題卡上，并正確粘貼條形碼。
2．選擇題答案用2B鉛筆把答題卡對應題目的答案標號涂黑。非選擇題用0.5毫米黑色字跡筆將答案寫在答題卡指定位置。在試卷上答題無效。
3．考試結束后，只交答題卡，試卷自己保留，以備講評使用。
第Ⅰ卷（共32分）
一、選擇題：本題共32小題，每小題1分，共32分。在每小題給出的四個選項中，只有一項是符合題目要求的。
1.下列程序的運行結果是( )
PRIVATE SUB FORM__CLICK( )
X=3 : Y=12
IF X>2 THEN Y=3
Y=5
PRINT Y
END SUB
A. 2 B. 3 C. 5 D. 無結果
2. A=5：B=3
IF A=B THEN B=A
下列說法正確的是（ ）
A、A=B是語句，B=A是表達式
B、A=B是表達式，B=A是語句
C、兩個都是語句
D、兩個都是表達式。
3、能代表語句的符號是[ ]。
A、> B、 NOT C、= D、\
4、下列程序運行結果是[ ]
X=val(inputbox(“shuru”))
IF X>=0 THEN
PRINT SQR（X）
ELSE
PRINT X
END IF
運行時鍵盤輸入-4
A、4 B、2 C、2 4 D、 -4
5、下列程序的功能是（ ）
DIM X AS INTEGER，Y AS INTEGER
X=VAL（TEXT1.TEXT）: Y=VAL（TEXT2.TEXT）
IF XPRINT A
A、 給出文本框中輸入的兩個數
B、 給出文本框中輸入的兩個數中的大數
C、 給出文本框中輸入的兩個數中的小數
D、 給出文本框中輸入的兩個數中的任意一個
6、 a=5：b=３
a=a+b：b=b+a
print a，b
這段程序的執行結果是（ ）
a、15 21 b、５ ８ c、6 9 d、8 11
7.有如下程序,運行后輸出結果是( )
PRIVATE SUB FORM__CLICK( )
A=4
IF A<=3 THEN
B=A
END IF
IF A<=4 THEN
B=A+1
END IF
IF A<=5 THEN
B=A+2
END IF
PRINT A,B
END SUB
A. 4 4 B. 4 5 C. 4 6 D. 4 7
8.下列程序的執行結果是( )
PRIVATE SUB FORM__CLICK( )
X=INT(RND)+3
IF X^2>8 THEN Y=X^2+1
IF X^2=9 THEN Y=X^2-2
IF X^2<8 THEN Y=X^3
PRINT Y
END SUB
A.8 B. 2 C. 7 D.27
9.執行下列程序后,變量X的值是( )
PRIVATE SUB FORM__CLICK( )
X=100 : Y=30
IF X>Y THEN X=X-Y ELSE X=Y+X
END SUB
A. 70 B. – 70 C. 130 D.100
10.下列程序的執行結果是( )’
PRIVATE SUB FORM__CLICK( )
A=3:B=2
C=A=B
PRINT C
END SUB
A. TRUE B. FALSE C. 3 D. 2
11.下列程序的執行結果是( )
PRIVATE SUB FORM__CLICK( )
X=INT(RND)
IF X THEN PRINT X ELSE PRINT X+1
END SUB
A. 0 B. 1 C. 出錯 D. 2
12、下列是文本框方法的是( )
A、 GOTFOCUS B、 LOSTFOCUS C、 CHANGE D.SETFOCUS
13. FORM1.VISIBLE=FALSE語句的功能相當于( )
A、FORM1.SHOW B、FORM1.HIDE
C、 FORM1.CLS D、 FORM1.PRINT
14、下列說法不正確的是( )
A.我們學過的注釋語句有REM和’
B.注釋語句有無并不影響程序的運行結果
C.可以對整個程序進行注釋,也可以對某條語句注釋
D.REM和’的用法完全相同.
15.用來決定文本框中接收字符數多少的屬性是( )
A、 MAXLENGTH B、 PASSWORDCHAR C、LOCKED D、 TEXT
16、下列說法正確的是（ ）
A、MSGBOX中信息可以換行B、TEXT只能輸入數據不能輸出數據
C、LABEL既能輸入數據又能輸出數據
D、不能用MSGBOX輸出數據.
17、計時器控件TIMER事件發生的時間間隔由（ ）屬性決定。
A、 ENABLED B、 INTERVAL C、 TOP D、 LEFT
18、決定或反映單選按鈕是否被選中的屬性是（ ）
A、 CAPTION B、ALIGNMENT C、 VALUE D、ENABLED
19、下面語句正確的是（ ）
A．IF X≥Y THEN T=A A=B B=T
B．IF X>=Y THEN T=A:A=B:B=T
C．IF X>=Y THTN T=A A=B B=T
D．IF X>=Y THEN T=A;A=B;B=T
20、下面程序段的的運行結果為__________
x = 5:y = -20
If Not x > 0 Then x = y - 3 Else y = x + 3
Print x - y; y – x
A. -3 3 B. 25 -25
C.-43 3 D. 3 -3
21. 下列說法不正確的是( )
A.計時器控件設計時不能改變大小
B.計時器控件運行時不可見
C.計時器控件能響應CLICK事件
D.計時器控件沒有前景色屬性.
22.下列CASE子句不正確的是( )
A. IS >10 B. 2 TO 6
C. “A” TO “E” D. IS >7 AND IS <9
23.下列對象沒有WIDTH和HEIGHT屬性的是( )
A.TIMER1 B. LABEL1 C. TEXT1 D. COMMAND1
24.IF TRUE THEN PRINT 1 ELSE PRINT 2
這段代碼的執行結果是( )
A. 1 B. 0 C. 無輸出 D. 出錯
25.用N代表數值型,D代表日期型,下列表達式不合法的是( )
A. D+N B. D-N C. D-D D. D+D
26..執行下面的程序段后，x的值為（ ）
x=1
For i=1 to 20 step 2
x=x+i\5
Next i
A. 17 B. 18 C. 19 D. 20
27.在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：
??Private Sub Command1_Click()
? n = VAL(Text1.Text)
??Select Case n
??Case 1 To 20
??x = 10
??Case 2, 4, 6
??x = 20
??Case Is < 10
??x = 30
??Case 10
??x = 40
??End Select
??Text2.Text = x
??End Sub
??程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內容是 ( )
??A、10 B、20 C、30 D、40
28. PRIVATE SUB FORM_CLICK( )
A=VAL(INPUTBOX(“請輸入第一個數”))
B=VAL(INPUTBOX(“請輸入第二個數”))
C=VAL(INPUTBOX(“請輸入第三個數”))
M=A
IF M>B THEN M=B
IF M>C THEN M=C
PRINT M
END SUB
A.給出三個數中的大數
B.給出三個數中的小數
C.給出三個數中的某個數
D.出錯
29.下列程序的執行結果是( )
PRIVATE SUB FORM__CLICK( )
X=INT(RND)+6
SELECT CASE X
CASE IS>5
PRINT 5
CASE IS >4
PRINT 4
CASE IS>3
PRINT 3
CASE ELSE
PRINT 2
END SELECT
END SUB
A. 5 B. 4 C. 3 D. 5 4 3
30、不能實現分支結構程序設計的語句是（ ）
A、 IF THEN
B、 SELECT END SELECT
C、 IF ELSEIF END IF
D、DO LOOP
31.在單選 按鈕上放圖片，首先設置（ ）屬性
A. Picture B. Alignment C. Style D. Caption
32.當CHECK1被選中時，其VALUE屬性取值為（ ）
A. 1 B. 0 C. TRUE D. FALSE
二、填空(16*1分)
33. VB中的六種關系運算符是>,<,=，（　　），（ ）,（ ）.
34.選擇結構程序設計的主導思想是從多個分支中選擇( )支.
35.通常條件表達式分為兩類,分別是( )表達式和(
)表達式.
36.條件表達式成立時,用( )表示,不成立時用( )表示.
37.VB中按從高到低的優先級,寫出三個布爾運算符( ),( ),OR.
38.VB中對象的三要素是（ ），（ ），（ ）
39.IF語句的配對語句 是（ ）
40.用戶使用（ ）對窗體上的單選按鈕分組。
41.第一個單選按鈕的默認名稱是（ ）
三、程序填空（26*2分）
42.輸入兩個數,交換后在窗體上輸出這兩個數.
PRIVATE SUB FORM_CLICK( )
A=VAL(INPUTBOX(“請輸入第一個數”))
B=VAL(INPUTBOX(“請輸入第二個數”))
T=A
___________________[1]
___________________[2]
___________________[3]
END SUB
43.清除窗體上的內容,清除TEXT1中的內容,清除LABEL2上的內容.
PRIVATE SUB FORM_CLICK( )
_____________________ [4]
____________________________[5]
____________________________[6]
END SUB
44、輸入一個成績， 若大等90顯示“優”，否則若大等80顯示“良”，
否則若大等70顯示“一般”，否則若大等60顯示“及格”，否則顯示“不及格”
PRIVATE SUB FORM CLICK（）
DIM X AS SINGLE
X=VAL（INPUTBOX（“請輸入一個成績”））
SELECT CASE ____________________________ [7]
CASE ____________________________ [8]
PRINT “優”
CASE ____________________________ [9]
PRINT “良”
CASE ____________________________ [10]
PRINT “一般”
CASE ____________________________ [11]
PRINT “及格”
CASE ____________________________ [12]
PRINT “不及格”
____________________________ [13]
END SUB
45、求2+4+6+8+10+12+14+……100
PRIVATE SUB FORM-------CLICK（ ）
DIM I AS INTEGER，S AS INTEGER
FOR I= 2 TO 100 ____________________________[14]
S=S+ ____________________________[15]
NEXT I
PRINT S
END SUB
46.下面程序輸入X的值，按以下公式求Y的值。
100－X -100≤X<0
Y= 100+X 0≤X≤100
400 100Private Sub Command1 Click( )
X=Val(Text1.Text)
Select Case X
Case____________________________ [16]
Print “出錯”
Case Is<0
Y=100-X
Case 0 To 100
Y=100+X
Case____________________________ [17]
Y=400
End Select
Text2.Text=X
End Sub
47.輸入X，求
Y
PRIVATE SUB FORM_CLICK( )
DIM X AS SINGLE,Y AS INTEGER
X=VAL(TEXT1.TEXT)
IF X>=1000 THEN
Y=5
____________________________ [18]
Y=4
____________________________ [19]
Y=3
____________________________ [20]
Y=2
____________________________ [21]
Y=1
____________________________ [22]
Y=0
END IF
PRINT “Y=”;Y
END SUB
48、輸入三個數，按從小到大的順序輸出。
DIM A AS INTEGER，B AS INTEGER
DIM C AS INTEGER
A= VAL（INPUTBOX（“請輸入第一個數”））
B= VAL（INPUTBOX（“請輸入第二個數”））
C= VAL（INPUTBOX（“請輸入第三個數”））
IF A>B THEN
T=A
A=B
B=T
____________________________ [23]
IF A>C THEN
T=A
A=C
C=T
____________________________[24]
IF ____________________________[25] THEN
PRINT A,B,C
____________________________[26]
PRINT A,C,B
END IF
臨河三中2021~2022年第一學期高二計算機班期末考試VB答案
一、 選擇（32*1分）
1-5 CBCDC 6-10 DCCAB 11-15 BDBDA 16-20 ABCBA
21-25 CDAAD 26-30 AABAD 31-32 CA
二、填空（16*1分）
33. >= <= <>
34. 一
35. 關系 布爾
36. TRUE FALSE
37. NOT AND
38. 屬性 事件 方法
39. END IF
40. 框架
41. OPTION1
三、程序填空（26*2分）
42、A=B
B=T
PRINT A,B
43. FORM1.CLS
TEXT1.TEXT=””
LABEL2.CAPTION=””
44. X
IS>=90
IS>=80
IS>=70
IS>=60
IS<60 | ELSE
END SELECT
45 . STEP 2
I
46. IS<-100 , IS >200
IS<=200
47. elseIF X>= 800 THEN
elseIF X>= 500 THEN
elseIF X>= 200 THEN
elseIF X>= 0 THEN
elseIF X<0 THEN |　　　else
48. end if
End if
Belse
=5 (X>=1000)
=4 (1000>X>=800)
=3 (800>X>=500)
=2 (500>X>=200)
=1 (200>X>=0)
=0 (X<0)

展開更多......

收起↑