《2023秋江苏计算机二级VB考试真题.docx》由会员分享，可在线阅读，更多相关《2023秋江苏计算机二级VB考试真题.docx（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2023秋江苏计等级考试第一部分计算机基础学问i.微电子技术是信息技术领域中的关键技 术，它以集成电路为核心.下列有关集成电路的叙 述中，错误的是A.现代集最电路运用的半导体材料 只能是硅(Si),不能运用其它任何半导体材料B.集成度是指集成电路包含的电子 元件数目，可分为SSI、MSI、VLSI等C. Moore定律指此单块集成电路的 集成度平均1824个月翻一番D.我国其次代身份证中嵌入了集成 电路芯片,可以实现电子防伪和数字管理功能2 .数据传输速率是数据通信中重要的性 能指标。Gb/s是数据传输速率的计量单位之一，其 正确含义是 (2) oA.每秒兆位 B,每秒千兆位 C.每 秒百兆位
2、D.每秒百万位3 .所谓变号操作是指将一个整数变成肯定 值相同但符号相反的另一个整数。假设运用补码表 示的8位整数x=10010101,则经过变号操作后结果 为(3).A. 01101010B. 00010101C. 11101010 D. 011010114 .下列有关PC机主板的叙述中,错误的是 _(4)_ oA.主板的物理尺寸没有标准，各厂家 均可自行定义B.主板上包含芯片组,它是PC机各组 成部分相互连接和通信的枢纽C.主板上包含BIOS和CMOS芯片D.主板上包含CPU插座、内存条插槽 及其它类型的插槽5 .下列有关PC机中心处理器(CPU)和内存 (内存条)的叙述中，正确的是.A.
3、 PC机所采纳的CPU都是Intel公司生 产的Pentium系列芯片,其它厂商生产的CPU都与 之不兼容B.目前已有双核的微处理器(例如Core 2 Duo),但还没有四核的微处理器C.通常来说,DRAM的速度比SRAM的存 取速度慢D. 一般来说，一个内存条上仅有一个 DRAM或SRAM芯片6 .下列有关PC机1/0总线与1/0接口的 叙述中，错误的是_(6).A.目觥PC机中协调与管理总线操作 的总线限制器包含在主板上的芯片组中B.总线最重要的性能是数据传输速 率,其单位通常为MB/s或GB/sC. SATA接口的数据传输速率通常低 于USB 2.0的数据传输速率D. USB连接器有4个
4、引脚,其中一个引脚连接+5V电源7 .下列有关PC机常用I/O设备的叙述中， 错误的是_(7)oA.目前台式机键盘通常有一百零几 个按键,笔记本电脑的键盘有八十几个按键B.目前流行的鼠标是光电鼠标，其与 主机的接口有PS/2与USB两种C.宽屏LCD显示器的宽高比为16： 9 或 16： 100.打印速度是打印机的重要性能指 标,速度单位通常为dpi8 .下列有关PC机外存储器的叙述中，错误 的是_(8)_oA.目前硬盘的盘片大多为3.5、2.5或 1. 8英寸,一个硬盘中可有一个或多个盘片B.目前有些u盘可以模拟硬盘和光盘存 储器启动操作系统C.目前光盘存储器主要分为CD、DVD和 BD三种
5、,它们均采纳红外激光进行读写D.目前光驱的速率通常用多少倍速表 示9 .下列有关计算机软件的叙述中，错误的 是_(9)_.A.软件一般是指程序及其相关的数据 和文档资料B.从软件的用途考虑，软件可以分为系 统软件和应用软件,主要的系统软件有操作系统、 语言处理系统和数据库管理系统等。C.从软件的权益来考虑，软件可以分为 商品软件、共享软件和自由软件，共享软件和自由 软件均为无版权的免费软件D.Linux是一种系统软件、自由软件10 .到目前以止,Windows系列操作系统已推 出多个版本。在下列版本中，最新的Windows 版本是(10)A. Windows? B. Windows Me C.
6、Windows XP D. Windows Vista11 .下列有关Windows XP操作系统功能的叙 述中，错误的是A.系统通过时间片”轮转策略支持 多任务处理B.系统利用SPOOLing技术进行存储 管理C.在设备管理中引入了缓冲技术，以 削减1/0操作的等待时间D.系统支持PnP功能,并按ACPI标准 进行电源管理12 .在因特网中某台主机的IP地址为 20. 25. 30. 8,子网掩码为255. 255. 255. 0,那么该主 机的主机号为_(12)_ oA. 20 B. 25 C. 30 D. 813 .局域网中须要传输的数据必需预先组织 成若干数据帧，每一数据帧的格式如下图
7、所示：上图中最末部分？”表示的是_(13)_o发送计算机地址目的计算机地址编 号有效载荷？A.协议信息B.校验信息 C.冗余信息 D.结束标记14 .目前网络用户接入因特网有多种方式， 例如ADSL、HFC等。通过HFC接入因特网时采纳的 网络是_(14)oA.有线电话网 B.有线电视网C.无线局域网D.移动电话网15 .下列网络协议中，干脆与电子邮件传输 相关的网络协议是A. FTP B. SMTP C. TELNET D. NNTP16 .下列有关计算机中文本与文本处理的叙 述中，错误的是(16)A.西文字符主要是采纳ASCII字符集, 基本ASCII字符集共有256个字符B.我国最早采纳
8、的汉字字符集是 GB2312,包含6000多个汉字和若干个非汉字字符C.无论采纳何种方式输入汉字,在计 算机中保存时均采纳统一的汉字内码D.简洁文本和丰富格式文本中字符 信息的表示相同，区分在于格式信息的表示17 .彩色图像所运用的颜色描述方法称为颜 色模型(即颜色空间)。下列四种颜色模型中，彩色喷墨打印机运用的是(17).A. RGB B. HSB C. YUV D. CMYK18 .文件的扩展名用于标记文件的类型，用 户应当尽可能多地知晓各类文件的扩展名，下列文件中，属于数字声音的文件是A. ABC.RMB. ABC.WMAC. ABC.MKVD. ABC.SWF19 .信息系统软件开发瀑
9、布模型包括系统 规划、系统分析、系统设计、系统实施和系统维护等几个阶段。下面各项工作中，属于 系统实施阶段的是_(19)_A.问题定义B.可行性探讨C.系统测试D.绘制E-R图20 .下列有关 Micmsoft Word 2023 和 Microsoft Excel 2023软件的叙述中，错误的是 (20)A.利用Word软件编辑文档,可以将其 保存为TXT、DOC、RTF和HTM格式文件B.利用Word软件编辑文档时,可以统 计选定文本的字符数C.在Excel软件中，可以打开(导 入)TXT、DBF、HTML格式的文件(数据)D. Excel文件可以设置打开权限密码, 但不行以单独设置修改权
10、限密码其次部分Visual Basic程序设计一、选择题(用答题卡答题，答案依次填在 2130答题号内)21 .以下有关事务过程的说法中，正确的是 (21)A.全部的事务过程都是Sub子过程B.全部的事务过程都没有参数C.全部的事务都是由用户的操作干脆引 发的D.事务过程不能运用Call语句调用执行22 .以下语句中，正确的是(22)oA. Listl. Additemx, =,yB. Picturel. Print x, 二，yC. Textl. Text二x, 二，yD. Label 1. Caption=x, =, y23.以下有关VB程序书写规则的说法中，错 误的是_(23)A. 一行
11、可以书写多条语句，语句间用: 分隔B.运用注释时，可与注释语句定义符 Rem 互换运用C.过长的语句，可运用续行标记,分写 在多行上D.代码输入时，可不用区分字母大小写， 系统会将保留字首字母自动改为大写24 .设变量I和J是整型变量,K是长整型变 量。I已赋值32763, J和K分别赋值5,若接着执行 以下语句，可正确执行的是_(24)_。A. I=I+KB. J=I+KC. kl+J+KD. K=K+I+J25 .以下关系表达式中，运算结果为False的 是(25)A.CInt(3. 5)-Fix (3. 5)=0B.CInt(3. 5)-Int(3. 5) =0C. Int(3. 5)+
12、Int(-3. 5)=0D. Int(3. 5)+Fix(-3. 5)=026.以下字符运算表达式中，其功能与函数 Mid(s, i, i)相同的是(26)A. Left(s, i) & Right (s, Len(s)-i) B. Left (Right (s, Len(s)-i+l), i)C. Left (Right (s, i), Len(s)-i+l)D. Left(s, Len(s)-i) & Right (s, i)27.数学表达式的VB算术表达式为 (27)A. Sqr (x*y 3)+Abs(Exp(x)+Sin(x) 3/ (x-y)B. Sqr(x*-3) +Abs(Ex
13、p(x) +Sin(x)3)/(x-y)C. Sqr (x*/3)+Abs(Exp(x)+Sin(x) 3/x-y)D. Sqr(x*y厂3)+Abs(Exp(x)+Sin(x53)/(x-y)28 .以下有关数组的说法中，错误的是 (28)。A.运用ReDim语句，可以变更任何数组的 大小与维数B.运用ReDini语句,可以定义一个新数组C.运用ReDim语句重新定义动态数组时， 维界表达式中可以采纳变量D.运用ReDim语句重新定义的新数组，既 可比原数组大,也可比原数组小29 .以下有关Function过程的说法中，正确 的是 _(29)_。A.函数名在过程中只能被赋值一次B.假如在函数
14、体内没有给函数名赋值，则 该函数无返回值C.假如在定义函数时没有说明函数的类 型，则该函数是无类型的D.执行函数过程中的Exit Function语句, 将退出该函数，返回到调用点30.以下有关文件用法的描述中，正确的是(30)A.只有依次文件在读写前须要运用 Open语句打开B.运用同一个文件号，可同时打开多个 不同的文件C.假如以Input方式试图打开一个不存 在的依次文件,则会出错D.假如程序中缺少Close语句，即使程 序运行结束,打开的文件也不会自动关闭二、填空题(请将答案填写在答题纸的相应 答题号内，每个答案只占一行)1 .运行下面程序，单击CmdRun,在窗体上显 示a的值是的值
15、是_(2)_;i的值 是_(3)_ oOption ExplicitPrivate Sub CmdRun_Click()Dim i As Integer, a As Integer, b As Integera=l:b=10For i=a To b Step a+1 a=a+l b=b+l i = i+1Next iPrint a, b, iEnd Sub2 .执行下面程序，单击Commandl,数组元素 a(3, 2)的值是_,a(l,2)的值是 _ a (2, 3)的值是(6) _Option ExplicitOption Base 1Private Sub CommandlClick()
16、Dim n As Integer, i As Integer, j As IntegerDim a (3,3)As Integer,k As Integern=3:k=li 二 n: j =(n+l)/2 a(i, j)=k For k=2 To n*n i=i+l:j=j+l If in And j=n Theni=lElself in Then j= 1Elself in And jn Then i=i-2:j=j-lElself i=n And j=n And a(i, j)0 Theni=i-2:j=j-l End If a(i, j)=k Next kFor i=l To nFor
17、j=l To nPiel. Print Right (，z & Str(a(i, j), 3);Next jPiel. Print Next i End Sub3 .运行下面的程序，单击Gndl,窗体上显示 的第一行是其次行是_(8)_ ,最终一行是 (9)。Option ExplicitPrivate Sub Cmdl_Click()Dim A As IntegerA=3Call Sub1(A)Print AEnd SubPrivate Sub Subl (X As Integer) X=X*2+1If XLen(St) Then k = k+1ReDim Preserve a(k) a(k
18、)=Mid(St, i, 1) Print a(；k;)=；a(k)End If Next iEnd SubPrivate Sub Subl (S As String) Dim i As Integer For i=l To Len(S)2Mid(S, i, l)=Mid(S, Len(S)-i + l, 1) Next iEnd Sub5 .执行下面程序,在文本框Textl中输入21 23 2 3 5 1754#后，单击吩咐按钮Cmdl,数组元素A(l) 的值是(13),A(3)的值是(14),A 的值是Option ExplicitPrivate Sub Cmdl_Click()Dim A
19、() As Integer, K As IntegerDim L As Integer,S As String S=TextlDoK=K+1ReDim Preserve A(K) L=InStr(S,) If LOO ThenA(K)=Val(Left (S, L-l)S二Right (S, Len (S)-L)ElseA(K)=Val(S)End IfLoop Until L=0Call Exchang(A)For K=1 To 7Text2=Text2 & A(K) &Next KEnd SubPrivate Sub Exchang(A() As Integer) Dim i As Int
20、eger, Tem As Integer Dim Pointl As Integer Pointl=lFor i=l To UBound(A)If A(i) Mod 3 =OThen Tem=A(i)A(i)= A (Pointl) A(Pointl)=Tem Pointl=Pointl+l End IfNext iEnd Sub6 .本程序的功能是，利用下列公式求函数 cos (x)的近似值，规定通项的肯定值6时结 束计算。请完善本程序.cos(x)=l-通用公式 可知：a = Option ExplicitPrivate Sub CommandICiickODim S As Single,
21、 T As Single, K As Integer, x As SingleConst eps As Single=0. 000001x=Val(Textl)(16) S=1 T=1 DoT 二(17) S = S+T K=K+1Loop While (18) Text2=SEndSub7.本程序的功能是找出一组连续的整数，它 们的和数等于给定的数。通常给定一个数,可能会 找出多组符合要求的连续整数。查找的方法是穷举 法。请完善本程序。Option ExplicitPrivate Sub CmdRun_Click()Dim m As Integer,sum As Integer,st As
22、StringDim i As Integer, j As Integer, k As Integerm=TextlFor i=l To m-1(19)For j=i To m sum=(20)If sum=m Then st= st赋以空值 For k=i To j st= (21) Next k Listl. Additem Left (st, Len(st)-l) End IfNext j Next i End Sub 8.本程序的功能是将汉字的区位码转换成 以十六进制数形式表示的机内码。汉字的区位码由 4位数字组成,前两位数字表示汉字在编码表中的 区号，后两位数字表示位号，区号和位号均为
23、十进 制数。例如汉字中的区位码是5448,即中的区 号是54,位号是48。将区号与位号分别加上160, 再转换成十六进制数形式，就是中的机内码。请 完善本程序。Option ExplicitPrivate Sub CmdChange_Click() Dim qw As String,jn As String qw二TextlText2=qw2jn(qw) End SubPrivate Function qw2jn(st As String) As StringDim nl As Integer,n2 As Integer nl=Val(Left (st,2)+160 n2=(22) qw2jn
24、=d2h(nl) & d2h (n2) End FunctionPrivate Function d2h(d As Integer) As StringDim p As Integer,q As String*lDoP= (23)If p9 Thenq=Chr(55+p)Elseq=CStr (p)Endlf(24) d=d16Loop Until (25)End Function9.本程序的功能是查找一组数据中的众数。 所谓众数，就是在这组数据中出现次数最多的数. 留意：一组数据中的众数可能有多个.(即有多个数 据的出现次数相同)。事务过程Cmdfind主要功能 是生成n个随机整数存入数组,
25、再调用Freq过程, 求出数组中每个不相同的数据出现的次数：再求出 其中最大的出现次数值，最终，将求出相应的众数 输出。请完善本程序。Option ExplicitOption Base 1Private Sub Cmdfind Click()Dim a() As Integer, n As Integer, i As IntegerDim Shu () As Integer, Cs () As Integer, Max As Integern-InputBox (输入数据个数：，查找 众数,20)ReDim a(n)RandomizeFor i=l To na(i)=Int(Rnd*5)+5
26、Textl=Textl & Str(a(i)If i Mod 10=0 Then Textl=Textl & vbCrLfNext iCall Freq (a, Shu, Cs)Max=Cs (1)For i=2 To LBound (Cs)If Cs(i)Max Then(26)End IfNext iFor i=l To UBound(Cs)If (27) Then Text2=Text2 & Shu(i) &Next iEncl SubPrivate Sub Freq (a() As Integer, Shu () As Integer, Cs () As Integer)shu数组用于
27、存放A数组中不相同数据 的值Dim i As Integer, j As Integer, js As Integer,n As IntegerFor i=l To UBound(a)js=lFor j=l To n搜寻数组a中不相同的数据If Shu(j)=a(i) Then Exit For Next jIf (28) Thenn=n+lReDim (29)Shu(n)= a(i)For j=i+l To UBound(a)If a(j)=a(i) Then(30)Next jCs(n)=jsListl. Addltem a(i) & & jsEnd IfNext iEnd SubCs数组用于存放对应不相同数据出现的次数