1、二级 VISUAL+BASIC 笔试-268 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列关于过程及过程参数的叙述中，错误的是（分数：2.00）A.调用过程时可以用控件名称作为实际参数B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程处理的信息传回到调用它的程序中D.窗体(Form)可以作为过程的参数2.下列对队列的叙述中正确的是（分数：2.00）A.队列属于非线性表B.队列按“先进后出”原则组织数据C.队列在队尾删除数据D.队列按“先进先出”原则组织数据3.下列叙述中正确的是（分数：2.00）A.一个 S
2、ub 过程至少要有一个 Exit Sub 语句B.一个 Sub 过程必须有一个 End Sub 语句C.可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程D.调用一个 Function 过程可以获得多个返回值4.在窗体上有一个名为 Cd1 的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是（分数：2.00）A.Cd1.Action=2B.Cd1.Action=1C.Cd1.ShowSave=TureD.Cd1.ShowSave=05.下列叙述中正确的是（分数：2.00）A.软件测试的主要目的是发现程序中的错误B.软件测试的主要目的是确定程序
3、中错误的位置C.为了提高软件测试的效率，最好由程序编制者自己来完成软件测试的工作D.软件测试是证明软件没有错误6.在窗体上建立一个命令按钮数组，数组名为 CMD1。设窗体 Form1 标题为 MyForm1，双击控件数组中的第三个按钮，打开代码编辑器，编写如下代码：Private Sub CMD1_Click(Index As Integer)Form1.Caption=“MyForm2“End Sub运行时，单击按钮数组中的第一个按钮，则（分数：2.00）A.窗体保持原标题 MyForm1 不变B.窗体的标题变为 MyForm2C.窗体的标题变为 CMD1D.窗体的标题变为 Form17.下
4、列叙述中错误的是（分数：2.00）A.在数据库系统中，数据的物理结构必须与逻辑结构一致B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要操作系统的支持8.在 Visual Basic 中，可以同时删除字符串前导和尾部空格的函数是（分数：2.00）A.Trim $B.LTrim $C.RTrimD.SubString9.在窗体上画一个名称为 Command1 的命令按钮，并编写以下程序：Private Sub Command1_Click()Print fun(“ABCDEFG“)End SubFunction fun(st
5、As String) As Stringstlen=Len(st)temp=“Fox k=1 to stlen/2temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)Next kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是（分数：2.00）A.ABCDEFGB.AGBFCEC.GFEDCBAD.AGBFCED10.语句 Open App.path+“/test.txt“ For Output As #1 表示（分数：2.00）A.以随机读写的方式打开随机文件B.以追加方式打开顺序文件C.以写的方式打开顺序文件D.以写的方式打开
6、随机文件11.为了使列表框中的项目呈多列显示，需要设置的属性为（分数：2.00）A.ColumnsB.StyleC.ListD.MultiSelect12.下列叙述中正确的是（分数：2.00）A.算法的效率只与问题的规模有关，而与数据的存储结构无关B.算法的时间复杂度是指执行算法所需要的计算工作量C.数据的逻辑结构与存储结构是一一对应的D.算法的时间复杂度与空间复杂度一定相关13.窗体上有一个名称为 Picture1 的图片框控件和一个名称为 Label1 的标签控件，如图 5 所示。现有如下程序：（分数：2.00）A.B.C.D.14.某人设计了下面的函数 fun，功能是返回参数 a 中数值
7、的位数：Function fun(a As Integer) As IntegerDim n%n=1While a/10=0n=n+1a=a/10Wendfun=nEnd Function在调用该函数时发现返回的结果不正确，函数需要修改。下面的修改方案中正确的是（分数：2.00）A.把语句 n=1 改为 n=0B.把循环条件 a/10=0 改为 a/100C.把语句 a=a/10 改为 a=a Mod 10D.把语句 fun=n 改为 fun=a15.执行以下程序段后，变量 c$的值为a$=“Visual Basic Programming“b$=“Quick“c$=b$ Mid $(a, _
8、, 2*i-1)Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是5456345672345678123456789请填空。（分数：2.00）填空项 1:_42.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Left(UCase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(Ke
9、yAscii)End Sub程序运行后，在文本框中输入 abcdefg，单击命令按钮，则文本框中显示的内容是_。（分数：2.00）填空项 1:_43.在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load()Open “d:/temp/dat.txt“ For Output As #1Text1.Text=“End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If (8) =13 ThenIf UCase(Text1.Text)= (9) ThenClose #1EndElseWrite #
10、1, (10) Text1.Text=“End IfEnd IfEnd Sub以上程序的功能是：在 D 盘的 temp 目录下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键(回车符的 ASCII 码是 13)都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容；如果输入 END，则结束程序。请填空。（分数：6.00）填空项 1:_44.以下程序的功能是：从键盘任意输入正整数 n，并找出大于 n 的第一个素数。Private Sub Form_Click()Dim n As Long, j As Long, m As LongDim flag As Boo
11、leann=InputBox(“请输入正整数“)Do While Not flag(11) flag=Truei=2Do While in And (12) If n Mod i=0 Then(13) End Ifi=i+1LoopLoopPrint nEnd Sub（分数：6.00）填空项 1:_45.以下函数的功能是：将一个(0255)之间十进制数转换为二进制数，例如：将十进制数 7 转换为二进制数 00000111，请填空。Private Function Dtob(decade As String) As StringDim binary As Stringbinary=“n=Val(
12、decade)For i=1 To 8binary= (14) n=n/2Next iDtob= (15) End Function（分数：4.00）填空项 1:_二级 VISUAL+BASIC 笔试-268 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列关于过程及过程参数的叙述中，错误的是（分数：2.00）A.调用过程时可以用控件名称作为实际参数B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程处理的信息传回到调用它的程序中 D.窗体(Form)可以作为过程的参数解析：解析 采用传地址方式传递参数时，子过程也
13、可以将处理的信息通过参数传回到调用的程序里。2.下列对队列的叙述中正确的是（分数：2.00）A.队列属于非线性表B.队列按“先进后出”原则组织数据C.队列在队尾删除数据D.队列按“先进先出”原则组织数据 解析：解析 队列是一种操作受限的线性表。它只允许在线性表的一端进行插入操作，在另一端进行删除操作。允许插入的一端称为队尾(rear)，允许删除的一端称为队首(front)。队列具有先进先出的特点，它是按“先进先出”的原则组织数据的，故本题的答案为 D。3.下列叙述中正确的是（分数：2.00）A.一个 Sub 过程至少要有一个 Exit Sub 语句B.一个 Sub 过程必须有一个 End Su
14、b 语句 C.可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程D.调用一个 Function 过程可以获得多个返回值解析：解析 为了能正确运行，每个 sub 过程必须有一个 End Sub 子旬。当程序执行到 End Sub 时，将退出该过程。此外，在过程体内可以有一个或多个 Exit Sub 语句从过程中退出。在 Sub 过程内，不能定义 Sub 过程或 Function 过程。Function 过程只能返回一个值。4.在窗体上有一个名为 Cd1 的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是（分数：2.00）A.Cd1.Actio
15、n=2 B.Cd1.Action=1C.Cd1.ShowSave=TureD.Cd1.ShowSave=0解析：解析 可以通过调用通用对话框的方法或为通用对话框设置 Action 属性来打开一个通用对话框，显示“保存文件”对话框的 Action 属性值为 2，所以本题的答案为 A。由于 ShowSave 是通用对话框对象的方法，所以选项 C、D 有语法错误。也可以执行 Cd1.ShowSave 语句来显示“保存文件”对话框。5.下列叙述中正确的是（分数：2.00）A.软件测试的主要目的是发现程序中的错误 B.软件测试的主要目的是确定程序中错误的位置C.为了提高软件测试的效率，最好由程序编制者自
16、己来完成软件测试的工作D.软件测试是证明软件没有错误解析：解析 软件测试是为了发现错误而执行程序的过程，且为了达到好的测试效果，应该由独立的第三方来构造测试，程序员应尽量避免检查自己的程序。6.在窗体上建立一个命令按钮数组，数组名为 CMD1。设窗体 Form1 标题为 MyForm1，双击控件数组中的第三个按钮，打开代码编辑器，编写如下代码：Private Sub CMD1_Click(Index As Integer)Form1.Caption=“MyForm2“End Sub运行时，单击按钮数组中的第一个按钮，则（分数：2.00）A.窗体保持原标题 MyForm1 不变B.窗体的标题变为
17、 MyForm2 C.窗体的标题变为 CMD1D.窗体的标题变为 Form1解析：解析 同一个控件数组的所有控件共享相同的事件过程，所以虽然编写程序时是双击第三个命令按钮书写的语句，但运行时单击第一个命令按钮时同样会执行这段程序。所以窗体的标题为变为MyForm2。7.下列叙述中错误的是（分数：2.00）A.在数据库系统中，数据的物理结构必须与逻辑结构一致 B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要操作系统的支持解析：解析 数据库设计(Database Design)是指根据用户的需求，在某一具体的数据库管理系统上设
18、计数据库的结构并建立数据库的过程；数据库技术的根本目标是要解决数据共享的问题；数据库需要操作系统的支持；数据的物理结构又称为数据的存储结构，就是数据元素在计算机存储器中的表示及其配置。数据的逻辑结构是指数据元素之间的逻辑关系，它是数据在用户或程序员面前表现的方式。在数据库系统中，数据的物理结构不一定与逻辑结构一致。8.在 Visual Basic 中，可以同时删除字符串前导和尾部空格的函数是（分数：2.00）A.Trim $ B.LTrim $C.RTrimD.SubString解析：解析 Trim 函数同时删除字符串前导和尾部空格，LTrim 删除前导空格，Rtrim 删除尾部空格。9.在窗
19、体上画一个名称为 Command1 的命令按钮，并编写以下程序：Private Sub Command1_Click()Print fun(“ABCDEFG“)End SubFunction fun(st As String) As Stringstlen=Len(st)temp=“Fox k=1 to stlen/2temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)Next kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是（分数：2.00）A.ABCDEFGB.AGBFCE C.GFEDCBAD.AGBFCED解析：解析 s
20、tlen=7，stlen/2=3，一次循环，temp=AG；二次循环，temp=AGBF；三次循环temp=AGBFCE，窗体显示 AGBFCE。故选项 B 正确。10.语句 Open App.path+“/test.txt“ For Output As #1 表示（分数：2.00）A.以随机读写的方式打开随机文件B.以追加方式打开顺序文件C.以写的方式打开顺序文件 D.以写的方式打开随机文件解析：解析 打开顺序文件可有 Output、Input 和 Append 3 种方式，其中 Output 是写的方式，Input是读的方式，Append 是追加方式。打开随机文件的方式为 Random。1
21、1.为了使列表框中的项目呈多列显示，需要设置的属性为（分数：2.00）A.Columns B.StyleC.ListD.MultiSelect解析：解析 Columns 属性用来确定列表框的列数。当该属性设置为 0(默认值)时，所有的项目呈单列显示。如果该属性设置为 1，则列表框呈多行多列显示；如果大于 1 且小于列表框中的项目数，则列表框呈单行多列。12.下列叙述中正确的是（分数：2.00）A.算法的效率只与问题的规模有关，而与数据的存储结构无关B.算法的时间复杂度是指执行算法所需要的计算工作量 C.数据的逻辑结构与存储结构是一一对应的D.算法的时间复杂度与空间复杂度一定相关解析：解析 根据
22、时间复杂度和空间复杂度的定义可知，算法的时间复杂度与空间复杂度并不相关。数据的逻辑结构就是数据元素之间的逻辑关系，它是从逻辑上描述数据元素之间的关系的，是独立于计算机的；数据的存储结构是研究数据元素和数据元素之间的关系如何在计算机中表示，它们并非一一对应。算法的执行效率不仅与问题的规模有关，还与数据的存储结构有关。13.窗体上有一个名称为 Picture1 的图片框控件和一个名称为 Label1 的标签控件，如图 5 所示。现有如下程序：（分数：2.00）A. B.C.D.解析：解析 Control 参数为控件变量，题目中 display 过程根据传递的不同参数决定使用不同的属性，没有错误。1
23、4.某人设计了下面的函数 fun，功能是返回参数 a 中数值的位数：Function fun(a As Integer) As IntegerDim n%n=1While a/10=0n=n+1a=a/10Wendfun=nEnd Function在调用该函数时发现返回的结果不正确，函数需要修改。下面的修改方案中正确的是（分数：2.00）A.把语句 n=1 改为 n=0B.把循环条件 a/10=0 改为 a/100 C.把语句 a=a/10 改为 a=a Mod 10D.把语句 fun=n 改为 fun=a解析：解析 原程序中，如果给参数 a 的值是一个正数，则 a/10 会始终大于或等于 0
24、，造成 While 语句死循环，所以循环条件不正确，可将 a/10=0 改为 a/100，故答案为 B。15.执行以下程序段后，变量 c$的值为a$=“Visual Basic Programming“b$=“Quick“c$=b$ Mid $(a, _, 2*i-1)Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是5456345672345678123456789请填空。（分数：2.00）填空项 1:_ （正确答案：6-i）解析：解析 Mid(字符串,p,n)的功能是从位置 p 开始取字符串的 n 个字符，所以根据输出结果的样式可确定本题的答案为“6-i”。42.在窗体
25、上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Left(UCase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，在文本框中输入 abcdefg，单击命令按钮，则文本框中显示的内容是_。（分数：2.00）填空项 1:_ （正确答案：“ABCD/）解析：解析 本题
26、考查的知识点是 KeyPress 事件的 KeyAscii 参数，KeyrAscii 参数代表的是键盘按下时字符所对应的 ASCII 码，因此在文本框中输入 abcdefg 之后变量 SaveAll 的值为“abcdefg“，UCase()函数把字符串变量 SaveAll 中的字母全部变为大写形式，Left()函数取出字符串 SaveAll 中前 4 个字符，所以本题的正确答案为”ABCD”。43.在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load()Open “d:/temp/dat.txt“ For Output As #1Text1.T
27、ext=“End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If (8) =13 ThenIf UCase(Text1.Text)= (9) ThenClose #1EndElseWrite #1, (10) Text1.Text=“End IfEnd IfEnd Sub以上程序的功能是：在 D 盘的 temp 目录下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键(回车符的 ASCII 码是 13)都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容；如果输入 END，则结束程序。请填空。（分数：
28、6.00）填空项 1:_ （正确答案：KeyAscii (9)“END“ (10)Text1.text）解析：解析 题中第一个 Sub 过程在 D 盘的 temp 目录下建立一个名为 dat.txt 的文件。在文本框中输入字符，首先判断是否按下同车键(回车符的 ASCII 码是 13)，这需要将所按键的参数 KeyAscii 与 13 做相等比较，所以在第一个空中填写 KeyAscii；在按回车键之后，再判断文本框中的输入的内容是否为字符串“END“，所以在第二个空中用 UCase(Text1.Text)与“END“做相等比较；如果输入的字符串不是“END“，则将当前文本框中的内容写入文件 d
29、at.txt，在第三个空中填写 Text1.text。44.以下程序的功能是：从键盘任意输入正整数 n，并找出大于 n 的第一个素数。Private Sub Form_Click()Dim n As Long, j As Long, m As LongDim flag As Booleann=InputBox(“请输入正整数“)Do While Not flag(11) flag=Truei=2Do While in And (12) If n Mod i=0 Then(13) End Ifi=i+1LoopLoopPrint nEnd Sub（分数：6.00）填空项 1:_ （正确答案：(1
30、1)n=n+1 (12)flag 或 flag=true (13)flag=false）解析：解析 要找到大于 n 的第一个素数，只需要依次对 n+1、n+2、n+3进行判断，第一个素数就是要找的数，所以11填 n=n+1。判断一个数是否为素数时，首先设置一个标志变量，如本题的 flag，先给flag 一个值，该值代表 n 是素数，再用 2n-1 之间的数去与 n 相除，若某数能整除 n，则说明 n 不是素数，这时给标志变量另外一个不同于初始状态的值，代表 n 不是素数，同时停止判断后续的数字。本题中循环的条件是 in 并且还没有找到某个数 i 能整除 n，即 flag 还为真值，故12空填
31、Flag 或Flag=True。语句 If n Mod i=0 Then 说明 n 能被 i 整除，所以13空应给 flag 一个不同于初始状态的值，故13空填 flag=false。45.以下函数的功能是：将一个(0255)之间十进制数转换为二进制数，例如：将十进制数 7 转换为二进制数 00000111，请填空。Private Function Dtob(decade As String) As StringDim binary As Stringbinary=“n=Val(decade)For i=1 To 8binary= (14) n=n/2Next iDtob= (15) End Function（分数：4.00）填空项 1:_ （正确答案：(14)n Mod 2 & binary (15)binary）解析：解析 十进制转换为二进制的基本方法是将十进制数与 2 相除取余数，并把这些余数倒序连接起来。为了做到倒序连接需要将后计算的余数连接在原有值的前面，所以14空填 n Mod2 & binary，其中n Mod 2 为新计算的余数，binary 是已连接好的余数，其初始值为空串。计算结束后需要将转换结果赋值给函数名作为函数的返回值，故15空应填 binary。
