2003年浙江省计算机等级考试VB试卷及答案_其他资源

当前位置：首页 > 资源下载 > 其他资源 > 详细内容

2003年浙江省计算机等级考试VB试卷及答案

发布时间：2009/7/5 阅读次数：1433 字体大小: 【小】【中】【大】

2003年浙江省计算机等级考试VB试卷

说明：（1）考生应将试题一至试题三的答案涂在答题卡上，将第四、五题的答案填写在答卷上，否则作无效处理；

（2）请将你的准考证号的后四位填写在答卷的右下角指定位置内；

（3）考试时间为120分钟。

试题一、计算机基础题（本题15分）

（一）单选题（每题1分，共10分）

（1）计算机网络最突出的优点是（1）

A、运算速度快 B、精度高

C、共享硬件、软件和数据资源 D、内存容量大

（2）在微型计算机的设备中，访问速度最快的是（2）

A、软盘 B、硬盘 C、内存储器 D、CD-ROM

（3）操作系统的主要功能是（3）

A、对计算机系统的所有资源进行控制和管理

B、实现多用户及分布式处理

C、扩充计算机的功能

D、对硬件资源进行分配、控制、调度和回收

（4）Internet 与WWW的关系是（4）

A、都是英特网，只是名称不同 B、Internet 就是WWW

C、Internet 与WWW完全没有关系 D、WWW是Internet 上的一个应用

（5）在Windows 98环境下，下面关于附件中应用程序的说法，（5）是不正确的。

A、写字板可以编辑文本文件

B、写字板的缺省扩展名为.DOC

C、计算机器中的计算结果，可以粘贴到文档文件中

D、记事本中设置的显示字体，将保存在文本文件中，当使用Word读入该文件时，仍具有所设置的字体

（6）在Word编辑文本时，将文档中所有的“memory”都改成“存储器”，最快捷的方法是采用（6）操作。

A、中英文转换 B、替换 C、改写 D、翻译

（7）以下几种关于消除计算机病毒的说法中，正确的是（7）

A、专门的杀毒软件并非总是有效的

B、删除所有带毒文件能消除所有病毒

C、对感染上病毒的软盘，格式化既能消除病毒，又能使数据不受破坏

D、一劳永逸地使计算机不感染病毒，最好地方法使装上防病毒卡

（8）实现汉字字形表示的方法，一般可分为（8）两大类

A、点阵式与矢量式 B、点阵式与网格式

C、网格式与矢量式 D、矢量式与向量式

（9）十六进制数1AE70FH与十六进制数2003H的和是（9）

A、1AG70IH B、1B0712H C、1B0710H D、无法计算

（10）在Word中，有关“自动图文集”功能的叙述中，正确的是（10）

A、可以自动画图 B、输入文字，能自动显示对应的图

C、可以检查错误，并用图表示 D、可以自动扩展定义过的文字或图

（二）双选题（每小题1分，共5分）

说明：从供选择的答案中选两个正确答案

（11）下面有关转寄邮件（Forward）的说法，正确的是（11）

A、转寄邮件的方法是在收件箱中选中要转寄的邮件，通过“转发”按钮作进一步操作

B、用户只能对原邮件进行原封不动的转发

C、若转寄时，用户工作在脱机状态，等到用户联机上网后，还要再重复转寄一次才行

D、转寄邮件，是用户收到一封电子邮件后，再寄给其他成员

（12）以下关于Windows的菜单命令叙述中，正确的是（12）

A、命令名是灰色的，则表示该命令处于运行中

B、命令后有“◆”，则表示改命令现在不可使用

C、命令后有“…”，则表示选择该命令后将有一个对话框出现

D、命令前有“√”，则表示该命令现在处于设定状态

（13）在Word中已打开多个文档，将当前活动文档切换成其他文档，可以（13）

A、使用“文件“菜单 B、使用任务栏

C、使用“视图”菜单 D、使用“窗口”菜单

（14）（14）程序将分别对源程序产生目标程序，再通过连接程序，可以产生扩展名为.exe的可执行程序。

A、汇编 B、编译 C、解释 D、编辑

（15）以下关于Windows的叙述中，正确的有（15）

A、任何一个窗口都有标题栏

B、文件删除可以不放入回收站

C、屏幕保护的作用是为了用来保护用户的视力

D、在同一磁盘中复制文件和文件夹可用鼠标直接拖动完成

试题二、语言基础题(本题共30分)

（一）判断题（每小题1分，共10分）

说明：在以下提供的若干个陈述中，逐一判断其正确与否，选A表示正确，选B表示错误

（16）一个对象若能识别多个事件，我们只能对其中一个事件编程。

（17）“A=B=C”是一个合法的Visual Basic 语句。

（18）语句“FontName=“宋体”与“Form1.Fontname=“宋体””的作用完全相同，无一例外。

（19）单选按钮与复选框对象的Value属性类型不同，且只能取值True 或False。

（20）列表框控件List1的最后一个表项为List1.List(List1.Listcount)。

（21）执行滚动条控件的Change事件不是在拖动滚动条滑块的过程中，而是在拖动过程停止时。

（22）窗体的WindowsState属性是可读写属性。

（23）Picture 对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，一律都自动调整为控件的大小尺寸，以便能完整的显示该图片。

（24）将容器的 FillStyle属性设置为0后，容器中已绘制的图形的填充样式都为实心。

（25）若用OUTPUT 方式打开一个已存在的文件，则文件中原有的数据将全部被清空。

（二）单选题（每小题2分，共20分）

（26）在窗体Form1的一个事件过程中，使用（26）来清除窗体上所绘制的图形，是不正确的。

A、Form1.Cls B、Form.Cls C 、Me.Cls D、Cls

（27）判断点P（ x1,y1）是否在圆内（圆的轨迹方程为：x²+y²=4）的表达式为（27）

A、x1*x1+y1*y1=4 B、x1*x1+y1*y1<4 C、x1*x1+y1*y1>4 D、x<2 And y<2

（28）若某过程声明为Sub aa(n as integer),则调用（28）实参与形参是按地址传递。

A、Call aa(5) B、Call aa(n+1) C、Call aa(n) D、Call aa(i-1)

（29）单击命令按钮，不可触发下面的（29）事件。

A、Click B、keyDown C、mouseDown D、MouseUp

（30）运行时组合框控件Comb1中所选择的表项，可以表示为（30）

A、Comb1.Text B、Comb1.List

C、Comb1.ListIndex D、Comb1.ListCount

(31)在图片框控件picture1上坐标（x,y）处画一个绿色点，写作（31）

A、Pset(x,y),RGB(0,255,0) B、Picture1.Pset(x,y),Greeen

C、Pset(x,y),vbGreen D、Picture1.Pset(x,y),vbGreen

(32)要使shape 控件以实心方式填充，应该设置其（32）属性。

A、FillColor B、FillStyle C、BackStyle D、Shape

（33）如果希望文件列表框只显示可执行文件，应该修改（33）属性。

A、Pattern B、Filter C、Path D、Filename

(34)通过对话框控件的返回值Filename 表示所选择文件的（34）。

A、路径名 B、全名 C、文件主名 D、文件扩展名

（35）菜单项显示分隔线是通过设置（35）属性来实现的。

A、Caption B、Visible C、Checked D、Enabled

试题三、程序填空题（每空2分，共10分）

说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。

程序1、

【程序说明】

本程序是将列表框List1与 List2中各表项合并到List3;List1 与List2中原有各表项已按ASCII码从大到小排列。要求合并后List3中各表项也要从大到小排列。

【程序】

Private Sub Command1_Click ()

List3.Clear

If (36) Then Exit Do

If (37) Then

List3.AddItem List1.List(0): List1.RemoveItem (0)

Else

List3.AddItem List2.List(0):List2.RemoveItem(0)

End IF

Loop

For i%=0 to List1.ListCount – 1

List3.Additem List1.List(i%)

NEXT i%

For i%=0 To List2.Listcount – 1

List3.Additem List2.list(i%)

Nex ti%

List1.Clear :List2.clear

End sub

(36) A、List1.ListCount + List2.ListCount = 0 B、List1.ListCount＝0

C、List1.ListCount * List2.ListCount = 0 D、List2.ListCount = 0

（37） A、List1.Selected(0) > List2.Selected(0) B、List1.List（0）> List2.List (0)

C、List1.ListIndex > List2.ListIndex D、List1.List > List2.List

程序2、

【程序说明】

程序完成两个功能：点到点的图片复制与图片的“灰度化”处理

单击“复制”按钮（Command1）把Picture 1中的彩色图片复制到Picture2中；单击“灰度化”按钮（Command2）把Picture2中的彩色图片中的每个彩色点变成灰度值。每个彩色点的颜色值为RGB（r,g,b）,转换为灰度值Grey=0.299*r+0.587*g+0.114*b。

【程序】

Private Sub Command1_Click ()

Dim i as single , j as single , x as single , y as single , b as long

For i = 0 to Picture1.ScaleWidth

For j = 0 to Picture1.ScaleHeight

x = i * Picture2. ScaleWidth / Picture1.ScaleWidth

y = j * Picture2.ScaleHeight / Picture1.ScaleHeight

(38)

Picture2.Pset (x,y) , b

Next j , i

End Sub

Private Sub Command2_Click()

Dim i as single , j as single , c as long , Grey as long , r as long , g as long , b as long

For i = 0 to Picture2.ScaleWidth

For j = 0 to Picture2.ScaleHeight

c = Picture2.Point(i,j)

b = Int (c / 256 / 256)

g =Int((c-b*256*256) / 256)

r = (39)

Grey =0.299 * r + 0.587 * g + 0.114 * b

Picture2.Pset( i , j ), RGB(Grey, Grey, Grey)

(40)

End Sub

(38) A、b= Picture1.Point ( x , y ) B、Picture1.Point ( x , y )

C 、b= Point ( i , j ) D、b= Picture1.Point ( i , j )

(39)A、vbRed B、(Int) c Mod 256 C、c Mod 256 D、RGB(255，0，0)

(40)A、Next i, j B、Next i C、Next j, i D、Loop

试题四、程序阅读题（每小题5分，共20分）

说明：阅读下列程序，将运行时的输出结果写在答案纸的相应题号下。

程序1、运行时，单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0，

写出运行结果。

Private Sub Form1_Click()

Dim y as Integer

y=Inputbox(“y=”)

If (y Mod 10) + Int (y / 10) = 10 Then Print y

Loop Until y=0

End Sub

程序2、写出运行时两次单击窗体后屏幕上的显示结果

Dim x as Byte

Private Static Sub Form1_Click()

Dim y as Byte, z as Byte

Call Init (y , z )

Call OP( x ,y , z )

Print x , y , z

End Sub

Private Sub Init ( a AS Byte, b AS Byte)

a= a + 1: b = b + 2 : x = a + b

End Sub

Private Sub OP (ByVal u AS Byte, v AS Byte, ByRef w AS Byte )

u= u + 1: v = v + u : w = u + v + w

End Sub

程序3、写出下列程序运行后窗体上的输出结果

Dim a(100) as Byte, t as Byte

Private Sub Form1_Load()

Timer1.Interval = 256

t = 0

End Sub

Private Sub Timer1_Timer()

t = t + 1

a(t) = a(t-1) + t

Timer1.Interval = Timer1.Interval / 4

Print t, a(t)

End Sub

程序4、运行时，若Text1.Text 为空，在Text1获得输入焦点后，依次按下列按键：

“1”、“2”、“＋”、“3”、“4”、“－”、“5”、“6”、“/”、“1”、“4”、回车键

请写出窗体上的输出结果。

Private Sub Text1_KeyPress()

If k < Asc(“0”) or k > Asc(“9”) then

k-=0

Print Text1.Text

End if

End Sub

试题五、程序设计题（第1小题7分，第2小题8分，第3小题10分，共25分）

1、编制事件过程Command1_Click，调用该过程后输入x,计算并显示下列分段函数的值

x² / (x+1) x < -2

Sin(x) * Cos(x) -2≤x≤2

Log₁₀x x > 2

y =

2、编制事件过程Form1_Click，完成下列操作：

将图片框控件的宽度设置为与高度相同（正方形）；将图片框坐标系的原点设置到图片框的中心位置；在图片框中绘制10个同心圆，第一个半径为r、第二个半径为2r、……，第10个半径为10r，第十个圆也是图片框的内接圆。

3、编制单击窗体的事件过程，作如下处理：

从文件C：\A.DAT中依次读取20个学生的学号以及4门功课的成绩，统计每个学生的总分，并按照总分从高分到低分进行排序；然后将学生信息按总分从高分到低分输出到文件C：\B.DAT中。数据在文件中的存储格式如下：

输入文件C：\A.DAT格式输出文件C：\B.DAT格式

“02010101”，78，89，90，67 02010109 90 92 91 95 368

“02010102”，83，79，72，85 02010105 89 90 93 88 360

…… ……

2002年秋计算机等级考试答案(二级VB)

试题一：计算机基础题

• 单选题：

1	2	3	4	5	6	7	8	9	10
C	D	B	A	A	A	B	C	D	D

• 双选题：

11	12	13	14	15
AB	AD	AC	AD	BC

试题二：语言基础题

• 判断题：

16	17	18	19	20	21	22	23	24	25
×	√	×	√	√	√	×	×	×	√

• 单选题：

26	27	28	29	30	31	32	33	34	35
B	C	D	B	A	A	D	C	D	B

试题三：程序填空题

36	37	38	39	40
A	C	D	A	C

试题四：程序阅读题

1	2	3	4
78 5786 357864 13578642	2 3 4 5	32 64 16 64 8 64 4 64	6 15 28 45

试题五：程序设计题

1 、 Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer, sum As Single

n = InputBox("input data n")

sum = 1

For i = 2 To n

sum = sum + i / ((i + 1) * (i + 2))

Next i

Text1.Text = Str(sum)

End Sub

2 、 Dim x1 As Integer, y1 As Integer

Private Sub Form_Load()

Pic1.FillStyle = 0

Pic1.FillColor = vbGreen

Pic1.ForeColor = vbRed

End Sub

Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

x1 = X

y1 = Y

End Sub

Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Pic1.Line (x1, y1)-(X, Y), , B

End Sub

3 、 Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Dim str1 As String, str2 As String

Dim Fname As String

Dim i As Integer

If Right(File1.Path, 1) = "\" Then

Fname = File1.Path & File1.FileName

Else

Fname = File1.Path & "\" & File1.FileName

End If

Open Fname For Input As #1

CommonDialog1.Action = 1

Open CommonDialog1.FileName For Output As #2

Do While Not EOF(1)

Line Input #1, str1

str2 = ""

For i = 1 To Len(str1)

If Mid(str1, i, 1) <> " " Then

str2 = str2 & Mid(str1, i, 1)

End If

Next i

Print #2, str2

Loop

End Sub

上一篇：二级VB、windows考试要点下一篇：二级考试笔试中的计算机文化基础部分习题

我要评论