资源简介

临河三中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)

展开更多......

收起↑