江苏省计算机二VB全真模拟八套

1、江苏省高等学校非计算机专业学生计算机基础及应用能力等级考试试卷二级Visual Basic全真模拟试卷一（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）说明：1本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。2选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。3填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。4请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是

2、否填写正确。 第一部分计算机基础知识1在下列关于信息系统的叙述中，错误的是 1 。A广播/电视是一种双向的、点到多点的信息交互系统B网络聊天是一种双向的、以信息交互为主要目的的系统C电话是一种双向的、点对点的、以信息交互为主要目的的系统DInternet是一种跨越全球的多功能信息系统2下面关于集成电路（IC）的叙述中正确的是 2 。A集成电路是20世纪60年代出现的B按用途可分为通用和专用两大类，微处理器和存储器芯片都属于专用集成电路C现代微电子技术已经用砷化镓取代了硅D集成电路的工作速度与组成逻辑门电路的晶体管尺寸有密切关系3交换技术是指使用交换设备实现多对终端设备之间的互连，以满足多用户通

3、信的需要，下面对于交换技术的说法中，正确的是 3 。A交换技术只有电路交换和分组交换两种类型B分组交换方式的线路利用率很低C电路交换采用存储转发方式传输数据D目前广域网中普遍采用的交换技术是分组交换4计算机中的数值信息分成整数和实数（浮点数）。实数之所以能表示很大或很小的数，是由于使用了4。A阶码 B反码 C补码 DBCD码5下列存储器中，速度最快的是5。A内存B寄存器B外存D高速缓存6下列关于USB接口的叙述中，错误的是6。A利用“USB集线器”，一个USB接口能连接多个设备BUSB的中文含义是通用串行总线C鼠标器这样的慢速设备不能使用USB接口DUSB接口有两种规格，2.0版的数据传输速率

4、要比1.1版快得多7数码相机的镜头和快门与传统相机基本相同，不同之处是它不使用光敏卤化银胶片成像，而是将影像聚焦在成像芯片（7或CMOS）上，并由成像芯片转换成电信号，再经模数转换变成数字图像。ABIOSBNBCCCCDDABC 8下列关于打印机的叙述，错误的是8。A喷墨打印机属于非击打式打印机，它的优点是能输出彩色图像、经济、低噪音、打印效果好等B目前激光打印机分为黑白和彩色两种C针式打印机属于击打式打印机，由于打印质量不高，噪音大，现已逐渐退出市场，但其独特的平推式进纸技术，在打印存折和票据方面具有不可替代的优势D打印精度也就是打印机的分辨率，它用CPS来表示9下面几种说法中正确的是9。A

5、CD-RW为可多次读但只可写1次的光盘BCD-R和CD-ROM类似，都只能读不能写CCD盘记录数据的原理为：在盘上压制凹坑，凹坑边缘表“0”，凹坑和非凹坑的平坦部分表示“1”DDVD采用了更有效的纠错编码和信号调制方式，比CD可靠性更高10面向电子出版的最流行的软件是10公司的Acrobat，它使用PDF格式将文字、字型、格式、颜色、图形、图像、超文本连接、声音和视频等信息都封装在一个文件中，不仅适合于网络和电子出版，也适合于印刷出版，实现了纸张印刷和网络出版的统一。AMicrosoftBMacromediaCAdobeDIBM11下列关于操作系统任务管理的说法，错误的是_11_。AWindo

6、ws操作系统支持多任务处理B分时是指将CPU时间划分成时间片，轮流为多个程序服务C并行处理可以让多个处理器同时工作，提高计算机系统的效率D分时处理要求计算机必须配有多个CPU12下面有关PCI总线的叙述中，错误的是12。 APCI总线是一种I/O总线BPCI总线的速度比ISA总线快CPCI总线的宽度为32位，不能扩充到64位DPCI总线能与其他I/O总线共存于PC系统中13程序中的控制成分是提供一个基本框架，从而将数据和对数据的运算组合成程序。这个框架都可以用三种基本控制结构来描述，三种结构不包括13。A多分支结构 B顺序结构C重复结构 D选择结构14Internet的三项主要服务项目是英文缩

7、写是14。AE-mail, FTP, WWWBWeb, LAN, HTMLCISP, HUB, BBSDTCP/IP, FTP, PPP/SLIP15下面对于广域网接入技术说法中，错误的是_15_。电话拨号接入一定要“猫”才行FTTxETTH上网速度最快 目前ADSL 是接入因特网的主要方式之一Cable MODEM上网不仅速度快而且数据传输速率稳定16 16把相距遥远的许多局域网和计算机用户互相连接在一起，它的作用范围通常可以从几十公里到几千公里，甚至更大的范围，也称为远程网。A公司网BWANCLAND小型网17数据库管理系统提供给用户的接口是17。A宿主语言 B过程化语言C数据库语言 D面

8、向对象语言18 是“江苏省高等学校计算机等级考试中心”的网址。其中，“ http ”是指 _18_。 A超文本传输协议 B文件传输协议 C计算机主机域名 DTCP/IP 协议 19信息系统是多种多样的，从信息处理的深度进行划分，决策支持系统属于19。 A业务信息处理系统 B信息检索系统C信息分析系统 D专家系统20下面对Microsfot Excel（97及以后版本）的说法中，错误的是20。AExcel的单元格中可以是文字、数字或公式等B当打开一个Excel工作簿时，只是包含有数据的工作表被打开CExcel工作表最多有65536行DExcel工作表可以保存为文本文件第二部分Visual Bas

9、ic程序设计一、选择题（用答题卡答题，答案依次填在2130答题号内）21x，y是整数型变量，z产生一个范围在y，x之间的随机整数的语句是21。Az=Int(Rnd*(y-x+1)+xBz=Int(Rnd*y) + xCz=Int(Rnd*x)+yDz=Int(Rnd*(y-x) + x22默认Value属性的控件是22。A单选框B文本框C标签框D列表框23在图1中，要在窗体Form1上部有“程序示例”字样，窗体属性应设置为23。图1AForm1.Name=程序示例BForm1.Enabled =程序示例CForm1.Caption=程序示例DForm1.Show=程序示例24设整型变量a、b的

10、当前取值分别为200与20，以下赋值与句中不能正确执行的是24。A. Text1 = a / b * aB. Text1 = a * a / bC. Text1 = 200 * a / bD. Text1 = a & b & a25在数据文件中，Reset语句的功能是25。A重新设置文件的文件号B关闭所有用Open语句打开的文件C更改将要打开文件的类型D文件指针复位26运行下列程序：Private Sub form_Click()x = 8: y = 2Call fun1(x), y)Print x, yEnd SubPrivate Sub fun1(x, y)s = xx = s / yy

11、= s Mod yEnd Sub单击窗体后，则在窗体上显示的结果是26。A42B82C80D2427运行下列程序：Private Sub Form_Click()Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + x If x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是27。A1020B30 60C1030D20 6028运行下列程序：Private Sub Form_Click()For i = 1 To 20If fun1(i) Thens = s + 1E

12、nd IfNext iPrint sEnd SubPrivate Function fun1(y) As BooleanIf y Mod 2 0 Thenfun1 = FalseElsefun1 = TrueEnd IfEnd Function单击窗体后，则在窗体上显示的结果是28。A110B10C0D2029运行下列程序：Private Sub Form_Click()Dim a As Integera = 1For i = 1 To 5Call fun1(a)Next iPrint aEnd SubPrivate Sub fun1(x)y = 2Dox = x + yLoop Until

13、x 10End Sub单击窗体后，则在窗体上显示的结果是29。A5B12345C19D7 30运行下列程序：Dim bPrivate Sub Form_Click()a = 1: b = 1Call fun1(a)Print X = ; a; ,Y = ; bEnd SubPrivate Sub fun1(a)b = 2 * aa = 3 * bEnd Sub单击窗体后，则在窗体上显示的结果是30。AX = 1，Y = 1BX = 2，Y = 6CX = 6，Y = 2DX = 6，Y = 1二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）1VB6.0的

14、赋值语句为变量或属性赋值，为对象引用赋值必须使用（1）。2设Label控件的边框样式，可用的属性是（2）。3标签控件中，要更改文字对齐方式的属性项是（3）。4若要求从文本框中输入密码时在文本框中只显示“*”号，则应当在此文本框的属性窗口中设置（4）属性值为“*”。5运行下列程序：Private Sub Form_Click()Dim s1 As String, s2 As Stringx1 = 1: x2 = 2x3 = 3: x4 = 4s1 = x1 + x3s2 = x2 + x4Debug.Print s1; Val(s2)End Sub单击窗体后，则在立即窗口上输出的结果是（5）。6

15、下列程序运行时，单击Command1命令按钮，在窗体上打印的结果是（6）。Private Sub Command1_Click()Dim a As Integer, i As Integer, c As Integera = 1c = 38For i = 1 To 2Select Case c 10Case 0c = a * 10 + cCase 1 To 9c = a * 100 + cCase 10 To 99c = a * 1000 + cEnd SelectNext iPrint cEnd Sub7下列程序运行时，单击Command1命令按钮，在窗体上打印的结果是（7）。Private

16、 Sub Command1_Click()Dim a As Integer, b As Integer, r As Integera = 45: b = 18Print fun1(a, b)End SubPrivate Function fun1(x As Integer, y As Integer) As IntegerDim r As Integerr = x Mod yDo While r 0x = y: y = rr = x Mod yLoopfun1 = yEnd Function8下列程序运行时，单击Command1命令按钮，在窗体上打印结果的第一行、第二行和第三行分别是（8）、（

17、9）和（10）。Private Sub Command1_Click()a = 2b = 3Doa = a + bPrint ab = b + 1If a = 10 ThenExit DoEnd IfLoop While b = 10End Sub9执行下面的程序后，单击按钮 Command1后，在窗体上显示的结果为（11）。当把子函数中A语句和B语句的位置交换以后，则在窗体上显示的结果又为（12）。Option ExplicitDim t As IntegerPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = 1: y

18、= 1For t = 1 To 5If t Mod 2 = 0 Theny = fun(t, x) + xElsex = fun(t, y) + yEnd IfNext tDebug.Print t; x; yEnd SubPrivate Function fun(n As Integer, m As Integer) As Integerm = n - 1 + tA语句n = m + n tB语句fun = m * nEnd Function10下列程序的功能是：由系统产生10个1099之间的无序数，在图片框Picture1中显示出来。对其去掉一个最大数和最小数，然后求其平均值，在文本框中T

19、ext1中显示出来。运行后如图2所示，给定的程序不完整，将程序补充完整。Option Base 1Private Sub Form_Click()Dim i As Integer, Max As Integer, Min As IntegerDim a(10) As Integer, sum As IntegerRandomizeFor i = 1 To UBound(a)a(i) =（13）Picture1.Print a(i);Next iMax = a(1): Min = a(1): sum = a(1)For i = 2 To UBound(a)If Max a(i) Then Min

20、 = a(i)sum = sum + a(i)Next isum = sum - Max - MinText1.Text = 去掉最大数和最小数后的平均值= & （14）End Sub图211下列程序的功能是：用对话框分别输入三个正整数后，在图片框Pic1中显示三个由大到小排序的数据。给定的程序不完整，将程序补充完整。Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = InputBox(请输入一个正整数a)b = InputBox(请输入一个正整数b)c = InputBox(请输入一个正整数c)If（

21、15）Thent = aa = bb = tEnd IfIf（16）Thent = bb = cc = tEnd IfIf（17）Thent = aa = bb = tEnd IfPic1.Print a; b; cEnd Sub12在下列程序中，数组s为某门课程的分数，程序功能是统计各个分数段的人数，统计后结果如图3所示。给定的程序不完整，将程序补充完整。图3Option Base 1Private Sub Command1_Click()Dim age As IntegerDim a(10) As IntegerDim n, ss = Array(75, 86, 63, 87, 94, 5

22、1, 72, 93, 82, 70, 45, 88)For i = 1 To UBound(s)a(s(i) 10) =（18） Next iFor i = UBound(a) To 1 Step -1List1.AddItem Str(i - 1) * 10) & & Str(i * 10) & 分的人数为 & （19）Next iEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub13下列程序执行结束后，a(1，1)的值是（20），a(2，2)的值是（21），a(3，3)的值是（22）。Option Base 1Private Sub Fo

23、rm_Click()Dim i As Integer, j As IntegerDim a() As Integer, n As Integern = 3ReDim a(n, n)For i = 1 To nFor j = 1 To na(i, j) = i + jNext jNext iCall Sub1(a, n)End SubPrivate Sub Sub1(y() As Integer, n As Integer)Dim i As Integer, j As IntegerDim t As IntegerFor i = 1 To nFor j = 1 To nt = y(i, j)y(

24、i, j) = y(n + 1 - j, n + 1 - j)y(n + 1 - j, n + 1 - j) = tNext jNext iEnd Sub14下列程序的功能是，随机产生66个具有两位数的矩阵，并找出每行最大数，如图4所示。给定的程序不完整，将程序补充完整。图4Private Sub Command1_Click()Dim a(6, 6) As IntegerRandomizeFor i = 1 To 6For j = 1 To 6a(i, j) = Int(90 * Rnd) + 10Next jNext iFor i = 1 To 6Max =（23）pic1.Print M

25、ax;For j = 2 To 6pic1.Print a(i, j);If Max 0End Sub16下列程序的功能是：找出2100之间所有的既是素数，又是降序数，并在列表框List1中输出，所谓降序数是指低位数字小于高位数字的数。例如31、41均是降序数，17不是降序数，程序执行后如图6所示。给定的程序不完整，将程序补充完整。图6Private Sub Form_Click()Dim n As Long, m As Long, k As IntegerFor n = 2 To 100If fun1(n) = True Thenflg = 1（28）a = m Mod 10Do While

26、 m 0m = m 10b = m Mod 10If b a And m 0 Then flg = 0: （29）a = bLoopIf flg = 1 Then List1.AddItem nEnd IfNext nEnd SubPrivate Function fun1(n As Long) As BooleanDim m As IntegerFor m = 2 To Sqr(n)If n Mod m = 0 Then Exit FunctionNext m（30）End Function二级Visual Basic全真模拟试卷一参考答案一、选择题：1A2D3D4A5B6C7C8D9D10

27、C11D12C13A14A15D16B17C18A19C20B21A22A23C24B25B26C27B28B29C30C二、填空题：（1）Set语句（2）Borderstyle（3）Alignment（4）passwordchar（5）13 24（6）1138（7）9（8）5 （9）9 （10）14（11）8 7 56（12）10 170 17（13）Int(Rnd*90)+10（14）Str(sum/8)（15）ab（16）bc（17）a= Form1.Width Then Frame1.Left = 0Frame1.Move Frame1.Left + 50End Sub运行后，窗体中的

28、现象是23。A仅框架框移动B框架框携带复选按钮和命令按钮同时移动C框架框携带复选按钮同时移动D框架框携带命令按钮同时移动24Loc函数作用是，返回一个24。ALong型数据，在已打开的文件中指定当前读写位置BLong型数据，计算其文件长度CInteger型数据，表示文件号的范围DLong型数据，表示用Open语句打开的文件的大小25文件操作的一般顺序是25。A操作关闭文件B打开文件操作关闭文件C打开文件操作D打开文件关闭文件操作26运行下列程序：Private Sub Form_Click()For i = 0 To 2Print Tab(4 - i); String(i * 2 + 1, A

29、)Next iPrintEnd Sub单击窗体后，则在窗体上显示的结果是26。AAAABAAA AAAAAA AAA AAACADAAAAAAAAA AAAAA AAA27运行下列程序：Private Sub form_Click()x = InputBox(请输入一个数：)Select Case xCase Is 0: y = x + 1: x = y + 1Case Is = 0: y = x + 2: x = y + 2Case Else: y = x + 3: x = y + 3End SelectPrint x; yEnd Sub从键盘输入1，输出的结果是27。A32B23C22D1

30、428在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件data.txt，数据文件的内容是abc 10 20 30efg 40 50 60若运行程序，要在文本框中显示的内容是28。Private Sub Form_Click()Open d:data.txt For Input As #10Do Until EOF(10)Line Input #10, linesText1.Text = Text1.Text + Mid(lines, 5, 2)LoopClose #10End SubAabc B1040CefgD10 2029运行下列程序：Private Sub form_Clic

31、k()Dim xx = 0Do While x 65n = String(3, UCase(s)Case Is = 65n = String(3, LCase(s)Case Elsen = sEnd SelectPrint nEnd Sub从键盘输入A，输出的结果是30。AaaaBAAAC65Da二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）1由Visual Basic系统中，引发事件的对象叫做（1）。2在VB6.0中，CInt(-3.4)的函数值是（2）。3Stretch的属性只使用于（3）控件。4在用Open语句打开文件时，设定为二进制访问模式是（

32、4）。5指示复选框处于选定、未选定或禁止状态(暗淡的)中的属性是（5）。6下列程序运行时，单击鼠标的右键时，窗体上打印出的数值是（6）。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ClsPrint ButtonEnd Sub7下列程序运行后，输出的图形是一个（7）。Private Sub Form_Click()Dim Cx, CyCx = ScaleWidth / 2Cy = ScaleHeight / 2Line (Cx, 0)-(Cx, ScaleHeig

33、ht)Line (0, Cy)-(ScaleWidth, Cy)End Sub8运行下列程序,单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是（8）和（9）。Private Sub Command1_Click()t = 1: x = 2: y = 3: z = 4If t 0 Or t = x And x y Or y z Thent = fun1(t, z)Print tElset = fun1(x, y)Print tEnd IfPrint xPrint yEnd SubFunction fun1(ByVal x As Integer, ByVal y As In

34、teger) As IntegerDo While y 0t = x yx = yy = tLoopfun1 = xEnd Function9当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是（10）。Private Sub Form_Click()Dim x As Integer, y As Integerx = Val(InputBox(输入整数72)y = Val(InputBox(输入整数24)z = fun1(x, y)MsgBox Str(z)End SubPrivate Function fun1(ByVal a As Integer, ByVal b As I

35、nteger) As IntegerDor = a Mod ba = bb = rLoop Until r = 0fun1 = aEnd Function10运行下列程序，单击窗体后，则在窗体上显示第一行和第二行的结果分别是（11）和（12）。Private Sub Form_Click()x = 3: y = 7: z = 2: t = 5Doy = y + xx = x + yCall sub1(x, y, z, t)Print x; z; tLoop While x 1 Thent = x(1)x(1) = x(n - 1)x(n - 1) = tCall sub1(x, n - 1)End