1、二级 VISUAL+BASIC-31-1 及答案解析(总分：65.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在名称为 Form1 的窗体上画一个命令按钮，名称为 Cmd1，标题为“扩大两倍”。编写适当的事件过程，程序运行后，如果单击 Cmd1 命令按钮，则可以使命令按钮的长度和宽度各扩大到原来的 2 倍。 注意： 不得使用任何变量。 程序运行时的窗体界面如下图所示。 （分数：15.00）_二、B2 简单应用题/B(总题数：1，分数：20.00)2.在考生文件夹中有工程文件 sj3.vbp 及窗体文件 sj3.frm。在名为 Form1 的窗体上有一
2、个标签数组，名为 Lab1，该数组有 4 个控件元素，标题分别是 Wait、Edit、Aix 和 Move，如下图所示。 在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。 注意：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。 （分数：20.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.在名为 Form1 的窗体上建立一个文本
3、框(名称为 Text1，MultiLine 属性为 True，ScrollBars 属性为 2)和两个命令按钮(名称分别为 Cmd1 和 Cmd2，标题分别为 Read 和 Save)，如下图所示。 （分数：30.00）_二级 VISUAL+BASIC-31-1 答案解析(总分：65.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在名称为 Form1 的窗体上画一个命令按钮，名称为 Cmd1，标题为“扩大两倍”。编写适当的事件过程，程序运行后，如果单击 Cmd1 命令按钮，则可以使命令按钮的长度和宽度各扩大到原来的 2 倍。 注意： 不得使用任何变量。
4、 程序运行时的窗体界面如下图所示。 （分数：15.00）_正确答案：(第一步：建立工程和添加窗体 单击考试界面的“功能”选项，从弹出的菜单中选择“启动应用程序”选项。Visual Basic 启动后，在“新建工程”对话框中选择“标准 EXE”选项，单击“打开”按钮，新建一个工程文件，里面会同时建立一个名为 Form1 的窗体文件。 第二步：设计窗体 单击工具箱中的 CommandBox 控件图标，在窗体上拖拉出一个命令按钮。在其属性窗口中，Name 属性设置为Cmd1，Caption 属性设置为“扩大两倍”。 第三步：编写代码 双击 Cmd1 命令按钮，在弹出的代码窗口中，输入以下语句： 1
5、Private Sub Cmd1_Click( ) 2 Cmd1.Width=Cmd1.Width+Cmd1.Width 3 Cmd1.Height=Cmd1.Height+Cmd1.Height 4 End Sub 第四步：保存。程序设计完成经调试无误后进行存盘。以 sjt2.vbp 和 sjt2.frm 进行保存。)解析：解析 Height 和 Width 属性用来设置控件的高度和宽度。在编写程序代码语句的时候，可以将原来的值相加。由于 Height 和 Width 的值被默认为数值，因此也可以使用乘法。即为： 1 Private Sub Cmd1_Click( ) 2 Cmd1.Widt
6、h=Cmd1.Width*2 3 Cmd1.Height=Cmd1.Height*2 4 End Suh二、B2 简单应用题/B(总题数：1，分数：20.00)2.在考生文件夹中有工程文件 sj3.vbp 及窗体文件 sj3.frm。在名为 Form1 的窗体上有一个标签数组，名为 Lab1，该数组有 4 个控件元素，标题分别是 Wait、Edit、Aix 和 Move，如下图所示。 在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。 注意：去掉程序
7、中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。 （分数：20.00）_正确答案：(打开题目所给工程文件； 将注释语句改为： Form1.MousePointer=0 Select Case Index， 按要求保存文件即完成本题。)解析：三、B3 综合应用题/B(总题数：1，分数：30.00)3.在名为 Form1 的窗体上建立一个文本框(名称为 Text1，MultiLine 属性为 True，ScrollBars 属性为 2)和两个命令按钮(名称分别为 Cmd1 和 Cmd2，标题分别为 Rea
8、d 和 Save)，如下图所示。 （分数：30.00）_正确答案：(第一步：新建一个名为 Form1 的窗体。 第二步：单击工具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为 Text1，将 MultiLine 属性设置为True，ScrollBars 属性设置为 2。 第三步：单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为 Cmd1 和 Cmd2，Caption 分别为 Read 和 Save。 第四步：打开代码窗口输入如下代码： 1 Private Sub Cmd1_Click(
9、 ) 2 Open App.Path &“/in.txt“ For Input 3 As#1 4 Text1.Text=“ 5 For i=1 To 100 6 Input#1，a(i) 7 Text1.Text=Text1.Text & a(i) &Space(1) 8 Next i 9 Close #1 10 End Sub 11 Private Sub Cmd2_Click( ) 12 Text1.Text=“ 13 S=0 14 For i=1 To 100 15 If a(i)Mod20 Then 16 Text1.Text=Text1.Text & a(i) &Space(1) 17 s=s+a(i) 18 End If 19 Next 20 putdatas 21 End Sub 第五步：按要求保存文件即完成本题。)解析：解析 本题主要考查数据的输入输出及 Visual Basic 的控制结构及函数设计。
