kl800.com省心范文网

高二年应用1期末考

高二年下应用 1 期末考试卷

班级__________ 姓名_____________ 座号___ __ 成绩___ ___

一、 单项选择题(每小题 2 分*10,共 20 分)

1. 命令按钮 Command1 设置为无效,应修改该命令按钮的

属性。

[A] Visible

[B]Value

[C] Caption

[D] Enabled

2. 要把“XXX”成为列表框 List1 中的第 1 项,可以执行

语句。

[A] List1.AddItem “XXX”,1

[B] List1.AddItem “XXX”,0

[C] List1.AddItem 1,“XXX”

[D] List1.AddItem 0,“XXX”

3. 以下

对象不能响应Click事件

[A] 窗体 [B] 图片框 [C]列表框

[D] 定时器

4. 要声明一个长度为 50 个字符的定长字符串变量 str, 语句是正确的。

[A] Dim str as String

[B] Dim str as String(50)

[C] Dim str as String[50]

[D] Dim str as String*50

5. 以下哪种控件不可以包含其他控件



[A] PictureBox [B] Frame [C] Image [D] Form

6. 设在菜单编辑器里定义了一个菜单项,名为 menu1。为了在运行时隐藏该菜

单项,应使用的语句是____。

[A] menu1.Enabled = True

[B] menu1.Enabled = False

[C] menu1.Visible = True

[D] menu1.Visible = False

7.____ 对象能使用Print方法

[A]文本框

[B]图片框

[C]列表框

[D]框架

8、下列哪一个是合法的 VB 变量名称?( )

(A) MyName (B) CLS (C) 5XY (D) Friend.My

9、下列数组声明语句,正确的是( )

(A) Dim a[3,4] As Integer

(B) Dim a(3,4) As Integer

(C) Dim a(n,n) As Integer

(D) Dim a(3 4) As Integer

10.以下哪个程序段的执行结果为"OK”.

(A)

(B)

Dim y As Integer

Dim y As Integer

y=10

y=20

Select Case y

Select Case y

Case 11 To 1

Case Is>20,Is<20

Print "OK “

Print "OK”

End Select

End Select

(C)

(D)

Dim y As Integer

Dim y As Integer

第1页

y=6 Select Case y
Case Is>6,1,2 to 5 Print "OK”
End Select

y=10 Select Case y
Case 1,3,Is>6 Print "OK”
End Select

二、判断题(每小题 2 分*5,共 10 分)

1. 在一个过程中使用 Static 语句声明的静态变量,能在该过程结束后仍然保 留该变量,所以可以在其他模块中引用该变量。( ) 2. 定时器的 Interval 属性表示定时器调用 Timer 事件的间隔毫秒数,如果 Interval 为 0,则系统不会调用 Timer 事件。( ) 3. 用 Exit Do 语句可以退出 Do --- Loop 循环,用 Exit Sub 语句可以 退出 Sub 过程,同理用 Exit If 也能退出 If 条件语句。( ) 4. 控件数组的每个元素都有相同的 Name 属性值和不同的 Index 属性值,其中 最小的 Index 属性值为 1。 ( ) 5. 事件过程通常由事件驱动执行的,而Sub子程序是通过过程调用执行的。( )

三、填空题(每小题 2 分*5,共 10 分)

1. 声明一个值为 3.14 的常量 Pi 的语句为:

_________

2. 写出判断 x 是正偶数的逻辑表达式:

__________

3. 在模块的声明段中有 Option Base 1 语句,那么用 Dim a (2,3 To 5) As

Integer 语句声明的数组占用的内存空间是

个字节。

4. 设 A=7,B=2,C=3,表达式 A < B And Not C > A Or C > B And Not A < B

的结果是



5. 写出表达式 81\7 Mod 2^2 的值____ ____。

四、程序阅读分析题(请分析程序段,写出输出结果。每小题 4 分,计 40 分)

1、执行下列程序后,输出结果为___________ Private Sub Form_Click( ) X=1 : y=3 : z=5 X=y : y=z : z=x Print x,y,z End Sub

2、设窗体的 Click 事件过程代码如下,程序段输出结果______________ Private Sub Form_Click()
第2页

Dim k As Integer,a As Integer k=1 If k<=1 Then a =2*k If k<=2 Then a = k If k<=3 Then a =2*k 十 1 Print k, a End Sub

3、在窗体上添加一个列表框和一个文本框,然后编写如下两个事件过程: Private Sub Form_Load()
List1.AddItem "357" List1.AddItem "246" List1.AddItem "123" List1.AddItem "456" End Sub Private Sub List1_DblClick() a = List1.Text Print a + Text1.Text End Sub 程序运行后,在文本框中输入"789",然后双击列表框中的"456",则输出结果 为_______。

4、在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Static x As Integer

For i=1 To 2

y=y+x

x=x+2

Next

Print x,y

End Sub

程序运行后,连续三次单击 Command1 按钮后,窗体上最后一次的输出结果





5.Private Sub Form_KeyPress(KeyAscii As Integer) Print (KeyAscii) End Sub
运行程序时按下“A”键,则输出结果为______。

第3页

6、以下程序段的运行结果是_______。 Private Sub Form_Click()
m=1 n=1 Do Until n > 4
m=m*n n=n+1 Loop Print m End Sub
7、下述单击命令按钮后的输出结果_______________ Private Sub Command1_Click() Dim arr1(10) As Integer, arr2(10) As Integer n=4 For i = 5 To 1 step -2 arr1(i) = i arr2(n) = 2 * n + i Next i Print arr2(n); arr1(n) End Sub
8、以下程序段执行后,变量 x 的值为_______。 x=0 For i = 1 To 3
For j = 1 To i x=x+1
Next j Next i Print x
9、Private Sub Command1_Click() Dim s As String, n As Integer S=“b12c3” N=Val(s)+23 Print n End Sub
上面程序运行后,单击 Command1 命令按钮,输出结果是______.
第4页

10、在窗体上画一个名称为 Command1 的命令按钮,然后编写如下通用过程和命 令按钮的事件过程。
程序运行后,单击命令按钮,在窗体上显示的是___________________ Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then
fun = 2 Else
fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s = 50 For i = 10 To 15
s = s + fun(i) Next Print s End Sub
五、程序填空题(每空 2 分,共 20 分) 1. 数据过滤程序:从左边文本框输入任意文本,如果是数字字符,则显示在右 边文本框中。运行结果如下图,请将事件过程补充完整。

对象 窗体 标签 标签 左边文本框 右边文本框

对象名 Form1 Label1 Label2 Text1 Text2

属性名 Caption Caption Caption Text Text

属性值 数据过滤 输入数据: 过滤后的数据:

2.事件过程如下:

Private Sub Text1_ 【1】

IF 【2】

Then

Text2.Text=【3】

End IF

(KeyAscii As Integer)
第5页

End Sub 3.求和 sum=1*2+2*3+*…+99*100
Private Sub Command1_Click() Dim i As Integer , sum As Long Sum=0
For i=1 To ____【4】_____ Sum=sum+___【5】____
Next i Print “sum” ; sum End Sub
4.下面事件过程的功能是:输出 100 以内个位数为 8 且能被 3 整除的所有数, 在横线上填上适当内容。
Private Sub Command1_Click() Dim i%, a%
For i = 0 To ____ _【6】___________ a = i * 10 + 8 If ____ __【7】__________Then Print a
Next I End Sub
5.下面函数计算两个非负整数 m 与 n 的最小公倍数。请在空白处填入适当内容 将程序补充完整。 Private Sub command1_click() Dim m As Integer Dim n As Integer m = Val(InputBox("请输入整数 M:", m)) n = Val(InputBox("请输入整数 N:", n)) For I = 2 To m
If m Mod I = 0 And _______【8】__________ Then k=I
End If _____【9】___________ s= 【10】 print “最小公倍数为:”,s End Sub
第6页

高二年下应用 1 期末考答题卡

班级____________ 姓名________________ 座号_____ 成绩______

一、 单选题(3 分*10=30)

1

2

3

4

5

6

7

8

9 10

二、判断题(2 分*5=10) 1.( ) 2.( ) 3.( ) 4.(
三、填空题(2 分*5=10) 1. ___________________________

) 5.( ) 2. __________________________

3. ___________________________ 4. __________________________

5. ___________________________

四、程序阅读题(4 分*10=40)

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

第7页

五、程序填空题(每空 2 分*20=40)

【1】

【2】

【3】

【4】

【5】

【6】

【7】

【8】

【9】

【10】

第8页


2018_2019学年高二生物上学期期末考试试题(1).doc

吉林省长春外国语学校 2018-2019 学年高二生物上学期期末考试试 题本试卷分第...以下哪一现象或应用不能说明生长素调节具有“两重性” A.在自然状况下,大型...

2018-2019年高二第一学期期末考试化学试题.doc

2018-2019年高二学期期末考试化学试题 - 胜利二中 2018-2019 学年第学期第二学段模块考试 高二化学试题 考试时间: 90 分钟 注意事项: 1. 答题前,考生...

2019学年高二数学上学期期末考试试题 理(含解析)(1).doc

2019学年高二数学上学期期末考试试题 理(含解析)(1)_数学_高中教育_教育专区...本题主要考查了函数的单调性问题,导数的应用以及分类讨论思想,考查切线方程问 ...

高二语文上学期期末考试试题(1).doc

高二语文上学期期末考试试题(1) - 小学+初中+高中 2017 年下学期醴陵一中高二年级期末考试 语文试卷 时量:150 分钟 总分:150 分 命题人: 班级: 姓名: 考号:...

2018学年第一学期高二信息技术期末试卷_图文.doc

2018学年第学期高二信息技术期末试卷 - 高二年级期末质量评估试题 技术 2

2019年最新年新 人教版高二英语第一学期期末考试题 (1).doc

2019年最新年新 人教版高二英语第一学期期末考试题 (1) - 第学期期末调研考试 高二英语(选修 6)试卷 注意事项:1.本卷分听力部分和笔试部分,共 150 分,...

复旦附中2018-2019学年第一学期高二年级期末考试卷2019....doc

复旦附中2018-2019学年第学期高二年级期末考试卷2019.01 (1)_英语_高中教育_教育专区。复旦附中 2018-2019 学年第学期高二年级期末考试卷 2019.01 、填空...

2018年上学期高二信息技术(网络技术应用)期末考试试题(....doc

2018年上学期高二信息技术(网络技术应用)期末考试试题(含答案)_其它课程_高中...9、 某学校校园网网络中心到 1 号教学楼网络节点的距离大约 700 米, 用于...

精品2019学年高二政治下学期期末考试试题(1).doc

精品2019学年高二政治下学期期末考试试题(1) - 2019 学年第二学期期末考 高二政治试卷 (考试时间:90 分钟 试卷满分:100 分) ※精品试卷※ 一、单项选择题(每...

最新2019学年高二上学期期末考试数学(理)能力试卷.doc

最新2019学年高二上学期期末考试数学(理)能力试卷 - 第 I 卷(选择题 共 60 分) 、选择题: (本大题共 12 小题,每小题 5 分,共 60 分。在每小题...

20182019学年第一学期高二历史期末试卷.doc

20182019学年第学期高二历史期末试卷 - 20182019 学年度第学期高二历史期末试卷 总分:100 分 考试时间:90 分钟 第 I 卷(选择题) 选择题(共 25 ...

2017-2018学年广东省东莞市高二第一学期期末考试数学(....pdf

2017-2018 学年广东省东莞市高二学期期末考试数学 (理)试题 、单选题 ...A. 【点睛】 或 舍去 . 本题主要考查了余弦定理在解三角形中的应用,属于...

2019年1月24河北廊坊高二期末考试语文试卷.pdf

2019年1月24河北廊坊高二期末考试语文试卷 - 2018-2019 学年度第学期期末调研考试 高二语文试题 注意事项: 1.答卷前,考生务必将自己的姓名、准考证号填写在答题...

北京2018-2019学年一零一中学高二上学期期末考试历史试题.doc

北京101 中学 2018-2019 学年上学期高二年级期末考试历史试卷 第一部分 选择题...指南针广泛应用于航海 15. 隋唐时期,绘画题材广泛,风格多样。宗教画生活气息浓厚...

上海中学2018-2019学年第一学期期末高二年级期末考数学....doc

上海中学2018-2019学年第学期期末高二年级期末考数学试卷2019.01_数学_高中教育_教育专区。上海中学 2018-2019 学年第学期期末高二年级期末考数学试卷 2019.01...

2019西城高二生物期末测试题及答案(2019年1月).doc

2019西城高二生物期末测试题及答案(2019年1月) - 北京市西城区 2018 2019 学年度第一学期期末试卷 高二生物 2019.1 本试卷共 8 页,分为两个部分,第一...

江西省九江一中2018-2019学年高二上学期期末考历史试题....doc

江西省九江一中2018-2019学年高二上学期期末考历史试题 Word版含答案_学科竞赛_...(6 分) 26.(16 分) (1)原因:国家政策支持;市场扩大;新技术推广应用;工厂...

新疆哈密地区2016-2017学年高二第一学期期末考试历史试卷.doc

新疆哈密地区2016-2017学年高二学期期末考试历史试卷 - 新疆哈密地区 2016-2017 学年高二历史上学期期末考试试题 注意事项: 1.答题前填写好自己的姓名、班级、...

江苏省徐州市2016-2017学年高二上学期期末考试物理(必....doc

江苏省徐州市2016-2017学年高二上学期期末考试物理(必修)试题 - 江苏省徐州市 2016-2017 学年高二上学期期末考试物理(必修)试题 、选择题 1.下列物理量中属于...

2017-2018学年广东省东莞市高二第一学期期末考试数学(....doc

2017-2018 学年广东省东莞市高二学期期末考试数学(理)试题 、单选题 1...考查了余弦定理在解三角形中的应用,属于基础题. 3.下列结论成立的是 第 1 ...