1、二级 VISUAL+BASIC 笔试 48 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.算法分析的目的是（分数：2.00）A.找出数据结构的合理性B.找出算法中输入和输出之间的关系C.分析算法的易懂性和可靠性D.分析算法的效率以求改进2.以下用户自定义函数 Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命
2、令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4：m=1 P=Func(k，m) Print p End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.00）A.8B.9C.10D.113.若要求从文本框中输入密码时在文本框中只显示“*”号，则应当在此文本框的属性窗口中设置（分数：2.00）A.Text 属性值为。B.Caption 属性值为。C.password 属性值为空D.Passwordchar 属性值为*4.下列程序运行时输出的结果是 Opt
3、ion Base 1 Private Sub Form_Click() Dim x (10)As Integer，y(5)As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub（分数：2.00）A.3 7 11 45 19B.19 15 11 7 3C.1 3 5 7 9D.不确定的值5.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程。 Private Sub
4、 Form_Load() List1.AddItem “Item 1“ List1.AddItem “Item 2“ List1.AddItem “Item 3“ End Sub Private Sub Command1_Click() List1.List(List1.Listcount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA“添加到列表框中，但位置不能确定B.把字符串“AAAA“添加到列表框的最后(即“Item 3“的后面)C.把列表框中原有的最后一项改为“AAAA“D.把字符串“AAAA“插入到列表框的最前面(即“Ite
5、m 1“的前面)6.下列程序执行后，变量 a 的值为 Dim a，b，C，d as single a=100：b=20：c=1000 if ba Then d=a:a=b：b=d End if if c a Then d=b：b=c：c=d End if（分数：2.00）A.0B.1000C.20D.1007.下列各选项说法错误的一项是（分数：2.00）A.文件对话框可分为两种，即打开(Ope 文件对话框和保存(Save A 文件对话框B.通用对话框的 Name 属性的默认值为 CommonDialogX，此外，每种对话框都有自己的默认标题C.打开文件对话框可以让用户指定一个文件，由程序使用；
6、而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D.DefaultEXT 属性和 DialogTitle 属性都是打开对话框的属性，但非保存对话框的属性8.有如下一个函数过程： Function Fun(a As Integer) Static c b=0：b=b+1：c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a)； Next End Sub 运行该程序，单击命令按钮，输出结果是
7、（分数：2.00）A.4 4 4B.4 5 6C.6 7 8D.4 7 99.下列数据模型中，具有坚实理论基础的是（分数：2.00）A.层次模型B.网状模型C.关系模型D.以上 3 个都是10.软件开发离不开系统环境资源的支持，其中必要的测试数据属于（分数：2.00）A.硬件资源B.通信资源C.支持软件D.辅助资源11.如果在程序中要将 c 定义为静态变量，且为整型数，则应使用的语句是（分数：2.00）A.Redim a As IntegerB.Static a As IntegerC.Publica As IntegerD.Dim a As Integer12.当把框架的什么属性设置为 Fa
8、lse 时，其标题会变灰，框架中所有的对象均被屏蔽（分数：2.00）A.NameB.EnabledC.CaptionD.Visible13.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Private Sub Command1_Click( ) Dim a(5,5) For i=1 To 3 For j=1 To 4 a(i,j)=i*j Next Next For n=1 To2 For m = 1 To3 Print a(m,n); Next Next End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.2 4 6 1 2 3B
9、.1 2 3 2 4 6C.1 2 3 4 5 6D.6 5 4 3 2 114.定义有 5 个整数型元素的数组，正确的语句是（分数：2.00）A.Dim a(4)As IntegerB.Option Base 1：Dim a(5)C.Dim a x End Sub（分数：2.00）填空项 1:_47.下列程序的功能是：当 x50 时，y =0.8 xx;当 50x100 时，y=0.7 xx;当 x100 时, Private Sub Command1_Click() Dim x As Single x = InputBox(“请输入 x 的值“ ) Select Case x Case I
10、s50 y=0.8 * x Case 50 To 100 y=0.7 * x U 【12】 /U Print “输入数据出界!“ End Select Print x, y End Sub（分数：2.00）填空项 1:_48.下列程序的功能是：将数据 1,2,8 写入顺序文件 Num. txt 中请补充完整。 Private Sub Form_Click ( ) Dim i As Integer Open “Num. txt“ For Output As #1 For i = 1 To 8 U 【13】 /U Next Close #1 End Sub（分数：2.00）填空项 1:_49.有如
11、下事件过程： Private Sub Form Active ( ) Dim Score (1 to 3) As Integer Dim i As Integer Dim t As Variant Fori=3 To 1 step-1 Score (i) = 2 * i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为U 【14】 /U。（分数：2.00）填空项 1:_50.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1,2,3,. ,90。请在空白处填入
12、适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click( ) Dim Y As Single OpenU 【15】 /U Y=3. 14159 / 180 For i=1 To 90 Ksc. K=i Ksc. Sinx = Sin ( i * Y) Ksc. Cosx = Cos ( i * Y) Put #2, i, Ksc Next i Close #2 End Sub（分数：2.00）填空项 1:_二
13、级 VISUAL+BASIC 笔试 48 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.算法分析的目的是（分数：2.00）A.找出数据结构的合理性B.找出算法中输入和输出之间的关系C.分析算法的易懂性和可靠性D.分析算法的效率以求改进 解析：解析 算法分析是指对一个算法的运行时间和占用空间做定量的分析，一般计算出相应的数量级，常用时间复杂度和空间复杂度表示。分析算法的目的就是要降低算法的时间复杂度和空间复杂度，提高算法的执行效率。2.以下用户自定义函数 Function Func(a As Integer, b As Integer)
14、 As Integer Static m As Integer, i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4：m=1 P=Func(k，m) Print p End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.00）A.8 B.9C.10D.11解析：解析 变量 i 的计算过程为 i=2+0+1 =3，变量 m 的计
15、算过程为 m=3+4+1=8，m 的值通过于函数名Fune 返回。3.若要求从文本框中输入密码时在文本框中只显示“*”号，则应当在此文本框的属性窗口中设置（分数：2.00）A.Text 属性值为。B.Caption 属性值为。C.password 属性值为空D.Passwordchar 属性值为* 解析：解析 PasswordChar 属性返回或设置一个值，该值批示所键入的字符或占位符在 TextBox 控件中是否要显示出来；返回或设置用作占位符。4.下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x (10)As Intege
16、r，y(5)As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub（分数：2.00）A.3 7 11 45 19B.19 15 11 7 3 C.1 3 5 7 9D.不确定的值解析：解析 本题考查了数组的定义和赋值。题中定义了数组 x(10)和 y(5)并通过 For 循环给每个数组成员赋值。5.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程。 Privat
17、e Sub Form_Load() List1.AddItem “Item 1“ List1.AddItem “Item 2“ List1.AddItem “Item 3“ End Sub Private Sub Command1_Click() List1.List(List1.Listcount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA“添加到列表框中，但位置不能确定B.把字符串“AAAA“添加到列表框的最后(即“Item 3“的后面) C.把列表框中原有的最后一项改为“AAAA“D.把字符串“AAAA“插入到列表框的最前面
18、(即“Item 1“的前面)解析：解析 其中，列表框的 list 属性用来列出表项的内容，也可以改变数组中的已有的值。列表框中表项的排列是从 0 开始，最后一项的序号为 ListCount -1，所以，该题语句的作用是把字符串“AAAA”添加到列表框的最后，但不是改变 Item3 的值，所以本题的正确答案是选项 B) 。6.下列程序执行后，变量 a 的值为 Dim a，b，C，d as single a=100：b=20：c=1000 if ba Then d=a:a=b：b=d End if if c a Then d=b：b=c：c=d End if（分数：2.00）A.0B.1000C.
19、20D.100 解析：解析 程序中定义了 a，b，c，3 个变体类型变量和 1 个双精度浮点型变量 d。 根据题中 ca 计算值为 True，因此执行 d=b：b= c：c=d 语句，没有对 a 进行操作，所以 a 值不变。7.下列各选项说法错误的一项是（分数：2.00）A.文件对话框可分为两种，即打开(Ope 文件对话框和保存(Save A 文件对话框B.通用对话框的 Name 属性的默认值为 CommonDialogX，此外，每种对话框都有自己的默认标题C.打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D.DefaultEX
20、T 属性和 DialogTitle 属性都是打开对话框的属性，但非保存对话框的属性 解析：解析 文件对话框分为两种：即打开对话框和保存对话框，所以选项 A) 的正确；通用对话框的 Name 属性的默认值为 CommonDialogX，此外，每种对话框都有自己的默认标题，所以选项 B) 正确；打开文件对话框可以让用户指定一个文件，由程序使用，而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件，所以选项 C) 正确；除 DefauhEXT、DialogTitle 属性是打开和保存对话框共有的，还有 FileName、Fi leTitle、Filter、Filterlndex、Flags
21、、InitDir、MaxFileSize、Can celError、HelpCommand、HelpContext 和 HelpFile 属性，都是它们共有的，所以选项 D) 不正确。8.有如下一个函数过程： Function Fun(a As Integer) Static c b=0：b=b+1：c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a)； Next End Sub 运行该程序，单击命
22、令按钮，输出结果是（分数：2.00）A.4 4 4B.4 5 6 C.6 7 8D.4 7 9解析：解析 题中 c 为静态变量，在每次子过程调用时，其值保持原值。计算过程为 Fun=2+1+1= 4、Fun=2+2+1=5、Fun=2+3+1=6。9.下列数据模型中，具有坚实理论基础的是（分数：2.00）A.层次模型B.网状模型C.关系模型 D.以上 3 个都是解析：解析 关系模型较之格式化模型(网状模型和层次模型)有以下方面的优点，即数据结构比较简单、具有很高的数据独立性、可以直接处理多对多的联系，以及有坚实的理论基础。10.软件开发离不开系统环境资源的支持，其中必要的测试数据属于（分数：2
23、.00）A.硬件资源B.通信资源C.支持软件D.辅助资源 解析：解析 软件测试过程中，辅助资源包括测试用例(测试数据)、测试计划、出错统计和最终分析报告等。11.如果在程序中要将 c 定义为静态变量，且为整型数，则应使用的语句是（分数：2.00）A.Redim a As IntegerB.Static a As Integer C.Publica As IntegerD.Dim a As Integer解析：解析 Static 用于在过程中定义静态变量及数组变量。12.当把框架的什么属性设置为 False 时，其标题会变灰，框架中所有的对象均被屏蔽（分数：2.00）A.NameB.Enable
24、d C.CaptionD.Visible解析：解析 Enabled 属性用于决定一个对象是否响应用户的事件，对于框架而言，通常把 Enabled 属性设置为 True，此时框架中的对象是“活动”的，如果把框架的 Enabled 属性设置为 False，则其标题会变灰，框架中的所有对象，都将被屏蔽，由此可见，正确答案是选项 B) ；选项 A) 是名称，标识对象的。选项 C) 是显示文本；选项 D) 是控制控件可见性的。13.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Private Sub Command1_Click( ) Dim a(5,5) For
25、 i=1 To 3 For j=1 To 4 a(i,j)=i*j Next Next For n=1 To2 For m = 1 To3 Print a(m,n); Next Next End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.2 4 6 1 2 3B.1 2 3 2 4 6 C.1 2 3 4 5 6D.6 5 4 3 2 1解析：解析 输出值为下标的乘积，即 11，12，13，21，22，23。14.定义有 5 个整数型元素的数组，正确的语句是（分数：2.00）A.Dim a(4)As Integer B.Option Base 1：Dim a(5)C.D
26、im a x End Sub（分数：2.00）填空项 1:_ （正确答案：b$=“i“）解析：解析 该语句的作用是判断每个字母是否为 i，如果是则计数，否则不计数。47.下列程序的功能是：当 x50 时，y =0.8 xx;当 50x100 时，y=0.7 xx;当 x100 时, Private Sub Command1_Click() Dim x As Single x = InputBox(“请输入 x 的值“ ) Select Case x Case Is50 y=0.8 * x Case 50 To 100 y=0.7 * x U 【12】 /U Print “输入数据出界!“ En
27、d Select Print x, y End Sub（分数：2.00）填空项 1:_ （正确答案：Case Else）解析：解析 阅读程序后，在 Select Case 结构中，只有两个 Case 子句，分别表示 x 取值的两种情况，但题目中将 x 的值分为 3 种情况，空白处应该填写 Case Else 语句。48.下列程序的功能是：将数据 1,2,8 写入顺序文件 Num. txt 中请补充完整。 Private Sub Form_Click ( ) Dim i As Integer Open “Num. txt“ For Output As #1 For i = 1 To 8 U 【1
28、3】 /U Next Close #1 End Sub（分数：2.00）填空项 1:_ （正确答案：Print #1，i）解析：解析 使用 Print 语句可以将数据写入顺序文件中。49.有如下事件过程： Private Sub Form Active ( ) Dim Score (1 to 3) As Integer Dim i As Integer Dim t As Variant Fori=3 To 1 step-1 Score (i) = 2 * i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为U 【14】 /U
29、。（分数：2.00）填空项 1:_ （正确答案：24 6）解析：解析 本题考查了数组的定义和 For EachNext 语句。题中定义了下标下界为 1 下标上界为 3的 Score 数组，通过 For 循环语句赋值后，再通过 For Each Next 语句在窗体上输出数组中的每个成员。50.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1,2,3,. ,90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single En
30、d Type Dim Ksc As Ang Private Sub Form_Click( ) Dim Y As Single OpenU 【15】 /U Y=3. 14159 / 180 For i=1 To 90 Ksc. K=i Ksc. Sinx = Sin ( i * Y) Ksc. Cosx = Cos ( i * Y) Put #2, i, Ksc Next i Close #2 End Sub（分数：2.00）填空项 1:_ （正确答案：“C:/Datal.txt”For Random As #2 Len=10）解析：解析 打开一个随机文件的一般格式为：Open“文件名称”For Random As# 件号Len=记录长度
