《2022年2022年江苏省计算机二级VB模拟试卷 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年江苏省计算机二级VB模拟试卷 .pdf（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、江苏省高等学校计算机等级考试二级 Visual Basic 考试模拟试卷 1(本试卷完成时间120 分钟)第一部分计算机基础知识1.下列不同进位制的四个数中,最小的数是 _(1)_ A.二进制数 1100010 B.十进制数65 C.八进制数77 D.十六进制数45 2.下列关于PC机主板的叙述正确的是_(2)_。A不同厂家生产的主板，尺寸各不相同B主板上安装有存储器芯片，如ROM 芯片、CMOS芯片等CCPU是直接固定在主板上的，不可更换D主板上安装有电池，在计算机断开交流电后，临时给计算机提供电流，供计算机工作3.下面关于BIOS的一些叙述正确的是_(3)_。ABIOS是存放于ROM 中的
2、一组高级语言程序BBIOS中含有系统工作时所需的全部驱动程序CBIOS系统由加电自检程序、系统主引导记录的装入程序、CMOS设置程序、基本外围设备的驱动程序组成D没有 BIOS的 PC机也可以正常启动工作4.计算机软件(简称软件)指的是能指挥计算机完成特定任务的、以电子格式存储的程序、数据和相关的文档。在下列有关软件的叙述中,错误的是 _(4)_。A.软件的版权所有者不一定是软件作者B.自由软件指的是一种无版权的软件,允许修改其源代码C.用户购买一个软件后,就获得该软件版权D.共享软件是一种买前免费试用,具有版权的软件5.以下关于操作系统中多任务处理的叙述错误的是_(5)_。A将 CPU时间划
3、分成许多小片，轮流为多个程序服务，这些小片称为“时间片”B由于 CPU是计算机系统中最宝贵的硬件资源，为了提高CPU的利用率，一般采用多务处理C正在 CPU中运行的程序称为前台任务，处于等待状态的任务称为后台任务D在单 CPU环境下，多个程序在计算机中宏观上同时运行，微观上由CPU轮流执行6.以下关于 IP地址的叙述错误的是_(6)_。A正在上网(online)的每一台计算机都有一个IP地址B现在广泛使用的IPv4协议规定IP地址使用 32 个二进位表示CIPv4 规定的 IP 地址快要用完了，取而代之的将是64 位的 IPv5 DIP 地址是计算机的逻辑地址，每台计算机还有各自的物理地址7.
4、路由器用于连接异构的网络，它收到一个IP数据报后要进行许多操作，这些操作不包含_(7)_。A域名解析B路由选择名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 10 页 -C帧格式转换DIP数据报的转发8.通过有线电视接入因特网时需使用电缆调制解调(Cable MODEM)技术，以下叙述错误的是_(8)_。A采用同轴电缆和光纤作为传输介质B收看电视时不能上网C能提供语音、数据、图像传输等多种业务D同一连接段中多个用户的信号都在同一电缆上传输9.至目前为止,已发布多种汉字信息的编码标准。在下列叙述中,错误的是_(9)_。A.无论采用那种编码标准(如 GBK、UCS-4等),汉字的机内
5、码都是采用16 位二进制表示的B.中文版 Windows98/2000 操作系统都支持GB2312-80、GBK等多种汉字编码标准。C.GB2312-80 是我国颁布的第一个汉字信息编码的国家标准。D.不同的汉字输入法,其可以输入的不同汉字个数可能有所不同。10.下列四种声音文件中,不可能用于保存歌曲的是_(10)_。AWAV BMP3 CMIDI DWMA 1.C 2.B 3.C 4.C 5.C 6.C 7.A 8.B 9.A 10.C 第二部分Visual Basic 程序设计一、选择题（共10 分，每题 2 分）1.下列控件中，无法用于显示程序运行结果的是_1 _。ATextBox BL
6、istBox CPictureBox DTimer 2.下列有关转换函数的说法中，正确的是_2 _。AInt 和 CInt 函数的区别仅在于返回结果的数据类型不同BInt 和 Fix 函数将非整数数据转换成整数，转换后的结果类型是Long C在处理正数时，Int 函数和 Fix 函数的返回结果是相同的D在处理负数时，Int 函数和 Fix 函数的返回结果是相同的3.数学式对应的VB表达式是_3_。ALog(x)/Log(10)-Cos(30*3.14159/180)+Abs(x 2+Sqr(y)+Exp(x)BLog(x)/Log(10)-Cos(30)+Abs(x 2+Sqr(y)+e x
7、CLog(x)-Cos(30*3.14159/180)+Abs(x 2+Sqr(y)+Exp(x)DLog(x)-Cos(30)+Abs(x 2+Sqr(y)+e x 4.下列有关数组的说法中，错误的是_ 4 _。A若模块中有“Option Base 1”语句，则该模块中的数组的维下界都为1 B定长字符串类型的数组也可以作为过程的形式参数C只能在标准模块中用Public 语句定义全局数组D若 A 是固定大小数组，执行语句Erase A 后，数组 A 的所有元素被初始化5.下列关于过程参数的叙述中，正确的是_5 _。名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 10 页 -A符号
8、常数名可以出现在定义过程的形式参数表中B过程调用时，与用ByRef 说明的形参结合的实在参数不可以是常数或表达式C在自定义过程中，用ByVal 说明的形参值发生改变，不会影响与之结合的实参的值DVB 对过程的形式参数的类型没有任何限制二、填空题（共20 分，每空2 分）1.执行下面程序，单击命令按钮Command1，则窗体上显示的第一行内容是_(1)_，第二行内容是_(2)_。Option Explicit Private Sub Command1_Click()Dim i As Integer,j As Single,k As Integer j=11 For i=2 To 10 Step
9、2.5 j=j-2.5 If j=Int(j)Then i=i+j Mod 10 Else i=i+1 End If k=i+j Next i Print i Print k End Sub 2.执行下面程序，单击命令按钮执行下面程序，单击命令按钮Command1，则数组元素，则数组元素，则数组元素A(1,2)的值是_(3)_、A(2,1)的值是_(4)_、A(3,3)的值是_(5)_。Option Explicit Option Base 1 Private Sub Command1_Click()Dim A(3,3)As Integer,K As Integer Dim i As Inte
10、ger,j As Integer i=2 j=1 A(i,j)=39 For K=38 To 31 Step-1 If i-1=0 And j-1 0 Then i=3:j=j-1 ElseIf i-1 0 And j-1=0 Then i=i-1:j=3 ElseIf i-1=0 And j-1=0 Then i=1:j=2 ElseIf A(i-1,j-1)0 Then 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 10 页 -j=j+1 Else i=i-1:j=j-1 End If A(i,j)=K Next K For i=1 To 3 For j=1 To 3 Te
11、xt1.Text=Text1.Text&A(i,j)&Next j Text1.Text=Text1.Text&vbCrLf Next i End Sub 3.执行下面程序，单击命令按钮执行下面程序，单击命令按钮Command1，则窗体上显示的第一行内容是_（6）_，最后一行内容是_（7）_。Option Explicit Private Sub Command1_Click()Dim a As Integer,b As Integer,k As Integer For a=2 To 3 b=a+1 k=Fun(Fun(a,b),b)Print k Next a Print b End Sub
12、 Private Function Fun(a As Integer,b As Integer)As Integer b=a+b a=a+b Fun=a+b End Function 4.执行 下面程序，单击命令按钮Command1，则 多行 文本框Text1 中显示的第一行内容 是_（8）_，第二行内容是_（9）_，第三行内容是_（10）_。Option Explicit Private Sub Command1_Click()Dim s1 As String,s2 As String,data1 As String,data2 As String Dim i As Integer data
13、1=1011 1010 1110 data2=1010 1101 1010 For i=1 To Len(data1)Step 5 s1=Mid(data1,i,4)s2=Mid(data2,i,4)Text1.Text=Text1.Text&Subtract(s1,s2)&vbCrLf 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 10 页 -Next i End Sub Private Function Subtract(s1 As String,s2 As String)As String Dim i As Integer,k As Integer,L As Intege
14、r Dim j As Integer,s As String L=Len(s1)For i=1 To L If Mid(s1,i,1)=0 And Mid(s2,i,1)=0 Then Subtract=Subtract&0 Else Subtract=Subtract&1 End If Next i End Function 三、操作题（共50 分）1.完善程序。(共 12 分)【要求】1)打开”考生文件夹”中”P1.vbp”文件,完善程序后,直接保存所有文件。【题目】本程序的功能是找出 4500 之间的史密夫数。所谓史密夫数是指该数的各位数字和等于其质因子分解中所有质因子的各位数字和。例如
15、在十进制下，202 就是一个史密夫数，因为2+0+2=4，202 的质因子分解为2 101，2+1+0+1=4。Option Explicit Option Base 1 Private Sub Command1_Click()Dim i As Integer,he As Integer Dim n As Integer,pf()As Integer For n=4 To 500 名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 10 页 -Call Pfactor(n,pf)If UBound(pf)1 Then _(1)_ For i=1 To UBound(pf)he=he+
16、Sum(pf(i)Next i If Sum(n)=he Then List1.AddItem n End If End If Next n End Sub Private Sub Pfactor(ByVal n As Integer,f()As Integer)质因子分解Dim k As Integer,P As Integer k=2 Do Do While _(2)_ P=P+1 ReDim Preserve f(P)f(P)=k n=n k Loop _(3)_ Loop Until n=1 End Sub Private Function Sum(ByVal n As Integer
17、)As Integer Dim S As String,L As Integer,k As Integer,i As Integer S=CStr(n)_(4)_ For i=1 To L k=Val(Mid(S,i,1)Sum=Sum+k Next i End Function 2.改错题（共16 分）【要求】1)打开”考生文件夹”中”P2.vbp”文件，改正程序中的错误后，直接保存所有文件；2)改错时，不得增加或删除语句但可适当调整位置。【题目】本程序的功能是在给定的数字串中（在给定的数字串中（121709473）找出所有的素数子串。名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页
18、，共 10 页 -Option Explicit Private Sub Command1_Click()Dim n As Integer,St As String,L As Integer,Flg As Boolean Dim i As Integer,j As Integer,C As String,s As String n=Val(Text1.Text)St=CStr(n)L=Len(n)For i=1 To L Flg=False For j=1 To L-i+1 C=Mid(St,j,i)If Left(C,1)0 And Prime(Val(C)Then s=s&C&Flg=Tr
19、ue End If Next j If Flg Then s=s&vbCrLf Next i Text2.Text=s End Sub Private Function Prime(M As Long)As Boolean Dim i As Long For i=2 To Int(Sqr(M)If M Mod i=0 Then Exit For Next i Prime=True End Function 3.编程题（22 分）【要求】名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 10 页 -1)打开“考生文件夹”中“P3.vbp”文件，按参考界面形式编辑窗体，根据题目要求编写
20、和调试程序后，直接保存所有文件；2)程序代码书写应呈锯齿形，否则适当扣分。【题目】编写程序，生成由两位随机整数组成的数组,删除数组中数值相同的数组元素。【编程要求】1)程序参考界面如图所示，编程时不得增加或减少对象改变的窗体种类,窗体及界面元素大小适中，且均可见；2)运行程序，单击“生成”按钮，在 InputBox 对话框中输入需要生成的数组元素个数，并生成由两位随机整数组成的数组显示在文本框1 中；单击“删除重复数”按钮将数组中出现的重复数删除后显示在文本框2 中；单击“清除”按钮，将所有文本框清空，焦点置于“生成”按钮上；3)程序中至少应定义一个通用过程,用于将数组中的重复数删除。参考答案
21、一、VB选择题（共10 分，每题2 分）1D 2C 3A 4A 5C 二、VB填空题（共 20 分，每空2 分）113 217 333 439 536 名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 10 页 -646 717 81011 91111 101110 三、VB操作题（共50 分）1.完善程序（共12 分）(1)he=0(2)n Mod k=0(3)k=k+1(4)L=Len(S)2.改错题（共16 分）Option Explicit Private Sub Command1_Click()Dim n As Long,St As String,L As Integer
22、,Flg As Boolean Dim i As Integer,j As Integer,C As String,s As String n=Val(Text1.Text)St=CStr(n)L=Len(St)For i=1 To L Flg=False For j=1 To L-i+1 C=Mid(St,j,i)If Left(C,1)0 And Prime(Val(C)Then s=s&C&Flg=True End If Next j If Flg Then s=s&vbCrLf Next i Text2.Text=s End Sub Private Function Prime(M A
23、s Long)As Boolean Dim i As Long For i=2 To Int(Sqr(M)If M Mod i=0 Then Exit FunctionNext i If M 1 Then Prime=TrueEnd Function 3.编程题（22 分）Option Explicit Option Base 1 Dim a()As Integer,n As Integer 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 10 页 -Private Sub Command1_Click()Dim i As Integer n=InputBox(输入n=,10)R
24、eDim a(n)For i=1 To n a(i)=Int(Rnd*90)+10 Text1.Text=Text1.Text&Str(a(i)Next i End Sub Private Sub Command2_Click()Dim i As Integer Call dele(a)For i=1 To UBound(a)Text2.Text=Text2.Text&Str(a(i)Next i End Sub Private Sub dele(a()As Integer)Dim i As Integer,j As Integer,k As Integer i=1 Do j=i+1 Do If a(i)=a(j)Then For k=j To UBound(a)-1 a(k)=a(k+1)Next k ReDim Preserve a(UBound(a)-1)Else j=j+1 End If Loop Until j UBound(a)i=i+1 Loop Until i=UBound(a)End Sub Private Sub Command3_Click()Text1.Text=Text2.Text=Command1.SetFocus End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 10 页 -