1、二级 VISUAL+BASIC 机试-106 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体中建立一个命令按钮，名为 Cmd1，标题为 Show(如右图所示)。编写适当的事件过程，使程序运行后，若单击 Show 按钮，则执行语句。Form1.Print“Show“；如果单击窗体，则执行语句Form1.cls。注意：文件必须存放在考生文件夹中，窗体文件名为 sj1.frm，工程文件名为 sj1.vbp。（分数：15.00）_2.在名为 Form1 的窗体上建立一个名为 List1 的列表框(如右图所示)。编写
2、适当的事件过程，使在程序运行后，通过 Form_Load()事件过程加载窗体时，执行语句 List1.Addltem“Item“；单击某个列表项时，执行语句 List1.AddItermList1.Text 一次。注意：文件必须存放在考生文件夹中，窗体文件名为 sj2.frm工程文件名为 sj2.vbp。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp，相应的窗体文件名为 sj3.frm。请在名为 Form1 的窗体上绘制一个名称为 Text1 的文本框和一个名称为 Cmd1、标题为“大小写转换”的命令按钮，如下图所示。在
3、程序运行时，单击“大小写转换”按钮，可以把 Text1 中的大写字母转换为小写，把小写字母转换为大写。窗体文件中已经给出了“大小写转换”按钮的 Click 事件过程，但不完整，请去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容。注意：不能修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_4.在考生文件夹中有一个工程文件 sj4.vbp，相应的窗体文件名为 sj4.frm。其窗体(Form1)如下图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单
4、击“加密”按钮后，根据选中的单选按钮后面的数字 n，把文中的每个字母改为它后面的第 n 个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符“，把程序中的问号“?”改为正确的内容。注意：不能修改程序的其他部分和控件的属性。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在名为 Form1 的窗体上建立一个文本框(名称为 Text1,MultiLlne 属性为 True，ScrollBars 属性为 2)和两个命令按钮(名称分别为 Cmd1
5、 和 Cmd2，标题分别为 Read 和 Save)，如下图所示。要求程序运行后，如果单击 Read 按钮，则读入 in18.txt 文件中的 100 个整数，放入一个数组中(数组下界为 1)；如果单击 Save 按钮，则挑出 100 个整数中的所有奇数，在文本框 Text1 中显示出来，并把所有奇数之和存入考生文件夹中的文件 out18.txt 中(在考生文件夹下有标准模块 model.bas，其中 putdata过程可以把一个整型数存入 out18.txt 文件，考生可以把该模块文件添加到自己的工程中)。注意：程序中对文件的操作统一使用相对路径；文件必须存放在考生文件夹中，窗体文件名为 s
6、j5.frm，工程文件名为 sj5.vbp；结果存入 0ut18.txt 文件，否则没有成绩。（分数：30.00）_二级 VISUAL+BASIC 机试-106 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体中建立一个命令按钮，名为 Cmd1，标题为 Show(如右图所示)。编写适当的事件过程，使程序运行后，若单击 Show 按钮，则执行语句。Form1.Print“Show“；如果单击窗体，则执行语句Form1.cls。注意：文件必须存放在考生文件夹中，窗体文件名为 sj1.frm，工程文件名为 sj1.v
7、bp。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，标题为 Show；打开代码窗口中输入如下代码：Private Sub Cmd1_Click()Form1.Print“Show“End SubPrivate Sub Form_Click()End Sub按要求保存文件即完成本题。)解析：2.在名为 Form1 的窗体上建立一个名为 List1 的列表框(如右图所示)。编写适当的事件过程，使在程序运行后，通过 Form_Load()事件过程加载窗体时
8、，执行语句 List1.Addltem“Item“；单击某个列表项时，执行语句 List1.AddItermList1.Text 一次。注意：文件必须存放在考生文件夹中，窗体文件名为 sj2.frm工程文件名为 sj2.vbp。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 ListBox 控件图标，在窗体上拖拉出一个列表框。使用 Addltem 或者 RemoveItem 方法可以添加或者删除 ListBox 控件中的项目；打开代码窗口输入如下代码：Private Sub Form_Load()List1.AddItem“Item“End SubPriva
9、te Sub List1_Click()List1.TextEnd Sub按要求保存文件即完成本题。)解析：二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp，相应的窗体文件名为 sj3.frm。请在名为 Form1 的窗体上绘制一个名称为 Text1 的文本框和一个名称为 Cmd1、标题为“大小写转换”的命令按钮，如下图所示。在程序运行时，单击“大小写转换”按钮，可以把 Text1 中的大写字母转换为小写，把小写字母转换为大写。窗体文件中已经给出了“大小写转换”按钮的 Click 事件过程，但不完整，请去掉程序中的注释符“”，把程序中的问号“?
10、”改为正确的内容。注意：不能修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_正确答案：(打开题目所给工程文件；单击工具箱 ee 的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1；单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，Caption 属性为“大小写转换”；将注释语句改为：n%=Asc(“a“)-Asc(“A“)Text1.Text=a$按要求保存文件即完成本题。)解析：4.在考生文件夹中有一个工程文件 sj4.vbp，相应的窗
11、体文件名为 sj4.frm。其窗体(Form1)如下图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字 n，把文中的每个字母改为它后面的第 n 个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符“，把程序中的问号“?”改为正确的内容。注意：不能修改程序的其他部分和控件的属性。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_正确答案：(打开题目
12、所给工程文件；将注释语句改为：n=Val(Optl(k).Caption)For k=1 To mc=Mid$(Text1.Text,k,1)a=a+c按要求保存文件即完成本题。)解析：三、3 综合应用题(总题数：1，分数：30.00)5.在名为 Form1 的窗体上建立一个文本框(名称为 Text1,MultiLlne 属性为 True，ScrollBars 属性为 2)和两个命令按钮(名称分别为 Cmd1 和 Cmd2，标题分别为 Read 和 Save)，如下图所示。要求程序运行后，如果单击 Read 按钮，则读入 in18.txt 文件中的 100 个整数，放入一个数组中(数组下界为
13、1)；如果单击 Save 按钮，则挑出 100 个整数中的所有奇数，在文本框 Text1 中显示出来，并把所有奇数之和存入考生文件夹中的文件 out18.txt 中(在考生文件夹下有标准模块 model.bas，其中 putdata过程可以把一个整型数存入 out18.txt 文件，考生可以把该模块文件添加到自己的工程中)。注意：程序中对文件的操作统一使用相对路径；文件必须存放在考生文件夹中，窗体文件名为 sj5.frm，工程文件名为 sj5.vbp；结果存入 0ut18.txt 文件，否则没有成绩。（分数：30.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 TextB
14、ox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1，将 MultiLine 属性设置为 True，ScrollBars 属性设置为 2；单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为 Cmd1 和 Cmd2，Caption 分别为 Read 和 Save；打开代码窗口输入如下代码：Private Sub Cmd1_Click()Open App.Path&“/in.txt“For InputAs#1Text1.Text=“ “For i=1 To 100Input#1,a(i)Text1.Text=Text1.Text & a(i) & Space(1)Next iClose#1End SubPrivate Sub Cmd2_Click()Text1.Text=“ “s=0For i=1 To 100If a(i)Mod20 ThenText1.Text=Text1.Text & a(i) & Space(1)S=s+a(i)End IfNextPut datasEnd Sub按要求保存文件即完成本题。)解析：
