《2023年计算机二级vb秋笔试.doc》由会员分享，可在线阅读，更多相关《2023年计算机二级vb秋笔试.doc（15页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2023年（春）笔试试卷第一部分 基础知识1. 下列关于信息系统的叙述错误的是_。 A. 电话是一种双向的、点对点的、以信息交互为重要目的的系统 B. 网络聊天是一种双向的、以信息交互为重要目的的系统 C. 广播是一种双向的、点到多点的信息交互系统 D. Internet 是一种跨越全球的多功能信息系统 2. 微电子技术是以集成电路为核心的电子技术。在下列有关集成电路（IC）的叙述中，错误的是_。 A. 现代集成电路使用的半导体材料大多数是（Si） B. Pentium4微解决器芯片是一种超大规模集成电路，其集成度在1000万以上 C. 目前PC机中所用的的电子元器件均为大规模或超大规模集成电
2、路 D. Moore 定律指出（预言），集成电路的集成度平均 1824 个月翻一番 3. 多路复用技术和互换技术的发展极大地提高了通信线路的运用率。下列叙述错误的是_。 A. 数字传输技术采用的多路复用技术是时分多路复用技术 B. 目前有线电视采用频分多路复用技术在同一电缆上传输多套电视节目 C. 互换技术重要有两种类型，即电路互换和分组互换 D. 采用分组互换技术传递信息的速度比采用电路互换技术快 4. 下列有关计算机中数值信息表达的叙述错误的是_。 A. 正整数无论是采用原码表达还是补码表达，其编码都是相同的 B. 相同位数的二进制补码和原码，他们能表达的数的个数也是相同的 C. 在实数的
3、浮点表达中，阶码是一个整数 D. 从精度上看， Pentium 解决器支持多种类型的浮点数 5. 根据存储器芯片的功能及物理特性，目前通常用作高速缓冲存储器(Cache)的是_。 A. SRAM B. DRAM C. SDRAM D. Flash ROM 6. I/O接口指的是计算机中用于连接 I/O 设备的各种插头/插座，以及相应的通信规程和电器特性。在目前的 PC 机中， IDE 接口重要用于_与主机的连接。 A. 键盘 B. 显示器 C. 硬盘 D. 打印机 7. 成像芯片的像素数目是数码相机的重要性能指标，它与可拍摄的图象分辨率直接相关。 SONY DSC-P71 数码相机的像素约为3
4、20万，它所拍摄的图像的最高分辨率为_。 A. 1280*960 B. 1600*1200 C. 2048*1536 D. 2560*1920 8. 目前广泛使用的打印机重要有针式打印机、激光打印机和喷墨打印机。在下列有关这些打印机的叙述错误的是_。 A. 9针的针式打印机是指打印头由9根钢针组成 B. 激光打印机的重要消耗材料之一是碳粉/硒鼓 C. 喷墨打印机与激光打印机的打印速度均用每分钟打印的页数来衡量 D. 目前激光打印机均为黑白打印机，而喷墨打印机均为彩色打印机 9. 光盘存储器具有记录密度较高、存储容量较大、信息保存长期等优点。在下列有关光盘存储器的叙述中，错误的是_。 A. CD
5、-RW光盘刻录机可以刻录CD-R和CD-RW盘片 B. DVD的英文全名是Digital Video Disc，即数字视频光盘，它仅能存储视频信息 C. DVD光盘的容量一般为数千兆字节 D. 目前 DVD光盘存储器所采用的激光大多为红色激光 10. 在下列 PC 机软件中，不属于文字解决软件的是_。 A. Word B. Adobe Acrobat C. WPS D. CorelDraw 11. Windows 操作系统具有较强的存储管理功能，当主存容量不够时系统可以自动地“扩充”，为应用程序提供一个容量比实际物理主存大得多的存储空间。这种存储管理技术称为 _。 A. 缓冲区技术 B. 虚拟
6、存储器技术 C. SPOOLing 技术 D. 进程调度技术 12. 操作系统是现代计算机必不可少的系统软件之一。在下列有关操作系统的叙述中，错误的是_。 A. UNIX 操作系统是一种多用户分时操作系统，可用于 PC 机 B. Linux 操作系统是由美国 Linux 公司开发的操作系统 C. 目前 Windows XP 操作系统有多个不同版本 D. 至目前为止， Windows98 及其以后的版本均支持 FAT32 文献系统 13. 理论上已经证明，构成求解计算问题的程序控制结构只需_即可。 A. 反复、解决、返回 B. 顺序、选择、反复 C. 输入、解决、输出 D. 顺序、循环、转移 1
7、4. 将一个部门中的多台计算机组建成局域网可以实现资源共享。在下列有关局域网的叙述中，错误的是_。 A. 局域网必须采用 TCP/IP 协议进行通信 B. 局域网一般采用专用的通信线路 C. 局域网可以采用的工作模式重要有对等模式和客户 / 服务器模式 D. 构建以太（局域）网时，需使用集线器或互换机等网络设备，一般不需要路由器 15. 接入 Internet 的方式不同，则所需设备和上网性能也有所不同。在下列几种 Internet 接入方式中，从现有技术来看，上网速度最快的是_。 A. ISDN B.ADSL C. FTTx+ETTH D. Cable MODEM 技术 16. WWW与E-
8、mail是目前Internet上是使用最为广泛的服务。在下列有关WWW与E-mail服务的叙述中，错误的是_。 A. WWW有遍布Internet上的Web服务器和安装WWW浏览器的客户机组成，它采用客户/服务器的工作模式 B. 目前网页（Web页）描述语言重要采用HTML，HTML文档均包含头部、正文和尾部三个部分C. 每个电子邮箱都相应唯一的邮箱地址，且该地址有固定的格式，例如任何电子邮件地址均包含字符 “” D. 使用MIME协议后，邮件正文可以具有ASCII字符、汉字和图象等多种类型的数据 17. 在下列字符编码标准中，包含汉字数量最多的是_。 A. GB2312 B. GBK C.
9、GB18030. D.UCS-2 18. 下列有关数字图象与图形的叙述错误的是_。 A. 取样图象的数字化过程一般分为扫描、分色、取样和量化等解决环节 B. 为了使网页传输的图像数据尽也许少，常用的GIF格式图像文献采用了有损压缩 C. 矢量图形（简称图形）是指使用计算机技术合成的图象 D. 计算机辅助设计和计算机动画是计算机合成图像的典型应用 19. 计算机信息系统（简称“信息系统”）是一类以提供信息服务为重要目的的数据密集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是_。 A. 在信息系统中，绝大多数数据是持久的，不随程序运营的结束而失效 B. 信息系统开发方法有多种，
10、例如生命周期法、原型法等 C. 专家系统属于信息解决系统 D. MRP 和 ERP 是面向电子商务的信息系统 20. Microsoft Excel 是 Office 软件的重要组件之一。在下列有关 Microsoft Excel（97及其以后的版本）功能及使用的叙述错误的是_。 A. 每个 Excel 文献均为一个工作簿，在默认情况下包含 3 张工作表 B. 每个工作表可以包含的行和列的数量是没有限制的 C. 系统提供了对数据的排序、筛选和分类汇总等功能 D. 可以将Excel工作簿（表）保存为网页文献或文本文献第二部分 Visual Basic 程序设计 一、 选择题 21以下所列的8个控
11、件中，具有Caption属性的有 个。 CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文献夹列表框）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条） A5 B4 C3 D2 22执行下面语句后，Len函数值最大的是 。 Dim IA As Integer, B As Single, S As String *5, Ch As String IA=32767 : B=23.5 : S=A :Ch=abcd ALen(IA) BLen(B) CLen(S) DLen(Ch) 23假设变量Lng为长整
12、形变量，下面不能正常执行的语句是 。 ALng=16384*2 BLng=4*0.5*16384 CLng=1902 D32768*2 24数学表达式相应的对的Visual Basic表达式为 。 A-b+Sqr(b*b-4*a*c)/2*a B-b+Sqr(b*b-4*a*c)/(2*a) C(-b+Sqr(b*b-4*a*c)/(2*a) D(-b+Sqr(b*b-4*a*c)/ 2*a 25设Mys1,Mys2均为字符串型变量，Mys1=Visual Basic,Mys2=b,则下面关系表达式中结果为True的是 。 ALen(Mys1)2*InStr(Mys1,1) BMid(Mys1
13、,8,1)Mys2 CChr(98)&Right(Mys1,4)=Basic DInStr(Left(Mys1,6),a)+60Asc(Ucase(Mys2) 26在窗体模块代码窗口的通用声明处，可以使用 语句说明数组。 Public A(10) As Integer Dim A(10) As Integer Private A(10) As Integer Static A(10) As Integer A B C D 27设A=7,B=4,C=6,，则表达式A Mod 3+B3/C5的值为 。 A1 B2 C3 D犯错 28下列说法错误的是 。 A 当程序正常结束时，所有没用Close语句
14、关闭的文献都会自动关闭 B 在关闭文献或程序结束之前，可以不用Unlock语句对已锁定的记录解锁 C 可以用不同的文献号同时打开一个随机文献 D 用Output模式打开一个顺序文献，即使不对它进行写操作，本来内容也被清除 29程序中有两个过程Private Sub Fun1(S As String)和Private Sub Fun2(a() As String * 6)，在调用过程中用Dim St(6) As String * 6定义了一个字符串数组。下面调用语句中对的的是 。 Call Fun1(St(3) Call Fun2(St) Call Fun1(St) Call Fun2(St(6
15、) ) A B C D 30DrawStyle属性用于设立图形方法输出的线型，它受_属性的限制。 AFillStyle BFillColor CBorderStyle DDrawWidth 二、填空题 1若窗体有列表框List1，则List1.List(List1.ListIndex)的值等于List1的 属性值。 2执行下面的程序，当单击Command1时，列表框List1的第二列表项内容是 ，第四列表项内容是_ _，第五列表项内容是 。 Private Sub Command1Click（） Dim i As Integer，j As Integer For i =1 To 10 j=i+
16、j List1.AddItem j Next i For i =1 To 4 List1.RemoveItem List1.ListCount i Next i End Sub 3执行下面程序，当单击Command1时，窗体上显示的第一行内容是 ，第三行内容是 ，第四行内容是 。 Private Sub Command1_Click（ ） Print Test（3） End Sub Private Function Text（t As Integer）As Integer Dim i As Integer If t=1 Then Call Test（t-1） For i = 3 To t St
17、ep - 1 Print Chr（Asc（A）+ i）； Next i Print End if Test = t End Function 4执行下面程序，当单击窗体时，窗体上显示的第一行内容是 ，第三行内容是 ，第四行内容是 。 Dim x As Integer，y As Integer Private Sub FormClick（） Dim a As Integer，b As Integer A=5：b=3 Call sub1（a，b） Print a，b Print x，y End sub Private Sub sub1（ByVal m As Integer，n As Integer
18、） Dim y As Integer X=m+n：y=m-n M=fun1（x，y） n=fun1（y，x） End sub Private Function fun1（a As Integer，b As Integer）As Integer X=a+b：y=a-b Print x，y Fun1=x+y End function 5 执行下面的程序，当单击Command1时，Picture1中显示内容的第二行与第四行分别是_与 ，Picture2中显示内容的第一行和第三行分别是 _ 与 。 Private Sub Command1Click（） Dim a（4，4）As Integer，i A
19、s Integer，j As Integer Dim b（4，4）As Integer For i=1 To 4 s= For j =1 to 4 a（i，j）=（i-1）*4+j） s=s & Right（ & Str（a（i，j），3） Next j Picture1.Print s Next i For i=1 To 4 For j=1 To 4 B（5-j，i）=a（i，j） Next j Next i For i=1 to 4 s= For j = 1 To 4 If Len（CStr（b（i，j）2 Then s=s & & CStr（b（i，j）& Else s=s & CStr
20、（b（i，j）& End If Next j Picture2.Print s Next i End Sub 6下面程序的功能时，输入x的值，运用递推法分别求出级数前n项（n=0，1，2，3）之和。S=a0+a1+an+ 其中， a0 =1 n=1,2,3 计算级数，直到第n项的绝对值小于等于0.001时停止，完善程序，实现以上功能。程序界面参见右图。 Option Explicit Private Sub Command1Click（） Dim x As Single， i As Integer， s As Single Dim a As Single， a1 As Single X = T
21、ext1 a=1：s = a List1.AddItem s（ & 0）= & Str（s） Do i=i+1 _ _ S=s+a1 List1.AddItem s（ & CStr（i）& ）= & Str（s） If Abs（a1）Sqr(I) then _ _ ReDim Preserve A(Idx) A(Idx)=I End if Next IEnd Sub8将20个棋子围成一圈，按顺时针方向从120给棋子编号，从中取出棋子的规则是：从某编号棋子开始取出第1个棋子，然后按顺时针方向围绕圆周数棋子，从1数到2取第2个，再从1数到3取第3个，再从1数到4取第4个直到取完。本程序的功能就是找
22、出依照上述规则取棋子的编号序列，使得最后一个被取棋子的编号为指定的编号。例如：若指定最后取棋子的编号为9，则必须从编号为17的棋子开始取第一个棋子，取棋子的顺序是：17，19，2，6，11，18。完善程序，实现以上功能。 Option Base 1 Private Sub Command1_Click() Dim A(20) As Integer, I As Integer, K As Integer Dim N As Integer, Number As Integer, S As String Number = Val(text2) For K=1 to 20 For I=1 to 20
23、A(I) = 1 Next I S= Call Sub1(A,K,N,S) If N = Number then Text1 = S Exit for End If Next K End Sub Private Sub Sub1(A( ) As Integer, ByVal Idx As Integer, N As Integer, S As String) Dim I As Integer, Js As Integer, Sum As Integer Dim Ub as Integer, Step As Integer _ _ Js=1 : Step=1 A(Idx)=0 Do While
24、Js20 Step=Step+1 _ _ Do While Sum Ub Then _ _ Sum = Sum + A(Idx) Loop A(Idx)=0 S = S & Left(Cstr(Idx) & ,3) _ _ if Js mod 10 = 0 then S = S & vbCrlf Loop N = Idx End Sub 9C盘根目录下的数据文献data.txt中有两组数据，第一组数据未排序，并以-1表达该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是，单击读入数据按钮，将文献中的两组数据，分别读入到A、B数组中，单击“插入排序”按钮，则把A数组的元素按其大小依次插
25、入到B数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。程序界面参见下图。Dim a() As Integer, b() As Integer Private Sub Command1_Click() Dim i as Integer, j as Integer, n as Integer, s as String Do Input #11,n If n = -1 Then Exit Do i = i+1 ReDim Preserve a(i) a(i) = n s = s & Str(a(i) Loop Text1 = s s= _ _ j=j+1 ReDim Pre
26、serve b(j) Input #11,b(j) s=s & str(b(j) Loop Text2 = s Close 11 End sub Private Sub Command2_Click() Dim i as Integer, j as Integer, s as String For i = 1 to UBound(a) If a(i)b(UBound(b) then _ b(UBound(b)=a(i) Else For j=2 to UBound(b) If(a(i)b(j-1) And a(i)=b(j) Then Call change(a(i),j) Next j End If Next I For i = 1 to UBound(b) s = s & Str(b(i) Next i Text3=s End sub Private Sub change( n as Integer, k as Integer) Dim i As Integer ReDim Preserve b(UBound(b)+1) For I=UBound(b) To k+1 Step 1 _ Next i _ End Sub