2003年浙江省计算机等级考试VB试卷(共6页).doc

《2003年浙江省计算机等级考试VB试卷(共6页).doc》由会员分享，可在线阅读，更多相关《2003年浙江省计算机等级考试VB试卷(共6页).doc（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上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、 对计算机系统的所有

2、资源进行控制和管理B、 实现多用户及分布式处理C、 扩充计算机的功能D、 对硬件资源进行分配、控制、调度和回收（4）Internet 与WWW的关系是 （4） A、都是英特网，只是名称不同 B、Internet 就是WWWC、Internet 与WWW完全没有关系 D、WWW是Internet 上的一个应用（5）在Windows 98环境下，下面关于附件中应用程序的说法 ， （5） 是不正确的。A、 写字板可以编辑文本文件B、 写字板的缺省扩展名为.DOCC、 计算机器中的计算结果，可以粘贴到文档文件中D、 记事本中设置的显示字体，将保存在文本文件中，当使用Word读入该文件时，仍具有所设置的

3、字体（6）在Word编辑文本时，将文档中所有的“memory”都改成“存储器”，最快捷的方法是采用 （6） 操作。A、中英文转换 B、替换 C、改写 D、翻译（7）以下几种关于消除计算机病毒的说法中，正确的是 （7） A、 专门的杀毒软件并非总是有效的B、 删除所有带毒文件能消除所有病毒C、 对感染上病毒的软盘，格式化既能消除病毒，又能使数据不受破坏D、 一劳永逸地使计算机不感染病毒，最好地方法使装上防病毒卡（8）实现汉字字形表示的方法，一般可分为 （8） 两大类A、点阵式与矢量式 B、点阵式与网格式C、网格式与矢量式 D、矢量式与向量式（9）十六进制数1AE70FH与十六进制数2003H的和

4、是 （9） A、1AG70IH B、1B0712H C、1B0710H D、无法计算（10）在Word中，有关“自动图文集”功能的叙述中，正确的是 （10） A、可以自动画图 B、输入文字，能自动显示对应的图C、可以检查错误，并用图表示 D、可以自动扩展定义过的文字或图（二） 双选题（每小题1分，共5分）说明：从供选择的答案中选两个正确答案（11）下面有关转寄邮件（Forward）的说法，正确的是 （11） A、 转寄邮件的方法是在收件箱中选中要转寄的邮件，通过“转发”按钮作进一步操作B、 用户只能对原邮件进行原封不动的转发C、 若转寄时，用户工作在脱机状态，等到用户联机上网后， 还要再重复转

5、寄一次才行D、 转寄邮件，是用户收到一封电子邮件后，再寄给其他成员（12）以下关于Windows的菜单命令叙述中，正确的是 （12） A、 命令名是灰色的，则表示该命令处于运行中B、 命令后有“”，则表示改命令现在不可使用C、 命令后有“”，则表示选择该命令后将有一个对话框出现D、 命令前有“”，则表示该命令现在处于设定状态（13）在Word中已打开多个文档，将当前活动文档切换成其他文档，可以 （13） A、使用“文件“菜单 B、使用任务栏 C、使用“视图”菜单 D、使用“窗口”菜单（14） （14） 程序将分别对源程序产生目标程序，再通过连接程序，可以产生扩展名为.exe的可执行程序。 A、

6、汇编 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

7、=“宋体”的作用完全相同，无一例外。（19）单选按钮与复选框对象的Value属性类型不同，且只能取值True 或False。（20）列表框控件List1的最后一个表项为List1.List(List1.Listcount)。（21）执行滚动条控件的Change事件不是在拖动滚动条滑块的过程中，而是在拖动过程停止时。（22）窗体的WindowsState属性是可读写属性。（23）Picture 对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，一律都自动调整为控件的大小尺寸，以便能完整的显示该图片。（24）将容器的 FillStyle属性设置为0后，容器中已绘制的图形的填充

8、样式都为实心。（25）若用OUTPUT 方式打开一个已存在的文件，则文件中原有的数据将全部被清空。 （二）单选题（每小题2分，共20分）（26）在窗体Form1的一个事件过程中，使用 （26） 来清除窗体上所绘制的图形，是不正确的。A、Form1.Cls B、Form.Cls C 、Me.Cls D、Cls（27）判断点P（ x1,y1）是否在圆内（圆的轨迹方程为：x2+y2=4）的表达式为 （27） A、x1*x1+y1*y1=4 B、x1*x1+y1*y14 D、x2 And y List2.Selected(0) B、List1.List（0） List2.List (0)C、List1

9、.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 sin

10、gle , 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.ScaleWidthy = j * Picture2.ScaleHeight / Picture1.ScaleHeight (38) Picture2.Pset (x,y) , bNext j , iEnd SubPrivate Sub Command2_Click()Dim i as singl

11、e , 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(Gr

12、ey, 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、运行

13、时，单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0，写出运行结果。Private Sub Form1_Click() Dim y as Integer Do y=Inputbox(“y=”) If (y Mod 10) + Int (y / 10) = 10 Then Print yLoop Until y=0End Sub 程序2、写出运行时两次单击窗体后屏幕上的显示结果 Dim x as BytePrivate Static Sub Form1_Click() Dim y as Byte, z as Byte Call Init (y , z ) Cal

14、l OP( x ,y , z ) Print x , y , zEnd Sub Private Sub Init ( a AS Byte, b AS Byte) a= a + 1: b = b + 2 : x = a + b End SubPrivate Sub OP (ByVal u AS Byte, v AS Byte, ByRef w AS Byte ) u= u + 1: v = v + u : w = u + v + wEnd Sub程序3、写出下列程序运行后窗体上的输出结果 Dim a(100) as Byte, t as Byte Private Sub Form1_Load()

15、 Timer1.Interval = 256 t = 0End SubPrivate 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(“9”) then

16、k-=0 Print Text1.Text End if End Sub试题五、程序设计题（第1小题7分，第2小题8分，第3小题10分，共25分）1、编制事件过程Command1_Click，调用该过程后输入x,计算并显示下列分段函数的值 x2 / (x+1) x 2y = 2、编制事件过程Form1_Click，完成下列操作：将图片框控件的宽度设置为与高度相同（正方形）；将图片框坐标系的原点设置到图片框的中心位置；在图片框中绘制10个同心圆，第一个半径为r、第二个半径为2r、，第10个半径为10r，第十个圆也是图片框的内接圆。3、编制单击窗体的事件过程，作如下处理：从文件C：A.DAT中依次读取20个学生的学号以及4门功课的成绩，统计每个学生的总分，并按照总分从高分到低分进行排序；然后将学生信息按总分从高分到低分输出到文件C：B.DAT中。数据在文件中的存储格式如下： 输入文件C：A.DAT格式 输出文件C：B.DAT格式“”，78，89，90，67 90 92 91 95 368“”，83，79，72，85 89 90 93 88 360 专心-专注-专业