1、二级 VISUAL+BASIC 机试-108 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个标签，名为 Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为 Text1 其宽、高分别为 1500 和 300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord 窗口”。运行时的窗体如下图所示。注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。（分数：15.0
2、0）_2.在名为 Form1 的窗体上绘制一个文本框(名称 Text1,Text 属性为“我”，Font 属性为“宋体”)和一个水平滚动条(名称 HSI)。在属性窗口中对滚动条设置如下属性：Min 10Max 500LargChange 5SmallChange 3编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的“我”字。运行后的窗体如下图所示。注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中
3、有一个工程文件 sj3.vbp 及窗体文件 sj3.frm。请在名为 Form1 的窗体上绘制两个复选框，名称分别为 Chk1 和 Chk2，标题分别为“物理”和“高等数学”；绘制一个文本框，名为 Text1；再绘制一个命令按钮，名为 Cmd1，标题为“确定”，如下图所示。（分数：20.00）_4.请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮，就可以按照表中的要求把结果显示在文本框中。按原名并在原文件夹中保存。注意：不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前，必须进行产生下一个结果的操作。如下图所示，在名为 Form
4、1 的窗体上建立一个名称为 Text1 的文本框；建立两个主菜单，其标题分别为“颜色”和“帮助”，名称分别为 vbColor 和 vbHelp，其中“颜色”菜单包括“红色”、“绿色”和“黄色”3 个菜单项，名称分别为 vbRed、vbGreen 和 vbYellow。程序运行后，如果单击“红色”菜单项，则文本框内显示“西红柿是红色的”；如果单击“绿色”菜单项，则在文本框内显示“苹果是绿色的”；如果单击“黄色”菜单项，则在文本框内显示“香蕉是黄色的”。注意：不能使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 sj4.frm，工程文件名为 sj4.vbp。（分数：20.00
5、）_三、3 综合应用题(总题数：1，分数：30.00)5.在窗体 Form1 上建立 3 个菜单(名称分别为 vbRead、vbCalc 和 vbSave，标题分别为“读数”、“计算”和“存盘”)，然后绘制一个文本框(名称为 Text1，MultiLine 属性设置为 True，ScrollBars 属性设置为2)，如下图所示。程序运行后，如果执行“读数”命令，则读入 in45.txt 文件中的 100 个整数，放入一个数组中，数组的下界为 1；如果执行“计算”命令，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果执行“存盘”命令，则把所求得的
6、和存入考生文件夹下的out45.txt 文件中。在考生文件夹下有一个工程文件 sj5.vbp，考生可以装入该文件。窗体文件 si3.frm 中的 ReadData 过程可以把 in45.txt 文件中的 100 个整数读入 Art 数组中；而 WriteData 过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为 out45.txt)。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sj5.vbp，窗体文件名仍为sj5.frm。（分数：30.00）_二级 VISUAL+BASIC 机试-108 答案解析(总分：100.00，做题时间：90 分钟)
7、一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个标签，名为 Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为 Text1 其宽、高分别为 1500 和 300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord 窗口”。运行时的窗体如下图所示。注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体。单击工具箱中的 Label 控件图标，在窗体上拖
8、拉出一个标签，在其属性窗口设置名称为 Lab1，Caption属性为“请输入密码”。单击工具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1；在属性窗口设置其 Width 属性为 1500，Height 属性为 300，设置 PasswordChar 属性为“*”。按要求保存文件即完成本题。)解析：2.在名为 Form1 的窗体上绘制一个文本框(名称 Text1,Text 属性为“我”，Font 属性为“宋体”)和一个水平滚动条(名称 HSI)。在属性窗口中对滚动条设置如下属性：Min 10Max 500LargChange 5SmallCha
9、nge 3编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的“我”字。运行后的窗体如下图所示。注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体。单击工具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1，Text 属性为“我”。单击工具箱中的 HScrollBar 控件图标，在窗体上拖拉出一个水平滚动条，在属性窗口设置该水平滚动条名称为 HS1，Max 为 100，Min
10、 为 10，LargeChange 为 5，SmallChange 为 2。打开代码窗口，输入如下代码：Text1.FontSize=HS1.ValueEnd Sub按要求保存文件即完成本题。)解析：二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp 及窗体文件 sj3.frm。请在名为 Form1 的窗体上绘制两个复选框，名称分别为 Chk1 和 Chk2，标题分别为“物理”和“高等数学”；绘制一个文本框，名为 Text1；再绘制一个命令按钮，名为 Cmd1，标题为“确定”，如下图所示。（分数：20.00）_正确答案：(打开题目所给工程文件；单
11、击工具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置其名称为 Text1；单击工具箱中的 CheckBox 控件图标，在窗体上拖拉出两个复选框，在属性窗口设置两个复选框名称分别为 Chk1 和 Chk2，标题分别为“物理”和“高等数学”；单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮为 Cmd1，Caption 为“确定”；打开代码窗口输入如下代码：Private Sub Cmd1_Click()IfChk1.Value=Checked ThenIfChk2.Value=Checked ThenText1.
12、Text=“我选的课程是物理高等数学“ElseText1.Text=“我选的课程是物理“End IfElseIf Chk2.Value=Cheeked ThenText1.Text=“我选的课程是高等数学“ElseText1.Text=“我选的课程是“End IfEnd IfEnd Sub按要求保存文件即完成本题。)解析：4.请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮，就可以按照表中的要求把结果显示在文本框中。按原名并在原文件夹中保存。注意：不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前，必须进行产生下一个结果的操作。
13、如下图所示，在名为 Form1 的窗体上建立一个名称为 Text1 的文本框；建立两个主菜单，其标题分别为“颜色”和“帮助”，名称分别为 vbColor 和 vbHelp，其中“颜色”菜单包括“红色”、“绿色”和“黄色”3 个菜单项，名称分别为 vbRed、vbGreen 和 vbYellow。程序运行后，如果单击“红色”菜单项，则文本框内显示“西红柿是红色的”；如果单击“绿色”菜单项，则在文本框内显示“苹果是绿色的”；如果单击“黄色”菜单项，则在文本框内显示“香蕉是黄色的”。注意：不能使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 sj4.frm，工程文件名为 sj4
14、.vbp。（分数：20.00）_正确答案：(新建一个名为 Form1 的窗体；执行“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器；在“标题”栏中输入“颜色”，在“名称”栏中输入 vbColor,单击“下一个”按钮，再单击编辑区的右箭头按钮，在“标题”栏中输入“红色”，在“名称”栏中输入 vbRed；单击“下一个”按钮，在“标题”栏中输入“绿色”，在“名称”栏中输入 vbGreen；单击“下一个”按钮，在“标题”栏中输入“黄色”，在“名称”栏中输入“vbYellow”；单击“下一个”按钮，再单击编辑区的左箭头按钮，在“标题栏”中输入“帮助”，在“名称”栏中输入“vbHelp”；打开代码窗口输
15、入如下代码：Private Sub vbGreen_Click()Text1.Text=“苹果是绿色的“End SubPrivate Sub vbRed_Click()Text41.Text=“西红柿是红色的“End SubPrivate Sub vbYellow_Click()Text1.Text=“香蕉是黄色的“End Sub按要求保存文件即完成本题。)解析：三、3 综合应用题(总题数：1，分数：30.00)5.在窗体 Form1 上建立 3 个菜单(名称分别为 vbRead、vbCalc 和 vbSave，标题分别为“读数”、“计算”和“存盘”)，然后绘制一个文本框(名称为 Text1，
16、MultiLine 属性设置为 True，ScrollBars 属性设置为2)，如下图所示。程序运行后，如果执行“读数”命令，则读入 in45.txt 文件中的 100 个整数，放入一个数组中，数组的下界为 1；如果执行“计算”命令，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果执行“存盘”命令，则把所求得的和存入考生文件夹下的out45.txt 文件中。在考生文件夹下有一个工程文件 sj5.vbp，考生可以装入该文件。窗体文件 si3.frm 中的 ReadData 过程可以把 in45.txt 文件中的 100 个整数读入 Art 数组中
17、；而 WriteData 过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为 out45.txt)。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sj5.vbp，窗体文件名仍为sj5.frm。（分数：30.00）_正确答案：(1打开题目所给的工程文件；2执行“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器；在“标题”栏中输入“读数”，在“名称”栏中输入“vbRead”；单击“下一个”按钮，在“标题”栏中输入“计算”，在“名称”栏中输入“vbCalc”；单击“下一个”按钮，在“标题”栏中输入“存盘”，在“名称”栏中输入“vbSave”；3单击工
18、具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置其名为Text1，Multiline 属性值为 Turn，ScrollBars 属性设置为 2；4打开代码窗口输入如下代码：Private Sub vbCalc_Click()Text1.Text=“ “For i=1 To 100 Step 2Text1.Text=Text1.Text&Arr(i)&Space(5)temp=temp+Arr(i)Next iPrint tempEnd SubPrivate Sub vbRead_Click()ReadDataEnd SubPrivate Sub vbSave_Click()WriteData“out45.txt“,tempEnd Sub5按要求保存文件即完成本题。)解析：
