江苏省高等学校计算机等级考试二级Visual Basic 考试模拟试卷1(本试卷完成时间120 分钟)第一部分计算机基础知识1.下列不同进位制的四个数中,最小的数是_____(1)_____A.二进制数1100010B.十进制数65C.八进制数77D.十六进制数452.下列关于PC机主板的叙述正确的是______(2)_______。
A．不同厂家生产的主板，尺寸各不相同B．主板上安装有存储器芯片，如ROM芯片、CMOS芯片等C．CPU是直接固定在主板上的，不可更换D．主板上安装有电池，在计算机断开交流电后，临时给计算机提供电流，供计算机工作3.下面关于BIOS的一些叙述正确的是____(3)________。
A．BIOS是存放于ROM中的一组高级语言程序B．BIOS中含有系统工作时所需的全部驱动程序C．BIOS系统由加电自检程序、系统主引导记录的装入程序、CMOS设置程序、基本外围设备的驱动程序组成D．没有BIOS的PC机也可以正常启动工作4.计算机软件(简称软件)指的是能指挥计算机完成特定任务的、以电子格式存储的程序、数据和相关的文档。
在下列有关软件的叙述中,错误的是__(4)__。
A.软件的版权所有者不一定是软件作者B.自由软件指的是一种无版权的软件,允许修改其源代码C.用户购买一个软件后,就获得该软件版权D.共享软件是一种买前免费试用,具有版权的软件5. 以下关于操作系统中多任务处理的叙述错误的是_____(5)______。
A．将CPU时间划分成许多小片，轮流为多个程序服务，这些小片称为“时间片”B．由于CPU是计算机系统中最宝贵的硬件资源，为了提高CPU的利用率，一般采用多务处理C．正在CPU中运行的程序称为前台任务，处于等待状态的任务称为后台任务D．在单CPU环境下，多个程序在计算机中宏观上同时运行，微观上由CPU轮流执行6. 以下关于IP地址的叙述错误的是_____(6)_____。
A．正在上网( online)的每一台计算机都有一个IP地址B．现在广泛使用的IPv4协议规定IP地址使用32个二进位表示C．IPv4规定的IP地址快要用完了，取而代之的将是64位的IPv5D．IP地址是计算机的逻辑地址，每台计算机还有各自的物理地址7. 路由器用于连接异构的网络，它收到一个IP数据报后要进行许多操作，这些操作不包含_____(7)_____。
A．域名解析B．路由选择C．帧格式转换D．IP数据报的转发8. 通过有线电视接入因特网时需使用电缆调制解调(Cable MODEM)技术，以下叙述错误的是____(8)_____。
A．采用同轴电缆和光纤作为传输介质B．收看电视时不能上网C．能提供语音、数据、图像传输等多种业务D．同一连接段中多个用户的信号都在同一电缆上传输9. 至目前为止,已发布多种汉字信息的编码标准。
在下列叙述中,错误的是____(9)____。
A.无论采用那种编码标准(如GBK、UCS-4等),汉字的机内码都是采用16位二进制表示的B.中文版Windows98/2000操作系统都支持GB2312-80、GBK等多种汉字编码标准。
C.GB2312-80是我国颁布的第一个汉字信息编码的国家标准。
D.不同的汉字输入法,其可以输入的不同汉字个数可能有所不同。
10. 下列四种声音文件中,不可能用于保存歌曲的是___(10)___。
A．WAV B．MP3 C．MIDI D．WMA1.C2.B3.C4.C5.C6.C7.A8.B9.A 10.C第二部分Visual Basic 程序设计一、选择题（共10 分，每题2 分）1. 下列控件中，无法用于显示程序运行结果的是___1 ___ 。
A．TextBox B．ListBox C．PictureBox D．Timer2. 下列有关转换函数的说法中，正确的是___2 ___ 。
A．Int 和CInt 函数的区别仅在于返回结果的数据类型不同B．Int 和Fix 函数将非整数数据转换成整数，转换后的结果类型是LongC．在处理正数时，Int 函数和Fix 函数的返回结果是相同的D．在处理负数时，Int 函数和Fix 函数的返回结果是相同的3. 数学式对应的VB表达式是___3___ 。
A．Log(x) / Log(10) - Cos(30 * 3.14159 / 180) + Abs(x ^ 2 + Sqr(y)) + Exp(x)B．Log(x) / Log(10) - Cos (30) + Abs(x ^ 2 + Sqr(y)) + e ^ xC．Log(x) - Cos(30 * 3.14159 / 180) + Abs(x ^ 2 + Sqr(y)) + Exp(x)D．Log(x) - Cos(30) + Abs(x ^ 2 + Sqr(y)) + e ^ x4. 下列有关数组的说法中，错误的是___ 4 ___ 。
A．若模块中有“Option Base 1”语句，则该模块中的数组的维下界都为1B．定长字符串类型的数组也可以作为过程的形式参数C．只能在标准模块中用Public 语句定义全局数组D．若A 是固定大小数组，执行语句Erase A 后，数组A 的所有元素被初始化5. 下列关于过程参数的叙述中，正确的是___5 ___ 。
A．符号常数名可以出现在定义过程的形式参数表中B．过程调用时，与用ByRef 说明的形参结合的实在参数不可以是常数或表达式C．在自定义过程中，用ByVal 说明的形参值发生改变，不会影响与之结合的实参的值D．VB 对过程的形式参数的类型没有任何限制二、填空题（共20 分，每空2 分）1. 执行下面程序，单击命令按钮Command1，则窗体上显示的第一行内容是___ (1) ___ ，第二行内容是___ (2) ___ 。
Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Single, k As Integerj = 11For i = 2 To 10 Step 2.5j = j - 2.5If j = Int(j) Theni = i + j Mod 10Elsei = i + 1End Ifk = i + jNext iPrint iPrint kEnd Sub2. 执行下面程序，单击命令按钮执行下面程序，单击命令按钮Command1，则数组元素，则数组元素，则数组元素A(1, 2)的值是___ (3) ___ 、A(2, 1)的值是___ (4) ___ 、A(3, 3)的值是___ (5) ___ 。
Option ExplicitOption Base 1Private Sub Command1_Click()Dim A(3, 3) As Integer, K As IntegerDim i As Integer, j As Integeri = 2j = 1A(i, j) = 39For K = 38 To 31 Step -1If i - 1 = 0 And j - 1 > 0 Theni = 3: j = j - 1ElseIf i - 1 > 0 And j - 1 = 0 Theni = i - 1: j = 3ElseIf i - 1 = 0 And j - 1 = 0 Theni = 1: j = 2ElseIf A(i - 1, j - 1) <> 0 Thenj = j + 1Elsei = i - 1: j = j - 1End IfA(i, j) = KNext KFor i = 1 To 3For j = 1 To 3Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext iEnd Sub3. 执行下面程序，单击命令按钮执行下面程序，单击命令按钮Command1，则窗体上显示的第一行内容是___（6）___ ，最后一行内容是___（7）___ 。
Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, k As IntegerFor a = 2 To 3b = a + 1k = Fun(Fun(a, b), b)Print kNext aPrint bEnd SubPrivate Function Fun(a As Integer, b As Integer) As Integerb = a + ba = a + bFun = a + bEnd Function4. 执行下面程序，单击命令按钮Command1，则多行文本框Text1中显示的第一行内容是___（8）___ ，第二行内容是___（9）___ ，第三行内容是___（10）___ 。
Option ExplicitPrivate Sub Command1_Click()Dim s1 As String, s2 As String, data1 As String, data2 As StringDim i As Integerdata1 = "1011 1010 1110"data2 = "1010 1101 1010"For i = 1 To Len(data1) Step 5s1 = Mid(data1, i, 4)s2 = Mid(data2, i, 4)Text1.Text = Text1.Text & Subtract(s1, s2) & vbCrLfNext iEnd SubPrivate Function Subtract(s1 As String, s2 As String) As StringDim i As Integer, k As Integer, L As IntegerDim j As Integer, s As StringL = Len(s1)For i = 1 To LIf Mid(s1, i, 1) = "0" And Mid(s2, i, 1) = "0" ThenSubtract = Subtract & "0"ElseSubtract = Subtract & "1"End IfNext iEnd Function三、操作题（共50分）1. 完善程序。