1、二级 VISUAL+BASIC 机试-126 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 c：/wexam/25160001。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上放置两个列表框，名称分别为 List1 和 List2。在 List1 中添加“第一题”、“第二题”“第八题”，并设置 MultiSelect 属性为 2(要求在控件属性中设置实现)。再放置一个名称为 Cmd1，标题为“复制”的命令按钮。程序运行后，如果单击“复制
2、”按钮，将 List1 中选中的内容(至少两项)复制到 List2 中。如果选择的项数少于 2 项，用消息框提示“请选择至少两项”。如图 17-1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。(2) 在名称为 Form1 的窗体上放置一个名称为 Text1 的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示(要求焦点在最右端)。如图 17-2 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。（分数：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2
3、.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。(1) 在考生文件夹下有工程文件 sjt3.vbp 及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图 17-3 所示。本题描述如下：在窗体上有一个标签数组，名为 Label1，该数组有 4 个控件元素，标题分别是“程序运行”、“文本编辑”、“双向箭头”和“移动窗体”。在程序运行后，将鼠标移动到各控件元素上，则鼠标的形状将变成各控件元素的标题所代表的鼠标形状，离开控件元素，则又变成正常情况下的箭头形状。(2)
4、 在考生文件夹下有工程文件 sjt4.vbp，窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。如图 17-4 所示。本题描述如下：在窗体上有一个名为 Text1 的文本框，有两个命令按钮，名称分别是 C1 和 C2，标题分别是“读入”和“计算并保存”。要求程序运行后，点击 C1 按钮，将文本文件 in6.txt 中的所有数字读到数组 arr 中，并在文本框内显示出来。随后 C1 按钮变为无效；然后点击 C2 按钮，求出数组 arr 中的各元素的平方并赋值回相应的元
5、素，例如，arr(2)=2，则令 arr(2)=arr(2)*arr(2)=4。把计算后的数组的值全部写入考生文件夹下的文本文件 out6.txt 中，并在文本框中显示出来，最后 C2 按钮也变为无效。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。在考生文件夹下有工程文件 sjt5.vbp 及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图 17-5 所示。在名称为 Form1，标
6、题为“分苹果”的窗体上，有名称为 Frame1，标题为“分苹果大赛”的一个 Frame 控件。其中包括 4 个 Picture 控件、4 个 Labe1 控件和 4 个 Command 控件。具体如下：PicSmile(0)(1)为 Tom 和 Marry 的笑脸图案,PicCry(0)(1)为哭脸图案；PicSmile(0)和 PicCry(0)重叠，PicSmile(1)和 PicCry(1)重叠。按 Command1(0)和 Command1(1)时，Labe1(0)和 labe1(1)减少。当Labe1(0)或 Labe1(1)的值为零时，相对应的 Command 按钮失效(变灰)；按
7、 Command2(0)和 Command1(1)时，Labe1(0)和 Labe1(1)增加。程序启动时两人均为笑脸。两人当中所分苹果比较多的呈现笑脸，另一个是哭脸；如果两人的苹果一样多，则两人都为笑脸。（分数：30.00）_二级 VISUAL+BASIC 机试-126 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 c：/wexam/25160001。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上放置两个列表框，名称分别为 List1
8、 和 List2。在 List1 中添加“第一题”、“第二题”“第八题”，并设置 MultiSelect 属性为 2(要求在控件属性中设置实现)。再放置一个名称为 Cmd1，标题为“复制”的命令按钮。程序运行后，如果单击“复制”按钮，将 List1 中选中的内容(至少两项)复制到 List2 中。如果选择的项数少于 2 项，用消息框提示“请选择至少两项”。如图 17-1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。(2) 在名称为 Form1 的窗体上放置一个名称为 Text1 的文本框。程序运行后，用户在文本框中输入的英文字母一律用
9、大写显示(要求焦点在最右端)。如图 17-2 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。（分数：30.00）_正确答案：(解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。自列表框中添加项目可以用事件 AddItem 事件，也可以在属性窗口中进行，但题目中要求是在属性窗口添加所以选择利用属性实现的。列表框的 Text 属性为最后一次选中的表项的文本，且每次一定要不少于两次，少于的话会用 msgbox 给出提示。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 17-1。表 17-1控 件 属 性 设
10、 置 值listboxNameMultiSelectList List12-extended第一题第二题第三题第四题第五题第六题第七题第八题Listbox Name List2Commandbutton Name Caption Cmd1 复制第二步：编写程序代码参考代码：Option ExplicitPrivate Sub Cmd1_Click()Dim i As Integer, j As IntegerDim a(8) As StringFor i=0 To List1.ListCount-1If List1.Selected (i) Thena(i)=List1.List(i)j=j+
11、1End IfNext iIf j2 ThenMsgBox “请选择至少两项“ElseList2.ClearFor i=0 To List1.ListCount-1If a(i) “ Then List2.AddItem a(i)NextEnd IfEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 在窗体上建立好控件后，先设置控件的属性，再编写事件过程。在 Text 控件中输入文本时触发 Change 事件，通过 Ucase 函数来换成大写字母。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 17-2。表 17-2对 象 属 性 设 置 值文本
12、框 Name Text Text1 空第二步：编写程序代码。参考代码：Private Sub Text1_Change()Text1.SelStart=Len(Text1.Text)Text1.Text=UCase(Text1.Text)End Sub第三步：调试并运行程序。第四步：按题目要求存盘。答案考生文件夹)解析：二、2 简单应用题(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。(1) 在考生文件夹下有工程文件 sjt3.vbp 及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符
13、(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图 17-3 所示。本题描述如下：在窗体上有一个标签数组，名为 Label1，该数组有 4 个控件元素，标题分别是“程序运行”、“文本编辑”、“双向箭头”和“移动窗体”。在程序运行后，将鼠标移动到各控件元素上，则鼠标的形状将变成各控件元素的标题所代表的鼠标形状，离开控件元素，则又变成正常情况下的箭头形状。(2) 在考生文件夹下有工程文件 sjt4.vbp，窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。
14、如图 17-4 所示。本题描述如下：在窗体上有一个名为 Text1 的文本框，有两个命令按钮，名称分别是 C1 和 C2，标题分别是“读入”和“计算并保存”。要求程序运行后，点击 C1 按钮，将文本文件 in6.txt 中的所有数字读到数组 arr 中，并在文本框内显示出来。随后 C1 按钮变为无效；然后点击 C2 按钮，求出数组 arr 中的各元素的平方并赋值回相应的元素，例如，arr(2)=2，则令 arr(2)=arr(2)*arr(2)=4。把计算后的数组的值全部写入考生文件夹下的文本文件 out6.txt 中，并在文本框中显示出来，最后 C2 按钮也变为无效。（分数：40.00）_正
15、确答案：(解析 控件数组是由一组相同类型的控件组成，建立控件数组时系统给每个元素赋一个惟一的索引号(Index)，例如，控件数组 cmdName(3)表示控件数组名为 cmdName 的第 4 个元素；鼠标的形状由属性 MousePointer 来设置，该属性值为 11 时对应程序运行时的鼠标形状，该属性值为 3 时对应文本编辑时的鼠标形状，该属性值为 7 时对应双向箭头的鼠标形状，该属性值为 5 时对应移动窗体时的鼠标形状。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 17-3。表 17-3对 象 下 标 属 性 设 置 值Label(0) Name Caption
16、 Label1 程序运行Label(1) Name Caption Label1 文本编辑Label(2) Name Caption Label1 双向箭头Label 数组Label(3) Name Caption Label1 移动窗体第二步：编写程序代码。程序提供的代码：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.?=0End SubPrivate Sub Label1_MouseMove(Index As Integer, Button As
17、Integer, Shift _As Integer, X As Single, Y As Single)Select Case ?Case 0Form1.MousePointer=11Case 1Form1.MousePointer=3Case 2Form1.MousePointer=7Case 3Form1.MousePointer=5End SelectEnd Sub参考代码：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.MousePointer
18、=0End SubPrivate Sub Label1_MouseMove(Index As Integer, Button As Integer,Shift As Integer, X As Single, Y As Single)Select Case IndexCase 0Form1.MousePointer=11Case 1Form1.MousePointer=3Case 2Form1.MousePointer=7Case 3Form1.MousePointer=5End SelectEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 打开文件的命令是 Open
19、，其常用形式为：Open“文件名”For 模式 As#文件号Len=记录长度，对文件的写操作所用的命令是 Write#或 Print#命令，其形式分别为：Print#文件号，输出列表；Write#文件号，输出列表，二者区别是 Write#是以紧凑格式存放，即在数据项之间插入逗号，并给字符串加上双引号。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 17-4。表 17-4对 象 属 性 设 置 值Text Name text Text1 空CommandbuttonNameCaptionC1读入CommandbuttonNameCaptionC2计算并保存第二步：编写程序
20、代码。程序提供的代码：Dim arr(1 To 9) As IntegerPrivate Sub C1_Click()Dim i As Integer? “in6.txt“ For Input As 1For i=1 To 9Input #1, arr(i)Text1.Text=Text1.Text+Str(arr(i) )NextClose #1C1.Enabled=FalseEnd SubPrivate Sub C2_Click()Dim i As IntegerText1.Text=“Open “out6.txt“ For Output As 1For i = 1 To 9arr(i)=
21、arr(i) * arr(i)Print #1, ?,Text1.Text=Text1.Text+Str(arr(i) )NextClose #1C2.Enabled=FalseEnd Sub参考代码：Dim arr(1 To 9) As IntegerPrivate Sub C1_Click()Dim i As IntegerOpen “in6.txt“ For Input As 1For i=1 To 9Input #1, arr(i)Text1.Text=Text1.Text+str(arr(i) )NextClose #1C1.Enabled=FalseEnd SubPrivate S
22、ub C2_Click()Dim i As IntegerText1.Text=“Open “out6.txt“ For Output As 1For i=1 To 9arr(i)=arr(i) * arr(i)Print #1, arr(i),Text1.Text=Text1.Text+Str(arr(i) )NextClose #1C2.Enabled=FalseEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。)解析：三、3 综合应用题(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。在考生文件夹下有工程文件 sjt5
23、.vbp 及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图 17-5 所示。在名称为 Form1，标题为“分苹果”的窗体上，有名称为 Frame1，标题为“分苹果大赛”的一个 Frame 控件。其中包括 4 个 Picture 控件、4 个 Labe1 控件和 4 个 Command 控件。具体如下：PicSmile(0)(1)为 Tom 和 Marry 的笑脸图案,PicCry(0)(1)为哭脸图案；PicSmile(0)和 PicCry(0)重叠，PicSmile(1)和 P
24、icCry(1)重叠。按 Command1(0)和 Command1(1)时，Labe1(0)和 labe1(1)减少。当Labe1(0)或 Labe1(1)的值为零时，相对应的 Command 按钮失效(变灰)；按 Command2(0)和 Command1(1)时，Labe1(0)和 Labe1(1)增加。程序启动时两人均为笑脸。两人当中所分苹果比较多的呈现笑脸，另一个是哭脸；如果两人的苹果一样多，则两人都为笑脸。（分数：30.00）_正确答案：(解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。控件数组是由一组相同类型的控件组成，建立控件数组时系统给每个元素赋一个惟一的索引号(
25、Index)，控件数组 cmdName(3)表示控件数组名为 cmdName 的第 4 个元素；利用其下标号可选择不同的控件数组元素，如：控件是否可用由其 Enabled 属性决定，当该属性值为 True 时可用，为 False 时不可用(灰色)；控件是否可见由其 Visible 属性决定，该值为 True 时，控件可见，为 False 时控件不可见。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 17-5。表 17-5对 象 下 标 属 性 设 置 值Form1 Caption 分苹果Fram1 Caption 分苹果大赛PicSmile(0)NamePictureA
26、otusizePicSmiletrue PicturePicSmile(1)NamePictureAotusizePicSmileTruePicCry(0)NamePictureAotusizePicSmileTrue PicturePicCry(1)NamePictureAotusizePicSmiletrueLabel Name Caption Label Tom White Label Name Caption Label Marry Smith Label(0) Name Caption Label1 0LabelLabel(1) Name Caption Label1 0Comman
27、d1(0) Name Caption Command1 减一个 Command控件 Command1(1) NameCaptionCommand1减一个Command2(0) Name Caption Command2 加一个 Command控件 Command2(1) NameCaptionCommand2加一个第二步：编写程序代码。程序提供的代码：Option ExplicitPrivate Sub Command1_Click(Index As Integer)If Index=0 ThenIf Val(Label3(0) .Caption)1 ThenCommand1 (0) .Ena
28、bled=TrueLabel3(0) .Caption=Labe13(0) .Caption-1ElseIf Val(Label3(0) .Caption)=1 ThenLabe13(0) .Caption=Labe13(0) .Caption-1End IfCommand1(0) .Enabled= ?End IfElseIf Val(Label3(1) .Caption)1 ThenCommand1 (1) .Enabled=TrueLabel3(1) .Caption=Label3(1) .Caption-1ElseIf Val(Label3(1) .Caption)=1 ThenLab
29、el3(1) .Caption=Label3(1) .Caption-1End IfCommandl(1) .Enabled=FalseEnd IfEnd IfIf Val(Label3(0) .Caption) ? Val(Label3(1) .Caption) ThenpicSmile(0) .Visible=TruepicCry(0) .Visible=FalsepicCry(1) .Visible=TruepicSmile(1) .Visible=FalseElseIf Val(Label3(0) .Caption) ? Val(Label3(1) .Caption) ThenpicC
30、ry(0) .Visible=TruepicSmile(0) .Visible=FalsepicSmile(1) .Visible=TruepicCry(1) .Visible= FalseElsepicSmile(0) .Visible=TruepicCry(0) .Visible=FalsepicSmile(1) .Visible=TruepicCry(1) .Visible=FalseEnd IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)If Index=0 ThenLabel3(0) .Caption=Comman
31、d1 (0) .Enabled=TrueElse:Label3(1) .Caption=Command1 (1) .Enabled=TrueEnd IfIf Val(Label3(0) .Caption) ? Val(Label3(1) .Caption) ThenpicSmile(0) .Visible=TruepicCry(0) .Visible=FalsepicCry(1) .Visible=TruepicSmile(1) .Visible=FalseElseIf Val(Label3(0) .Caption) ? Val(Label3(1) .Caption) ThenpicCry(0
32、) .Visible=TruepicSmile(0) .Visible=FalsepicSmile(1) .Visible=TruepicCry(1) .Visible=FalseElsepicSmile(0) .Visible=TruepicCry(0) .Visible=FalsepicSmile(1) .Visible=TruepicCry(1) .Visible=FalseEnd IfEnd IfEnd SubPrivate Sub Form_Load ()PicSmile(0) .Visible=TruepicSmile(1) .Visible=TrueCommand1(0) .En
33、abled=FalseCommand1(1) .Enabled=FalseEnd Sub参考代码：Option ExplicitPrivate Sub Command1_Click(Index As Integer)If Index=0 ThenIf Val(Label3(0) .Caption)1 ThenCommand1 (0) .Enabled=TrueLabel3(0) .Caption=Label3(0) .Caption-1ElseIf Val(Label3(0) .Caption)=1 ThenLabel3(0) .Caption=Label3(0) .Caption-1End
34、IfCommand1(0) .Enabled=FalseEnd IfElseIf Val(Label3(1) .Caption)1 ThenCommand1(1) .Enabled=TrueLabel3(1) .Caption=Label3(1) .Caption-1ElseIf Val(Label3(1) .Caption)=1 ThenLabel3(1) .Caption=Label3(1) .Caption-1End IfCommand1(1) .Enabled=FalseEnd IfEnd IfIf Val(Label3(0) .Caption)Val(Label3(1) .Capti
35、on) ThenpicSmile(0) .Visible=TruepicCry(0) .Visible=FalsepicCry(1) .Visible=TruepicSmile(1) .Visible=FalseElseIf Val(Label3(0) .Caption)Val(Label3(1) .Caption) ThenpicCry(0) .Visible=TruepicSmile(0) .Visible=FalsepicSmile(1) .Visible=TruepicCry(1) .Visible=FalseElsepicSmile(0) .Visible=TruepicCry(0)
36、 .Visible=FalsepicSmile(1) .Visible=TruepicCry(1) .Visible=FalseEnd IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)If Index=0 ThenLabel3(0) .Caption=Label3(0) .Caption+1Command1 (0) .Enabled=TrueElse:Label3(1) .Caption=Label3(1) .Caption+1Commandl (1) .Enabled=TrueEnd IfIf Val(Label3(0)
37、.Caption) Val(Label3(1) .Caption) ThenpicSmile(0) .Visible = TruepicCry(0) .Visible = FalsepicCry(1) .Visible = TruepicSmile(1) .Visible = FalseElseIf Val(Label3(0) .Caption)Val(Label3(1).Caption) ThenpicCry(0) .Visible=TruepicSmile(0) .Visible=FalsepicSmiie(1) .Visible=TruepicCry(1) .Visible=FalseElsepicSmile(0) .Visible=TruepicCry(0) .Visible=FalsepicSmile(1) .Visible=TruepicCry(1) .Visible=FalseEnd IfEnd IfEnd SubPrivate Sub Form_Load()picSmile(0) .Visible=TruepicSmile(1) .Visible=TrueCommand1(0) .Enabled=FalseCommand1(1) .Enabled=FalseEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。)解析：
