全国高等学校计算机VB等级考试江西考区

全国高等学校计算机等级考试（江西考区）2005年下半年二级Visual Basic笔试试卷A（本试卷答卷时间为120分钟，满分100分）、 计算机基础部分（30分）试题一、选择题（每个选项1分，共30分）。考生从提供的答案中选择一个正确的，并把所选答案的字母填入答题卡对应栏内。1.中央处理器（CPU）主要包括（）。运算器与存储器运算器与控制器控制器与存储器控制器与译码器2.为解决某一特定问题而设计的指令序列称为（）。文档语言程序系统“计算机辅助软件工程”的英文缩写是（）。4.微型计算机存储系统中，是（）。可读写存储器动态随机存储器只读存储器可编程只读存储器现在的计算机实现自动工作，是根据冯诺依曼的（）原理。存储程序输入程序运输程序输出程序下列数据中，值最大的数是（）。二进制数1000八进制数1000十进制数1000十六进制1000下列四条叙述中，正确的一条是（）。字节通常用英文单词“bit”来表示目前广泛使用的Pentium机其字长为个字节计算机存储器中将个相邻的二进制位作为一个单位，这种单位称为字节微型计算机的字长并不一定是字节的倍数8.在Windows 2000中，用来添加或删除程序的“添加/删除程序”选项位于（）中。控制面板我的电脑资源管理器程序组在Windows 2000中，文件夹组织结构是（）。表格结构树型结构网状结构线性结构10配置高速缓冲存储器（Cache）是为了解决（）。内存与辅助存储器之间速度不匹配问题CPU与辅助存储器之间速度不匹配问题CPU与内存储器之间速度不匹配问题主机与外设之间速度不匹配问题11.在Windows2000中，若在某一文档中连续进行了多次剪切操作，当关闭文档后，“剪贴板”中存放的是（）。空白所有剪切过的内容最后一次剪切的内容第一次剪切的内容12.下列各项中，非法的IP地址是（）。126.96.2.6 B. 190.256.38.8C. 203.226.1.68 D.203.113.7.1513.在Windows2000的“我的电脑”中，若想选取多个连续的文件或文件夹，可以先用鼠标单击待选的第一项，然后按下（）键，再单击最后一个待选取的文件或文件夹。Shift B. Ctrl C.Alt D.Shift+Ctrl14.在Windows 2000的“资源管理器”窗口右部，若已单击了第一个文件，又按住Ctrl键并单击了第五个文件，则有（）个文件被选中。15.IP地址是计算机在网络中的地址，它是由（）组成。位二进制数位二进制数位十进制数位十六进制数16.电子邮件应用程序向邮件服务器发送邮件时使用的协议是（）。A.SMTP B.FTP C.POP3 D.HTTP17.在indows2000中，当一个窗口最大化后，下列叙述中错误的是（）。该窗口可以被关闭该窗口可以移动该窗口可以最小化该窗口可以还原18.在Windows2000的“资源管理器”窗口左部，单击文件夹图标左侧的加号（）后，屏幕上显示结果的变化是（）。窗口左部显示的该文件夹的下级文件消失该文件夹的下级文件夹显示在窗口右部该文件夹的下级文件夹在窗口左部窗口右部显示的该文件夹的下级文件夹消失19.在Word2000中，查找、替换功能非常强大，下面叙述中正确的是（）。不可以指定查找文字的格式，只可以指定替换文字的格式可以指定查找文字的格式，但不可以指定替换方字的格式不可以按指定文字的格式进行查找及替换可以按指定文字的格式进行查找及替换20.在Word文档中插入数学公式，可以选择“插入”菜单中的（）命令。“符号”“图片”“文件”“对象”21.在Word 2000中，对于选定的文字（）。可以移动，不可以复制可以复制，不可以移动可以同时进行移动和复制可以进行移动或复制22.在Word 2000中，对文档进行分栏操作，需要使用的是（）菜单。“编辑”“视图”“格式”“工具”23.在Word 2000中，不可以进行的操作是（）。在选定的段落内进行查找、替换对选定的段落进行页眉、页脚设置对选定的段落进行拼写和语法检查对选定的段落进行字数统计24.在Excel 2000工作表中，一张工作表最多可以拆分为（）个窗口。34任意多25在Office2000中，下面有关格式刷的叙述中正确的是（）。格式刷可以用来复制字符和段落格式将选定格式复制到不同位置的方法是单击“格式刷”按钮双击“格式刷”按钮只能将选定格式复制到一个位置“格式刷”按钮无任何作用26.在PowerPoint 2000的幻灯片浏览视图下，不能完成的操作是（）。调整个别幻灯片位置删除个别幻灯片编辑个别幻片内容复制个别幻灯片27在Excel2000中，有多个常用的简单函数，其中函数AVERAGE(范围)的功能是（）。求范围内所有数字的平均值求范围内数据的个数求范围内所有数字的和返回函数中的最大值28在Excel 2000中，一个工作表最多可含有的行数是（）。25525665536任意多29在PowerPoint 2000中，（）可以同时浏览多张幻灯片内容。普通视图幻灯片视图大纲视图幻灯片浏览视图30.在Excel2000工作表的某些单元格内输入数字字符串“123”，正确的输入方式是（）。123”123”123 =123程序设计语言部分（70分）试题二、语言基础选择题（每个选择1分，共25分）。考生从提供的答案中选择一个下正确的，并把所选择答案的字母填入答题卡对应栏内。1.下列选项中，不属于Visual Basic特点的选项是（）。面向图形对象可视化的程序设计事件驱动编程机制窗口中包含菜单栏和工具栏2.窗体设计器是用来设计（）。对象的属性对象的事件应用程序的界面应用程序的代码段3.在Visual Basic中，大部分窗口都可以从主菜单项的（）下拉菜单中找到相应的打开命令。视图格式编辑调试4.每建立一个窗体，工程管理器窗口就会增加一个（）。工程文件类模块文件窗体文件程序模块文件5.Visual Basic可视化编程有个基本过程，依次是（）。创建工程、设计界面、保存工程建立工程、设计对象、编写代码创建工程、建立窗体、建立对象设计界面、设置属性、编写代码6.激活属性窗口使用的键是（）。如果要在命令按钮上显示图形文件，应设置命令按钮的（）。Graphics属性Style 属性和Graphics属性Picture属性Style属性和Picture属性8.一个工程可包括多种类型的文件，其中扩展名为.vbp的文件表示（）。工程文件窗体文件数据文件类模块文件9.假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是（）。BoolVar=34 BoolVar=”True”C.boolVar=.True. D.boolVar=#True#10.任何控件都具有的属性是（）。Text B.Caption C.ForeColor D.Name11.Print 方法可以在（）对象上输出数据。桌面标题栏窗体状态栏12.能够产生10,100之间随机整数的Visual Basic 表达式是（）。Int(Rnd(1)*90)+11 B.Int(Rnd(1)*91)+11C.Int(Rnd(1)*90)+10 D.Int(Rnd(1)*91)+1013.下面数据组说明语句错误的是（）。A.Dim a(100) As Byte B.Dim a(-100) As DoubleC.Dim a(10,10) As Byte D.Dim a(-10 to 10) As Double14.语句Print Sgn(100)的输出结果为（）。10015在窗体上画三个单选按钮，组成一个名为ChkOption的控件数组。用于标识各个控件数组元素的参数是（）。Tag Index Name ListIndex16.最常用于变量跟踪的窗口是（）。监视窗口代码窗口立即窗口工程资源管理器窗口17.通常所说的Visual Basic集成开发环境的三种运行模式是（）。设计模式、中断模式和运行模式窗体设计模式、属性设置模式和代码编写模式窗体模式、模块模式和类模块模式属性模式、方法模式和事件模式18.下列事件不是窗体事件的是（）。Click B.Load C.MouseDown D.Change19.下列关于控件属性的说法中，正确的是（）。控件属性只能在设计时设置，不能在运行时设置所有控件的相同属性都有相同的默认值所有对象都具有相同的属性控件的值可以在属性窗口修改20Visual Basic程序设计采用的是（）编程机制。结构化面向对象可视化事件驱动21.在窗体上发生Dbclick事件时，不可能伴随发生的是（）。MouseUp B.MouseDown C.Click D.Load22.要通过窗体来打印信息，使用的方法是（）。NewPage B.Printer C.Print D.PrintForm23.下列Visual Basic控件中，只能用来显示文字的是（）。标签文本框图片框框架24.下列控件组中，每种控件都含有滚动条的是（）。Label和TextBox TextBox和CheckBox和DriveListBox DirListBox和DriveListBox25.控件数组多用于（）。命令按钮单选按钮标签复选框试题三、程序阅读选择题（每个选项分，共分）。考生从提供的答案中选择一个正确的。并把所选答案的字母填入答题卡对应栏内。1.下面程序的功能是：从键盘上输入一串字符，以“！”结束，并对输入字符中的字母个数和数字个数进行统计。请在（）处选择正确的答案将程序补充完整。Private Sub Form_Click()Dim ch$, num1%, num2%num1% = 0num2% = 0ch = InputBox(enter a character:)While ch ! If ch = a And ch = A And ch = 0 (57) ch = 9 Then num2 = num2 + 1End IfPrint chch = InputBox(enter a character:)(58)Print Amount of leters:; num1Print Amount of digists:; num2End Sub(56).And B.Or C.Not D.=(57)A.And B.Or C.Not D.=(58)A.Next B.End do C.Wend D.End if2. 下面程序的功能是：求100以内的质数。编程思路是从2开始，依次判断每个数是否是质数，如果是就输出，否则继续往下，直到100为止。请在（）处选择正确的答案将程序补充完整。Private Sub Form_Click()Dim value As IntegerDim counter As IntegerDim num As IntegerMe.ClsFor value = 2 To 100 For counter = 2 To value - 1 If value Mod ( 59 ) = 0 Then Exit For End If NextIf counter = ( 60 ) ThenPrint value; Tab;num = num + 1If num Mod 3 = 0 Then PrintEnd IfNextEnd Sub（）Value Num Counter 都不对（60）Value Num Counter 都不对3. 下面程序的功能是：用冒泡法将个整数按升序排列，并输出。请在（）处选择正确的答案将程序补充完整。Option Base 1Private Sub Command1_Click()Dim aa = Array(98, 78, 90, 45, 32, 2, 12, 17)For i = ( 61 ) For j = i + 1 To 8 If (62) Then temp = a(i) a(i) = a(j) ( 63 ) End IfNext j( 64 )For i = 1 To ( 65 ) Print a(i)Next iEnd Sub（61）1 To 7 1 To 8 2 To 7 2 To 8（62）A(i)=A(j) A(i)A(j) A(i)A(j)（63）Temp=A(j) A(j)=Temp A(j)=A(i) A(j)=Temp（64）Next j Next I End If End （65）6 7 8 94. 下面程序的功能是：输出至1000之间所有能被除余且被除余的数，要求每输出个数后换一行。请在（）处选择正确的答案将程序补充完整。Private Sub Command1_Click()Dim i As Integer, j As Integer( 66 )For i = 0 To 1000 If i Mod 7 = 3 And ( 67 ) Then j = j + 1 Picture1.Print i; If ( 68 ) Then ( 69 ) End IfNext iPicture1.PrintPicture1.Print 共有 & ( 70 ) & 个可以被7除余3且被5除余3的数End Sub（66）I=0 I=1 J=0 J=1（67）I Mod 5=3 I Mod 3=5 J Mod 5=3 J Mod 8=6（68）I Mod 8=0 I Mod 8=1 J Mod 8=0 J Mod 8=1（69）Print; Print; Picture1.Print; Picture1.Print（70）I I+j J I-j试题四、综合应用题（共15分）。考生把答案写在答卷纸对应栏内。如下图所示窗体的功能是：求任意输入的一个数的阶乘值，图中用到了一个文本框（txtnumber）、一个命令按钮（command1）、两个标签（label1、lblresult）。如果文本框中输入一个数值，单击“计算”按钮后计算输入数的阶乘并将结果在标签lblresult处输出“输入的不是数字，无法计算！”字样。请编写“计算”按钮的代码。（注意：使用的名称采用题中规定的名称）。答案：试题一、计算机基础部分（30分）1-5.BCBDA 6-10.DCABC 11-15.CBADB 16-20.ABCDA 21-25.DCBBD 26-30.CACDC程序设计语言部分（70分）。试题二、语言基础选择题（每个选择1分，共25分）。31-35.ACACD 36-40.CBAAD 41-45.CDBCB 46-50 .CADDD 51-55.DCABA试题三、程序阅读选择题(每个选项2分，共30分)。56-60.BACCA 61-65.BDBBC 66-70.CACDC试题四、综合应用题（共15分）。考生把答案写在答卷纸对应栏内。Private Sub Command1_Click()Dim x As Double 输入的数字Dim jc As Double 保存阶乘值jc = 1If IsNumeric(txtnumber.Text) Then x = Val(txtnumber.Text) For i = 1 To x jc = jc * i Next i lblresult.Caption = 结果为： & jcElse lblresult.Caption = 输入的不是数字，无法计算！End If8 / 8文档可自由编辑打印