计算机等级考试(二级VB)模拟试题一.doc

计算机等级考试（二级VB）模拟试题一第一部分 计算机基础知识1假设发现某微机的硬盘C感染上了病毒，现有1张含有清病毒软件的系统盘（软盘），在下面列出的不同操作方法中，较为有效的清除病毒的方法是 。A不关机直接运行软盘中的清病毒软件B用硬盘重新自举后运行软盘中的清病毒软件C用含有清病毒软件的系统盘重新自举后，再运行软盘中的清病毒软件DABC均可2十进制数“-75”在某计算机内部用二进制代码10110101表示，其表示方式为 。AASCII B原码 CBCD码 D补码3计算机的字长为4个字节，意味着 。A能处理的数值最大为4位十进制数9999B能处理的字符串最多由4个英文字母组成CCPU一次传送的二进制代码为32位DCPU一次运算的结果最大为232-14我国颁布的信息交换用汉字编码字符集基本集常用 表示。AGBKBISO/IECCGB2312-80DIEEE5一个32KB的存储器用十六进制编码的地址码，则编号从0000到 。A32767B8000 C7FFFD8EEE6对计算机用户来讲，最容易接受的是 。A高级语言B汇编语言C低级语言D机器语言 7计算机中系统软件一般指 。A用于处理大量数据的软件B由一系列完成基础工作的指令形成的专门软件C用于输入、存储、编辑文字材料的软件D专门为某一应用而编制的软件8计算机网络大体上是由网络硬件、网络软件、网络拓扑结构和 构成。A传输介质B传输控制协议C能够共享的数据资源D网络OS9按照工程化概念开发软件产品，其正确的工作流程是 。A软件设计一需求分析一编码与调试一测试一交付使用B需求分析一软件设计一编码与调试一测试一交付使用C软件设计一编码与凋试一需求分析一交付使用测试D需求分析编码与调试软件设计一测试一交付使用10在计算机网络中，允许一个地点的用户与另一个地点的计算机上运行的应用程序进行交 互对话，称为 。A传送电子邮件B电子数据交换C远程登录D联机会议11目前计算机多媒体技术不具有 特征。A多维性B交互性C综合性D排斥性12要在桌面上改变快捷键的图标，应 。A把新图标拖到快捷键上B右击快捷键，单击“特性”，然后选择“改变图标”C在“资源管理器”中，选择“编辑”，然后选择“选项”D删除快捷键，然后建一个新的快捷键图标13Windows95支持下面 网络协议。ANet BEUIBIPX/SPXCTCP/IPDBanyan VINES14在Windows95中文版中， 不是合法的文件名形式。AMy.syster.two.txtB昨天今天明天.DOCCAAADAB.EXE15Windows95是一种 操作系统。A单用户单任务D抢占式多任务C多用户单任务D协作式多任务16Windows95的很多窗口中都有“编辑”菜单，该菜单中的“剪切”和“复制”功能有时是灰色的，只有当 后，这两个功能才可使用。A剪贴板中有内容B选中对象C按鼠标右键D按鼠标左键17要想在文章中输入希腊字母“”，应 。A用英文字母“”代替B右击“输入法状态”窗口中的软键盘按钮，然后选择希腊字母键盘C在区位码表中查“”的区位码“0648”，然后用区位码输入法输入D在“画笔”中，画出“”，再粘贴到文章中18在资源管理器中，双击扩展名为“.BMP”的文件，Windows95会自动打开 应用程序窗口。A画笔B写字板C记事本D剪贴板19Word中要实现Word Wrap（整字换行）功能，应当 。A每行结尾处按回车键B每段结尾处按回车键C永远不能按回车键D每行结尾处按Esc键20在Word7.0中， 实际上应该在文档的编辑、排版和打印等操作之前进行，因为它对许多操作都产生影响。A字体设置B打印预览C页面设置D页码设定第二部分 Visual Basic 程序设计一、 选择题21.VB的使用目的是 。 A.开发Windows应用程序 B.图像处理C.制作WAV文件 D.文字处理22.对于窗体，下面 属性在程序运行时其属性设置起作用。A. MaxButtonB. BorderStyleC. NameD. Left23.复选框的Value属性为1时，表示 。A复选框未被选中B。复选框被选中C复选框内有灰色的勾D。复选框操作有误24. Print DateAdd(”m”，1，#1/30/2000#)语句显示的结果是 。(A)00-2-29(B)00-2-28(C)00-2-30(D)00-1-3125. 当运行程序时，系统自动执行启动窗体的 事件过程。(A)Load (B)Click (C)UnLoad(D)GotFocus26. Int(198.555*100+0.5)/100的值 。(A)198 (B)199.6 (C)198.56 (D)20027. 语句If x=1 Then y=1，下列说法正确的是 。(A)x=1和y=1均为赋值语句(B)x=1和y=l均为关系表达式(C)x=1为关系表达式，y=1为赋值语句(D)x=1为赋值语句，y=l为关系表达式28. 下列循环能正常结束循环的是 。(A) i=5(B) i=1DoDoi=i+1i=i+2Loop Until i0Loop Until i=129. 要分配存放如下方阵的数据， 数组声明语句能实现(不能浪费空间)。(A) Dim a(9) As Single(B) Dim a(3，3) As Single(C) Dim a(-1 To l，-5 To -3) As Single(D) Dim a(-3 To -1，5 To 7) As Integer30. 下面子过程语句说明合法的是 。(A)Sub f1(ByVal n%()(B)Sub f1(n%)As Integer(C)Function f1%(f1%) (D)Function f1(ByVal n%)31. 将命令按钮的， 属性设置为True，当用户按下【Esc】键时可以激发对应命令按钮的Click事件。A.Name B.Enable C.Default D.Cancel 32. 在调用Sub过程或Function过程时，采用 传送相应过程的变量名、数组名、常数或表达式。A 形式参数 B. 实际参数 C. 对象参数 D.数组参数33. Picture控件AutoSize属性设置为 ，在运行时当往图片框加载或复制图片时，VB会自动扩展该控件到恰好显示整个图片为止。A. True B. False C. 3 D. 无34. 随机访问模式允许用户在 时候访问文件的任何地方。A. 任何 B. 数组 C. ASCII码 D. 固定的35. 以下程序输出的结果是 。Option Base lPrivate Sub Command1_Click()Dim a%(3,3)For i=1 TO 3For j=1To 3If jl And i1 Thena(i,j)=a(a(I-1,j-1),a(i,j-1)+1Elsea(i,j)=i*jEnd IfPrint a(i,j);Next jPrintNext iEndSub(A)123(B)123(C)123(D)1l123l123246222323l23369333二、 填空题1. 下面程序段，显示的结果是 1 。Dim=xx=Int(Rnd)+5Select Case xCase 5Print优秀Case 4Print良好Case 3Print通过Case ElsePrint不通过End Select2以下程序运行后，si、sj、sk、i、j、k的结果分别是 2 、 3 、 4 、 5 、 6 、 7 。Private Sub Command1_Click()si=0:sj=0:For i=1 To 3For j=1 To isk=0For k= j To 3sk=sk+1Next ksj=sj+1Next jsj=si+1Next iEnd Sub3. 如下程序，运行的结果是 8 。Private Sub Commandl_Click()Print p1(3,7)End SubPublic Function p1!(x!, n%)If n=0 Thenp1=1ElseIf n Mod2=l Thenp1=x*p1(x,n2)Elsep1=p1(x,n2)xEnd IfEnd IfEnd Function4. 当Sub过程中的Value形参表中存在ByVal关键字时，执行本程序，单击窗体，在窗体上显示的第一行内容是 9 。第二行内容是 10 ；若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第一行内容是 11 ，第二行内容是 12 。Private Sub Value (ByVal m As Integer,ByVal n As Integer) M = m * 2 N = n 5 Print”m=”;m,”n=”;nEnd Sub Private Sub Form_Click()Dim x As Integer, y As IntegerX = 10 ;y = 15Call Value(x,y)Print”x=”;x,”y=”;y End Sub5. 如下程序，运行的结果是 13 ，若将A语句改为Static i%，运行的结果是 14 。 Public Sub Proc(a%()A:Dim i%Doa(i)=a(i)+a(I+1)i=i+1Loop While i=a(I) Then 20 If I=0 Then a(I)=mElse 21 Exit ForEnd IfNext iFor i=0 To Ubound(A)Print a(1)Next iEnd Sub8. 两质数的差为2，称此对质数为质数对，下列程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m是否为质数。Public Function IsP(m) As BooleanDim i% 22 For i=2 To Int(Spr(m)If 23 Then IsP=FalseNext iEnd FunctionPrivate Sub Commandl_Click()Dim i%Pl=IsP(3)For i=5 To 100 Step 2p2=IsP(i)If 24 Then Print i-2,ip1 25 Next iEndSub参考答案第一部分 计算机基础知识1.C2.D3.D 4.C 5.C 6.A 7.B 8.B 9.B 10.C11.D12.B13.C 14.D 15.D 16.B 17.B 18.A 19.B 20.C第二部分 Visual Basic 程序设计一、 选择题21.A22.D23.B 24.A 25.A 26.C 27.C 28.C 29.C 30.D31.C32