1、二级 VISUAL+BASIC 机试 30 及答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上画两个文本框，名称分别为 T1 和 T2，初始情况下都没有内容。请编写适当的事件过程，使得运行时，在 T1 中输入的任何字符，立即显示在 T2中，如图 10-1 所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt
2、1.vbp，窗体文件名为 sjt1.frm。 (2)在名称为 Form1 的窗体上画一个文本框，名称为 Text1；再画一个命令按钮，名称为 C1，标题为“移动”，如图 10-2 所示。请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端如图 10-3 所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。 （分数：30.00）_二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1)在考生文件夹下有工
3、程文件sjt3.vbp 及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有三个 Labe1 控件和两个名称分别为 COMSTART 和 COMEXIT，标题分别为“开始”和“退出”的命令按钮。要求程序运行后，单击“开始”按钮后，能将下面给出的三角形写入考生文件夹下的 picturedat文件中；执行完毕“开始”按钮，变成“完成”，且无效(变灰)。程序运行界面如图 10-4 所示。 A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB
4、 B (2)在考生文件夹下有工程文件 sjt4.vbp 及窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个名称为 Command1，标题为“读取字型”的命令按钮，一个名称为 Combol 的下拉组合框和一个提示标签 Label1。要求程序运行后，单击“读取字型”按钮读取系统的字型，在 Combo1 中显示。 如图 10-5 所示。 （分数：40.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/
5、wexam/25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：在名称为 Form1 的窗体上有三个 Label 控件和两个名称分别为 COMSTART、 COMEXIT，标题分别为“开始”和“退出”的命令按钮。编写函数 Item(A，N)，其功能是由数字 A 组成的不多于 N 位数的整数，利用该函数求 8888-888-88-8的值并把结果写入考生文件夹下的 sjt5.dat 文件中。执行完毕“确定”按钮，变
6、成“完成”，且无效。如图 10-6 所示。 （分数：30.00）_二级 VISUAL+BASIC 机试 30 答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上画两个文本框，名称分别为 T1 和 T2，初始情况下都没有内容。请编写适当的事件过程，使得运行时，在 T1 中输入的任何字符，立即显示在 T2中，如图 10-1 所示。程序中不得使用任
7、何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为 sjt1.frm。 (2)在名称为 Form1 的窗体上画一个文本框，名称为 Text1；再画一个命令按钮，名称为 C1，标题为“移动”，如图 10-2 所示。请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端如图 10-3 所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。 （分数：30.00）_正确答案：()解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 文本框的文本
8、内容由 Text属性设置。题目要求在 T1 中输入任何字符时，立即在 T2 中显示，这要用到文本框的 Change 事件。当用户向文本框中输入新信息，或当程序把 Text 属性设置为新值从而改变文本框的 Text 属性，将触发Change 事件。 解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 10-1。 第二步：编写程序代码。 参考代码： Private Sub T1_Change() T2.Text=T1.Text End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 本题考查的是控件
9、的位置改变，控件的位置由控件的 Left 属性和 Top 属性决定，Left属性表示控件与所在窗体的左边之间的距离，Top 属性表示控件与所在窗体的顶边之间的距离。题目要求将文本框移到窗体的最左边，即 Text1.Left=0。解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 10-2。 二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1)在考生文件夹下有工程文件sjt3.vbp 及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号
10、)，但不能修改其他其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有三个 Labe1 控件和两个名称分别为 COMSTART 和 COMEXIT，标题分别为“开始”和“退出”的命令按钮。要求程序运行后，单击“开始”按钮后，能将下面给出的三角形写入考生文件夹下的 picturedat文件中；执行完毕“开始”按钮，变成“完成”，且无效(变灰)。程序运行界面如图 10-4 所示。 A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B (2)在考生文件夹下有工程文件 sjt4.vbp 及窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内
11、容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个名称为 Command1，标题为“读取字型”的命令按钮，一个名称为 Combol 的下拉组合框和一个提示标签 Label1。要求程序运行后，单击“读取字型”按钮读取系统的字型，在 Combo1 中显示。 如图 10-5 所示。 （分数：40.00）_正确答案：()解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 命令按钮的标题由其Caption 属性设置，单击命令按钮触发其 Click 事件；标签的 Caption 属性用来显示其内容：程序用到String$函
12、数。 String 函数返回 Variant(String)，其中包含指定长度重复字符的字符串。 语法：String(number,character) String 函数的语法有下面的命名参数： number 必要参数；Long。返回的字符串长度。如果 number 包含 Null，将返回 Null。 character 必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串；解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 10-3。 第二步：编写程序代码。 程序提供的代码： Private Sub COMEXIT_Click(
13、) End End Sub Private Sub COMSTART_Click() Dim A(4) As String Dim B(4) As String Dim k As Integer,1 As Integer myfilel =App. Path& “/“ & “picture.dat“ Open myfilel For Output As #1 For k = 1 To 4 A(?) = StringS(?) B(?) = StringS(?) Next k For k = 1 To 4 Print #1, ? Next k For k = 4 To 1 Step -1 Prin
14、t #1,? Next k Close #1 COMSTART.? = “完成“ COMSTART.Enabled = ? End Sub 参考代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A(4) As String Dim B(4) As String Dim k As Integer,1 As Integer myfilel =App.Path& “/“ & “picture.dat“ Open myfilel For Output As #1 For k = 1 To 4 A(k
15、) = String$(k * 2 - 1, “A“) B(k) = String$(k * 2 - 1, “B“) Next k For k = 1 To 4 Print #1, A(k) Next k For k = 4 To 1 Step -1 Print #1, B(k) Next k Close #1 COMSTART.Caption = “完成“ COMSTART.Enabled = False End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 程序里用的 ScreenFont 是系统的字型(类似
16、一个字型数组)，Screen.FontCount 是系统字型的个数，其下标从 0 开始的，所以最后一个下标是 Screen.FontCount-1。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub Command1_Click() Dim I As Long For I=0 To ? -1 Comb01.Addltem? Next End Sub 参考代码： Private Sub Command1_Click() Dim I As Long For I=0 To Screen.FontCount -1 Combol.Addltem Screen.Fonts(I)
17、Next End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。三、B3 综合应用题/B(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：在名称为 Form1 的窗体上有三个 Label 控件和两个名称分别为 COMSTART、 COMEXIT，标题分别为“开始”和“退出”的命令按钮。编写函数 Item(A，N)，其功能是由数字 A 组成的不多于 N 位数的整数，利用该函数求 8888-888-88-8的值并把结果写入考生文件夹下的 sjt5.dat 文件中。执行完毕“确定”按钮，变成“完成”，且无效。如图 10-6 所示。 （分数：30.00）_正确答案：()解析：解析 控件是否可用由其 Enable 属性设置，当 Enable 为 True 时控件可用，当 Enable 为 False时控件不可用(灰色)：命令按钮的标题由 Caption 属性设置：Str$函数将数字转换为字符串。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性值见表 10-4。
