全国计算机等级二级VisualFoxPro上机试题（7）
一、基本操作题
(1)在Form1的窗体上绘制一个命令按钮，其名称为Command1、标题为“隐藏”;再画一个文本框，其名称为Text1、内容为“模拟考试”。编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现;此时如果单击命令按钮，则隐藏文本框，如图7-1所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。
(2)在窗体Form1中绘制一个水平滚动条与一个标签，标签的名称为Label1，内容为空;水平滚动条的最大值为900，最小值为300，名称为HScroll1。要求编写适当的事件过程，只有当移动滚动条中的滚动块时，文本框才接收HScroll1的当前值，如图7-2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
二、简单应用题
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm，该程序是不完整的。本题内容如下：窗体上已有两个文本框，名称为Text1、Text2。要求在窗体上补充两个单选按钮，名称分别为Option1、Option2，标题分别为“全部小写”和“全部大写”。要求补充完整代码后，在Text1中输入一段字符，选中“全部小写”，Text2显示全部小写的字符串;选中“全部大写”，Text2显示全部大写的字符串，如图7-3所示。
注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有一个工程文件sj4.vbp，在窗体Form1上设置一个控件数组Check1(i)，该控件数组包括6个复选框控件，标题不限。另设一个名称为Command1、标题为“统计选中个数”的命令按钮。程序运行后，单击“统计选中个数”按钮时，统计有多少个复选框被选中，并用MsgBox将其显示出来，如图7-4所示。
注意：请去掉程序中的注释符“'”把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
三、综合应用题
在考生文件夹下有一个工程文件sj5.vbp，窗体上有一个菜单“编辑”，名称为Edit，下面有一个二级菜单，含两个菜单项，名称分别为Read和Search，标题分别为“读取”和“查找”。另有一个文本框，名称为Text1，内容为空;3个标签名称分别为Label1、Label2与Label3，标题分别为“文件内容”、“查找结果”和“空”。要求考生编写适当的程序，实现下面描述的功能。
本程序模拟Word中的查找功能，描述如下：程序运行时，如果单击“读取”菜单项，则把考生文件夹下的in5.txt文件中的数据读人到文本框Text1中;如果单击“查找”菜单项，则弹出对话框，输入需要查找的内容，将查找到的个数显示到Label3中，并把个数存入out5.txt中。程序运行时的窗体界面如图7-5所示。
注意：考生不得修改程序控件及控件的属性，最后应把修改后的文件按原文件名存盘。
上机考试试题答案与解析
一、基本操作题
(1)本题考查控件画法、文本框和命令按钮的属性设置、窗体和命令按钮的事件。
文本框是否可见可通过其Visible属性设置，值为True表示显示，值为False表示不显示。文本框的Text属性用于设置或返回其显示的文本。
根据题意，新建“标准EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1、Text属性为“模拟考试”，命令按钮的名称为Command1、Caption属性为“隐藏”。双击Command1进入代码窗口，编写如下代码：
(2) 滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围。与滚动条有关的事件主要有Change事件和Scroll事件，在改变滚动框(即滑块)位置后触发Change 事件;在拖动滚动框(即滑块)过程中触发Scroll事件。
根据题意，新建“标准EXE”工程，将一个标签和一个水平滚动条控件添加到窗体中，标签的名称为Label1、Caption属性为空，水平滚动条的名称为HScroll1、Min属性为300、Max属性为900。双击Command1进入代码窗口，编写如下代码：
二、简单应用题
(1) 本题主要考查单选按钮(OptionButton)的画法及常用属性的设置、文本框(TextBox)的Text属性、大小写字母转换函数UCase( )和LCase( )的使用。单选按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False表示未选中、True表示选中。文本框中输入的内容可以由其Text属性来设置或取得。将字符串中小写字母转化为大写字母可由UCase( )函数来实现，将字符串中大写字母转化为小写字母可由LCase( )函数来实现。
根据题意，将两个文本框控件和两个单选按钮控件添加到窗体中，文本框的名称分别为Text1 和Text2、Text属性都为空，单选按钮的名称分别为Option1和Option2、Cap-tion属性分别为“全部小写”和“全部大写”。双击 Com-mand1进入代码窗口，编写如下代码：
(2)本题主要考查复选按钮控件数组及MsgBox( )函数的使用。
复选按钮组常用于提供多重选择，Value属性值决定每个复选按钮的选中状态：0表示未选中;1表示选中;2表示不可用(即灰色)。
MsgBox( )函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的Integer类型值，其常用语法为：MsgBox(prompt[，buttons] [，title])。其中，prompt参数为消息框的提示信息;buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式;title参数为消息框标题栏上显示的内容。
添加控件数组的方法是：先建立第一个控件，然后对该控件进行“复制”、“粘贴”操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号，控件数组的Count属性用于返回数组中元素的个数。
根据题意，将一组六个复选按钮控件和一个命令按钮添加到窗体中，Check的名称都为Check1、Caption属性自定义，命令按钮的名称为 Command1、Caption属性为“统计选中个数”，设置完成后双击Command1进入代码窗口，用For循环逐一检查复选按钮数组各元素的 Value属性值是否为1，若是，将统计变量加1。将最终统计结果用MsgBox( )函数显示。补充后的具体代码如下：
三、综合应用题
InputBox( )函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt[，Title] [，Default])。EOF( )函数用来测试文件的结束状态，以避免在文件输入时出现“输入超出文件尾”的错误。对顺序文件来说，如果已经到文件末尾，则EOF函数返回True，否则返回False。
程序中先用Open语句打开文件in5.txt，然后用Input#语句读人数据存人到变量，将变量内容显示到文本框中;单击“查找”菜单项要实现的功能可用InputBox( )函数、Len( )函数、Mid( )函数及For循环来完成。
根据题意，在菜单编辑器中添加一个主菜单，名称为Edit、Caption属性为“编辑”，在其下面添加两个子菜单，名称分别为Read和Search、 Caption属性分别为“读取”和“查找”，内缩一位，再在Form1中添加3个标签和一个文本框控件，Lable的名称分别为Label1和 Label2、Label3、Caption属性分别为“文件内容”、“查找结果”和“空”，文本框的名称为Text1、Text属性为空、 MultiLine属性为True、ScrollBar属性为2。单击菜单自选项进入代码窗口，补充后的代码如下：
