2023年江苏省计算机二级VB试卷.doc

春江苏省计算机二级VB试卷1下面关于通信技术论述中，错误是 _1_ 。A任何一种通信系统均有信源、信道和信宿这三个基本构成某些 B为了实现远距离传播信息，在模仿通信和数字通信中均采用载波技术C为了减少传播信息成本，在通信中广泛采用多路复用技术D数字通信系统一种重要性能参数是信道带宽,它指实际进行数据传播时单位时间内传播二进位数目2在下列关于集成电路及其应用论述中，错误是 _2_ 。 A集成电路制造工序繁多，工艺复杂且技术难度高 B通过抛光后硅片称为晶圆，每个晶圆最多可以制成一种合格集成电路芯片 CIC卡分为接触式IC卡和非接触式IC卡，后者普通又称为射频卡或感应卡 D集成电路应用十分广泛，当前国内第2代居民身份证中就有集成电路芯片3在下列关于数字技术某些论述中，错误是 _3_ 。 A数字技术是采用有限个状态(例如0和1)来表达、解决、存储和传播信息 B在逻辑代数中，1与1进行逻辑加(V)和逻辑乘()成果相似 C任何一种十进制数，均可以精确地转换成等值二进制数 D在PC机中，通惯用原码表达正整数、用补码表达负整数4 在下列关于PC机主机论述中，错误是_4_ 。 ABIOS和CMOS存储器安装在主板上，普通顾客普通不能自己更换 B由于PC机主板物理尺寸等没有原则化，因此不同PC机主板均不能互换 C芯片组是PC机各构成某些互相连接和通信枢纽，普通由2块VLSI芯片构成 D芯片组决定了主板上所能安装内存最大容量、速度及可使用内存条类型5 在下列4个Intel微解决器产品中，采用双核构造是 _5_ 。 A. Core 2 Duo BPentium PRO CPentium III DPentium 46 在下列四种PC机主存储器类型中，当前惯用是 _6_ 。 AEDODRAM BSDRAM CRDRAM DDDR SDRAM7 在下列关于PC机惯用I/O接口论述中，错误是 7 。 A 当前显卡与显示屏接口大多采用VGA接口 B. 可用于连接鼠标器USB接口和PS/2接口数据传播方式均是串行传播方式 C. USB接口连接器有4个引脚，其中1个引脚可获得由主机提供+1.5V电源 D IEEE-1394b接口也是PC机惯用一种高速接口8 在下列关于PC机外存储器论述中，错误是 8 。 A由于数据存取速度慢、容量小等因素，软盘存储器已逐渐被淘汰 B. 所有硬盘都是由2个或2个以上盘片构成，硬盘中盘面数为盘片数2倍 C当前有些优盘产品可以模仿软盘和硬盘启动操作系统 D. 当前常用组合光驱(“康宝”)既有DVD只读光驱功能，又有CD光盘刻录机功能 9 在下列关于光盘存储容量论述中，错误是 9 。 A80ram CD存储容量大约为200多兆字节 B120mm CD存储容量大约为600多兆字节 C单面单层120mm DVD存储容量大约为4.7GB D单面单层120mm蓝光光盘存储容量大约为17GB 10在下列关于Windows系列操作系统及其功能论述中，错误是 10 。 A.Windows操作系统采用并发多任务方式支持系统中各种任务执行 B.Windows XP分为各种版本，它们可用于不同计算机和不同应用C.与Windows XP相比，Windows Vista做了许多改善，但其硬件运营环境规定较高 D.无论是硬盘还是光盘，它们均采用相似文献系统，即FAT文献系统11在下列惯用应用软件中，不能对编辑文档设立密码是 11 。 AMicrosoft Word BMicrosoft Excel CMicrosoft PowerPoint DMicrosoft FrontPage12在下列关于无线局域网论述中，错误是 12 。 A.在无线局域网中，无线接入点事实上是一种无线互换机，在室内覆盖距离可达几十米 B.当前无线局域网可采用协议有Wi-Fi和蓝牙等，后者数据传播速率比前者更高 C.若某电脑贴有Intel公司Centrino(迅驰)标记，则该电脑应有集成无线网卡 D.无线网卡有各种类型，例如PCI无线网卡、USB无线网卡等13IP地址分为A、B、C、D、E五类。下列4个IP地址中，属于C类地址是 13 A 1.110.24.2 B 202.119.23.12 C 130.24.35.68 D 26.10.35.4R14因特网上有许多不同构造局域网和广域网互相连接在一起，它们能互相通信并协调工作基本是由于都采用了 _14_ AATM协议 BTCP/lP协议 CX.25协议 DNetBIOS协议15下列关于因特网接入论述中，错误是_15_ 。 A采用电话拨号接入时,数据传播速率只能达几十kbps B采用ADSL接入时，网络下行数据传播速率普通高于上行数据传播速率 C采用ADSL接入时，只需要ADSL调制解调器，不需要使用网卡 D采用有线电视接入时，各种终端顾客将共享连接段线路带宽16在下列关于字符集及其编码论述中，错误是 _16_ 。 A.在国内台湾地区使用中文编码原则重要是GBK，该原则中收录了大量繁体中文 BGBl8030原则中收录中文数目超过2万，Windows XP操作系统支持该原则 CUnicode字符集中既收录了大量简体中文，也收录了大量繁体中文 DGB2312是国内颁布第一种中文编码原则，该字符集还收录了俄文、希腊字母等17若一幅图像大小为1024768，颜色深度为16位，则该图像在不进行数据压缩时，其数据量大约为_17_ 。 A768KB B1.5MB C3MB D12.3MB18在下列4种类型数字化声音文献中，不也许涉及人说话声音是 18 。 A. WAV BMP3 CMID DWMA19在下列关于数字视频论述中，错误是 19 。 APC机所使用视频卡能将输入模仿视频信号进行数字化 B当前使用摄像头获取视频信息时,不需要使用专门视频卡 C.数字视频在数据压缩时只能使用MPEG原则，DVD就是采用MPEG一4原则压缩 D计算机动画是一种合成视频，这种技术是发展动漫产业基本20.下列是几种常用电子商务分类办法。若将电子商务分为B-C、B-B等类型，则该分类是 _20_ 。 A按交易双方进行分类 B按使用网络类型分类 C按交易商品性质分类 D按交易商品规模分类 21.关于窗体，如下论述中对的是 21 。 A.仅当窗体上没有可以获得焦点控件时，窗体才可以获得焦点 B.一种VB工程只能从某个指定窗体开始启动 C.只有窗体可以作为控件容器 D.Unload Me和End语句效果总是等同22.若a为长整型变量，则执行a=12 ：Print Len(a);Len(Str(a)；Len(CStr(a)后，在窗体上看到是 22 。 A.4 2 3 B.2 3 2 C.4 3 2 D.2 2 323.数学表达式 相应visual Basic表达式是 23 。 A.Cos(30*3.14159/180)/(4*y+Ln(x)+Exp(2) B.Cos(30*3.14159/180)/(4*y+Log(x)+Exp(2) C.Cos(30*3.14159/180)/(4*y+Ln(x)+e2 D.Cos(30)/(4*y+Log(x)+e224.表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)值是 24 。 A.-8 B.-7 C.-6 D.-525.如下说法中，错误是 25 。 A.使用缺省Preserve核心字ReDim语句可以变化数组维数和大小 B.ReDim语句只能出当前过程中 c.使用ReDim语句重新定义动态数组，只能比原数组大 D.使用ReDim语句可以对动态数组所有元素进行初始化26.下列关于菜单说法中，错误是. 26 。 A.可觉得菜单项选定快捷键 B.若在标题文本框中键入连字符(一)，则可在菜单两个菜单命令项之间加一条分隔线 C.除了Click事件之外，菜单项还可以响应其她事件 D.菜单编辑器名称文本框用于输入菜单项名称27.如下关于过程中形式参数描述中，错误是 27 。 A.函数过程可以没有形式参数 B.事件过程一定没有形式参数 C.形参数组只能按地址与实参数组结合 D.窗体与控件也可以作为过程参数28.如下表达式中，可以表达A和B之一不不大于0是 28 。 A*B0 Xor B0 A0 Or B0 A0 And B0 And A=1 st=Left(s,1) if st9 then st=Asc(st)-55 end if Covert=Convert+Val(st)*N(L-1) print Val(st)*N(L-1) L=L-1 s=Right(S,L) LoopEnd Function5.窗体显示第一行是_(13)_,第二行是_(14)_,第三行是_(15)_Option ExplicitPrivate Sub Command1_Click() Dim s as string，k as integer，ch() as string Dim P as string,i as integer s=Ucase(Meet me after the class.) For i=1 to Len(s) If Mid(s,i,1)=A then p=p & Mid(s,i,1) ElseIf p then k=k+1 Redim Preserve ch(k) ch(k)=p p= End if Next i For i=1 to Ubound(ch) if len(ch(i)=2 then Call move_c(ch(i),1) else Call move_c(ch(i),2) end if print ch(i) next iEnd SubPrivate Sub Move_c(s as string，k as integer) Dim i as integer，j as integer，p as string*1 For i=1 to k p=Right(s,1) For j=Len(s)-1 to 1 step -1 Mid(s,j+1,1)=Mid(s,j,1) Next j s=p & Right(s,Len(s)-1) next iEnd Sub6.下面程序是求下式近似值，当第n项绝对值不大于10-5时终结计算S=1-1/3+1/5-1/7+ option explicitPrivate Sub Command1_Click() dim n as long，s as single，t as single，pi as single Const eps=0.00001 n=1 t=1 s=0 do s=s+t n=n+1 t=_(16)_ Loop Until _(17)_ pi=s*4 Label1.Caption =近似值为:End Sub7.下面程序功能是，找出满足如下条件三位整数，不含数字0,且任意互换数字位置所得到数，均能被6整除Option explicitPrivate sub Command1_Click() dim i as integer，j as integer，k as integer，st as string Dim a(6) as integer For i=100 to 999 if _(18)_ then For j=1 to 6 if a(j) Mod 60 then Exit For Next j if_(19)_THen st=st & str(i) k=k+1 if k mod 3 =0 then st=st & vbcrlf End if End if Next I Text1=stEnd SubPrivate Function fj(a() as integer，s as string) as Boolean Dim n as Integer，i as integer，j as integer if Instr(s,0)0 then _(20)_ end if For i=1 to 3 For j=1 to 2 n=n+1 _(21)_ s=Left(s,1) & Right(s,1) & Mid(s,2,1) Next j s=Right(s,1) & left(s,2) Next i fj=TrueEnd Function8.下面程序功能是求两个特大整数之和，由于vb中可以表达整数大小有一定限制，因此必要用新办法求特大整数之和，本程序将特大整数使用字符类型进行解决，其中函数add用于求两个1位整数之和，参数c用于保存进位，注意，求和前需一方面将两个整数按位对齐option explicitprivate Sub command1_Click() Dim s1 as string，s2 as string，s3 as string dim i as integer，n1 as integer，n2 as integer dim c as integer，n as integer s1=text1 ：s2=Text2 n=_22_ if sgn(n)0 then s2=_23_ elseif Sgn(N)0 then s1=String(Abs(n),0) & s1 end if For i=len(s1) to 1 step -1 n1=Val(Mid(s1,i,1) n2=Val(Mid(s2,i,1) s3=_(24)_ Next i if c0 then s3=_(25)_ Text3=s3End SubPrivate Function Add(x as integer，y as integer，c as Integer) as string Add=Cstr(x+y+c) Mod 10) _(26)_ End Function 9. 下面程序功能是：找出各位数字互不相似，且其6倍数仍由构成该数数字构成六位整数。例如：1268736倍数是761238，就是符合条件数。提醒：程序中用a,b数构成标示数组元素下标值相应数字与否出当前六位整数中。例如：2出当前某六位整数中，则a（2）值为1。Option ExplicitPrivate Sub Command1_Click() dim i as long,i2 as long，flag as Boolean Dim a(0 to 9) as integer，b(0 to 9) as integer For i=100000 to 160000 Call Validate(i,a,flag) if flag then i2=i*6 call Validate(i2,b,flag) if flag and Compare(a,b) then List1.AddItem i & & i2 End if End if Next iend subPrivate Sub validate(n as long，a() as Integer，f as Boolean) dim p as integer，i as integer Erase a f=false for i=1 to len(cstr(N) p=_(27)_ if a(p)=1 then exit sub else a(p)=1 end if next i _(29) f=trueEnd Sub Private Function Compare(a() as integer，b() as integer) as Boolean dim j as integer compare=false for j=1 to Ubound(a) if a(j)b(j) then _(30)_exit function End if next j Compare=trueEnd Function 1.D 2.B 3.C 4.B 5.A 6.D 7.C8.B 9.D 10.D 11.D 12.B 13.B14.B 15.C 16.A 17.B 18.C 19.C 20.A21.A 22.B 23.B 24.A 25.C 26.C 27.B28.C 29.C 30.A二:填空题(1)1 (2)5 (3)5 (4)2 3 (5)3 7 (6)15 (7)7 (8)30 (9) 7 (10)588 (11)11 (12)739(13)ETME (14)EM (15)SSCLA (16)(-1)(n+1)/(2*n-1)(17)ABS(t)6或j=7 (20)Exit Function (21)a(n)=val(s) (22)len(s1)-len(s2) (23)string(Abs(n),0) & s2(24)Add(n1,n2,c) & s3 (25)c & s3 (26)c=(x+y+c)10(27) Mid(n,i,1) (28)Exit Sub (29) f=true (30)Exit Function