1、2001年秋浙江省高校计算机等级考试试卷 (二级Visual BASIC)说明：（1）考生应将试题一至试题三的答案涂在答题卡上，将第四、五题的答案填写在答卷上，否则作无效处理； （2）请将你的准考证号的后四位填写在答卷的右下角指定位置内； （3）考试时间为120分钟。试题一、计算机基础题（本题共15分）（一）单选题（每小题1分，共10分）(1) 下面 (1) 组设备包括输入设备、输出设备和存储设备。A、CRT、CPU、ROMB、鼠标器、绘图仪、光盘C、磁盘、鼠标器、键盘D、磁带、打印机、激光打印机(2) 微型计算机的更新与发展，主要基于 (2) 的变革。 A、软件B、微处理器C、存储器D、磁盘
2、的容量(3) 内存空间地址段为20017000，则其存储空间为 (3) KB。 A、20480B、20.48C、20D、5(4) (4) 是Windows操作的特点。A、先选择操作命令，再选择操作对象B、先选择操作对象，再选择操作命令C、需同时选择操作对象和操作命令D、需将操作对象拖到操作命令上(5) 在Windows的资源管理器中，刚查看了A盘的目录，若在同一驱动器中换了一张软盘，想查看新的目录，可用 (5) 命令。 A、刷新B、更改C、显示D、重显示(6) 在使用Word文本编辑软件时，要把文章中所有出现的“学生”两字都改成以粗体显示，可以选择 (6) 功能。 A、样式B、改写C、替换D、
3、粘贴(7) 在Word编辑文本时，为了使文字绕着插入的图片排列，可以进行的操作是 (7) 。A、插入图片，设置环绕方式B、插入图片，调整图形比例C、建立文本框，插入图片，设置文本框位置D、插入图片，设置叠放次序(8) 在GB2312-80汉字系统中，计算机把一个汉字表示为 (8) 。A、汉语拼音字母的ASCII代码B、十进制数的二进制编码C、按字形笔划设计的二进制码D、两个字节的二进制编码(9) 使用电子邮件时，有时收到的邮件有古怪字符，即出现了乱码，这是由于 (9) 。A、病毒B、接收方操作系统有问题C、发送方计算机故障D、编码未统一(10) 根据病毒的传染途径可将病毒分为操作系统病毒、文件
4、型病毒、网络型病毒三种，其中文件型病毒往往附在.COM和. (10) 文件中，当运行这些文件时，会激活病毒并常驻内存。 A、EXEB、FRMC、CPPD、DBC（二） 双选题（每小题1分，共5分）注：从供选择的答案中选两个正确答案(11) 设A盘处于写保护状态，以下可以进行的操作是 (11) 。 A、将A盘中某个文件改名B、将A盘中所有内容复制到C盘 C、在A盘上建立文件AA.CD、显示A盘目录树(12) 下列软件中， (12) 属于系统软件。 A、CAD B、Word C、汇编程序 D、C语言编译程序(13) 在Windows中利用“任务栏属性”对话框，可以进行 (13) 操作。A、在“开始
5、”菜单中添加一个项目B、在桌面上建立一个快捷方式C、在任务栏上显示输入法指示器D、在任务栏上显示时间(14) 在Windows附件中，下面叙述正确的是 (14) 。A、记事本中可以含有图形B、画图是绘图软件，不能输入汉字C、写字板中可以插入图形D、计算器可以将十进制整数转换为二进制或十六进制数(15) 在Word中，当选中了文本后，使用 (15) 命令可以使剪贴板内容与选中的内容一致。 A、粘贴B、剪切C、复制D、删除试题二、语言基础题（本题共25分）（一） 判断题（每小题1分，共10分，选A表示正确，选B表示错误）(16) Variant是一种特殊的数据类型，Variant类型变量可以存储除
6、了定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error和Null等特殊值。(17) 窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。(18) 框架控件和形状控件都不能响应用户的鼠标的单击事件。(19) 在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其它窗体卸载。(20) 对于文件系统控件，当驱动器控件Drive1中的驱动器符改变时，文件夹列表控件Dir1中显示的文件夹也作相应改变，可以在Drive1中的Change事件中使用如下命令： Dir1.Path = Dri
7、ve1.Drive(21) 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。(22) 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。(23) 当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。(24) Visual BASIC提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其它位置，则需使用自定义坐标系统。(25) 如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。（二） 单选题（每小题1分，共15分）(2
8、6) 一个对象可以执行的动作和可被对象识别的动作分别称为 (26) 。 A、事件、方法 B、方法、事件 C、属性、方法 D、过程、事件(27) 在窗体Form1的Click事件过程中有以下语句： Label1.Caption = Visual Basic 若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为 (27) 。 A、Label、Label B、Label1、Visual Basic C、Label1、Label1 D、Caption、Label(28) (28) 对象不具有Caption属性。 A、Label
9、B、Option C、Form D、Timer(29) Integer类型的变量可存的最大整数是 (29) 。 A、255 B、256 C、32768 D、32767(30) 下列数据类型中，占用内存最小的是 (30) 。 A、Boolean B、Byte C、Integer D、Single(31) (31) 对象不能作为控件的容器。 A、Form B、PictureBox C、Shape D、Frame(32) 代数式的Visual BASIC表达式是 (32) 。 A、a+b/Sqr(c+Log(a)+c/d B、(a+b)/(Abs(c+Log(a)+c/d) C、(a+b)/(Abs
10、(c+Log(a)+c/d) D、(a+b)/(Sqr(c+Log(a)+c/d) (33) 已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是 (33) 。 A、A=B And B=C And C0 B、A+CB And B+CA And C0 C、(A+B=C Or A-C0 D、A+BC And A-BC And C0(34) 下面 (34) 是日期型常量。 A、12/19/99 B、12/19/99 C、#12/19/99# D、12/19/99(35) 如果在图片框上使用绘图方法绘制一个圆，则图片框的 (35) 属性不会对该圆的外观产生影响。 A、BackC
11、olor B、ForeColor C、DrawWidth D、DrawStyle(36) 一个菜单项是不是一个分隔条，由 (36) 属性决定。 A、Name(名称) B、Caption C、Enabled D、Visible(37) 下面 (37) 对象在运行时一定不可见。 A、Line B、Timer C、Text D、Option(38) 形状控件所显示的图形不可能是 (38) 。 A、圆 B、椭圆 C、圆角正方形 D、等边三角形(39) 以下 (39) 方式打开的文件只能读不能写。 A、Input B、Output C、Random D、Append(40) 由For k=35 TO 0
12、 Step 3 : Next k 循环语句控制的循环次数是 (40) 。 A、0 B、12 C、-11 D、-10 试题三、程序填空题（每空2分，共20分) 仔细阅读下列各小题的程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个正确答案。 1.【程序说明】 本程序求3-100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件e:dataout.txt；素数的个数显示在窗体Form1上。 【程序】 Private Sub Command1_Click() Dim count As Integer, flag As Boolean Dim t1 As Integer
13、, t2 As Integer (41) count = 0 For t1 = 3 To 100 flag = True For t2 = 2 To Int(Sqr(t1) If (42) Then flag = False Next t2 (43) count = count + 1 Write #1, t1 End If Next t1 (44) Close #1End Sub(41) A、Open e:dataout.txt For Output As #1 B、Open e:dataout.txt For Intput As #1 C、Open e:dataout.txt For Ou
14、tput As #2 D、Open e:dataout.txt For Output As #1(42) A、t2 t1 = 0 B、t1 Mod t2 = 0 C、t1 t2 = 0 D、t2 Mod t1 = 0 (43) A、If flag Then B、If t2 t1 Then C、If t1 t2 Then D、If t2 Int(Sqr(t1) Then (44) A、Form1.Print 素数个数： count B、Print #1 素数个数： ; count C、Form1.Print 素数个数：; count D、Form1.Print 素数个数： : count2.【程
15、序说明】由输入对话框输入n(设n为大于零且小于30的自然数)，计算下列表达式的值，并在标签框Label1上显示。【程序】Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer n = Val(InputBox(n=, 请输入自然数n（n0且n = n Label1.Caption = sum= + Str(sum)End Sub(45) A、While n = 30 B、While n = 30 C、Until n 0 Or n = 0 And n = 30(46) A、k = 2 B、k = 1 C、k =
16、 - 1 D、k = 0(47) A、1 / (k * (k + 1) B、1 / (k-1) * k C、sum + 1 / (k * (k + 1) D、sum + 1 / k * (k + 1)3.【程序说明】本程序用于处理文本框Text1.Text中的内容，假设文本框中有偶数个字符。要求将文本框中的内容从头尾至中间依次各取字符，组成一个新的字符串Str2，并在窗体上输出。例如： Text1.Text = 12345678，则 Str2 = 18273645 【程序】Private Sub Form_Click() Dim Str1 As String, Str2 As String S
17、tr1 = Text1.Text Str2 = m = 0 Do (48) Str2 = Str2 + (49) Str2 = Str2 + (50) m = m + 1 Loop Form1.Print Str2End Sub(48) A、While m Len(Str1) / 2 B、While m Len(Str1) / 2 D、Until m Len(Str1) / 2(49) A、Mid(Str1, m , 1) B、Mid(Str1, Len(Str1) - m, 1) C、Mid(m, Str1 , 1) D、Mid(Str1, m + 1, 1)(50) A、Mid(Str1,
18、 Len(Str1) m + 1, 1) B、Mid(Str1, m, 1) C、Mid(Str1, Len(Str1) - m, 1) D、Mid(Str1, Len(Str1) m + 1, m)试题四、程序阅读题（每小题5分，共20分)阅读下列程序，写出运行结果。1.(5分)Private Sub Command1_Click() n = 0: x = 1: y = 0 Do While x 20 n = n + 1 y = x + y x = x * (x + 1) Loop Text1.Text = n= & Str(n) Text2.Text = x= & Str(x) Text3
19、.Text = y= & Str(y)End Sub程序运行时单击Command1后，分别写出文本框Text1、Text2和Text3的Text值。2.(5分)Function chg(a As Integer, b As Integer) As Integer Dim n As Integer For n = 0 To 2 a = a + b Next n chg = aEnd FunctionPrivate Sub Form_Click() Dim a As Integer, b As Integer , z As Integer a = 1: b = 1 For n = 1 To 3 z
20、 = chg(a, b) Form1.Print n=; n, z=; z Next nEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。3.(5分)Private Sub Form_Click() Dim x(5) As Integer x(1) = 8: x(2) = 3: x(3) = 1: x(4) = 6: x(5) = 4 For i = 1 To 4 For j = i + 1 To 5 If x(i) ”钮，左边组合框中的10个数全部移到右边组合框，并由大到小排列，同时使“”钮不能响应；(2) 单击“”钮能响应，“ CmdRight.Enabled = True
21、CmdLeft.Caption = 10 y = Sqr(x) + Sin(x) Case 10 y = 0 Case Else y = 2 * x 3 + 6 End Select Print y=; yEnd Sub2.程序如下:Private Sub CmdExit_Click() EndEnd SubPrivate Sub CmdLeft_Click() Dim i As Integer, Last As Integer Last = ComboRight.ListCount - 1 For i = 0 To Last ComboLeft.AddItem ComboRight.List
22、(0) ComboRight.RemoveItem 0 Next i CmdLeft.Enabled = False CmdRight.Enabled = TrueEnd SubPrivate Sub CmdRight_Click() Dim i As Integer, Last As Integer Last = ComboLeft.ListCount - 1 For i = 0 To Last ComboRight.AddItem ComboLeft.List(Last - i) ComboLeft.RemoveItem Last - i Next i CmdLeft.Enabled = True CmdRight.Enabled = FalseEnd Sub
