全国计算机等级二级VisualFoxPro上机试题（4）
一、基本操作题
(1)在名称为Form1的窗体上画一个名称为Check1的复选框数组(Index属性从0开始)，含4个复选框，其标题分别为“Item1”、“Item2”、“Item3”和“Item4”。利用属性窗口设置适当的属性，使“Item1”未选，“Item2”、“Item3”被选中，“Item4”为灰色，程序运行时的窗体界面如图4-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
(2)在窗体上画一个命令按钮，其名称为Command1，标题为“清空标题”，编写适当的事件过程。程序运行后，窗体的标题为“模拟考试”，如图4-2所示，如果单击命令按钮，则清除窗体的标题，如图4-3所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
二、简单应用题
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm，该程序是不完整的。请考生在窗体上设置一个计时器，名称为Timer1，并补充完整程序代码，使得程序开始运行后，每隔3秒，用黑色填充四分之一的圆，界面如图4-4所示。
注意：请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时，可以输入4个数值，随后程序对这4个数值进行升序排序，并显示出来，如图4-5所示。
注意：请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
三、综合应用题
在考生目录下有一个工程文件sj5.vbp，其窗体上有一个文本框，名称为Text1;还有一个命令按钮，名称为Command1，标题为“输出结果”，如图4-6所示。并有一个函数isPrimeNum可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回true，否则返回false。请编写适当的事件过程，使得在运行时，单击“输出结果”按钮，则找出大于2000的最小素数，并显示在Text1中。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj5.frm，工程文件名为sj5.vbp。
上机考试试题答案与解析
一、基本操作题
(1)本题考查在窗体中加入控件数组及复选框控件(CheckBox)的使用。复选框组可用于实现多重选择，每个复选框的选中状态由其Value属性值决定：0为未选;1为选中;2为不可用(即灰色)。根据题意，将一个复选框控件添加到窗体中，其名称为Check1，再选中此复选框，复制、粘贴，在弹出的对话框中选择“是”，即创建含有4个控件的控件数组。Index属性分别为0、1、2、3，Caption属性分别为“Item1”、“Item2”、“Item3”和“Item4”，“Item1”的Value属性为 0，“Item2”和“Item3”的
(2)本题考查命令按钮(CommandButton)控件的画法和窗体相关属性，以及简单的事件过程编写。
根据题意，将一个命令按钮添加到窗体中，其名称为Command1、Caption属性为“清空标题”，Form1的Caption属性为“模拟考试”。双击Command1进入代码窗口，编写如下代码：
二、简单应用题
(1) 计时器控件用以实现在规定的时间间隔触发其Timer事件，执行有关事件过程代码，来完成对应功能。In-terval属性用于设置触发计时器的 Timer事件的时间间隔，单位为毫秒，值为0时计时器不启用。Enabled属性控制计时器是否开始启用，True为启用，False为不启用。程序中用到了CirCle函数来画圆，其格式为：原点，半径,[颜色]，[起始角度]，[结束角度]。每隔3秒填充一次，也就是第4秒填充一次，因此，以4为循环周期。根据题意，将一个计时控件添加到窗体中，其名称为Timer1，间隔为3000毫秒，双击Timer1，进入代码编写窗口，补充后的具体代码如下：
(2)本题主要考查考生阅读程序的能力，以及对数组、输入函数、If语句的掌握情况。
根据题意，将两个命令按钮添加到窗体中，名称分别为Command1和Command2、Caption分别为“输入”和“排序”，设置完成后双击Command1进入代码窗口，补充后的代码如下：
三、综合应用题
本题重点考查函数调用、For循环语句、If判断语句。素数的判断准则就是看该数除了1及其本身外是否别无其他约数。要找出大于2000的最小素数，可以用 FOR循环语句逐个对大于2000的整数通过调用原题提供的isPrime-Num()函数判断其是否为素数，若找到第一个素数，这就是最小素数，将其赋给Text1的Text属性，并用Exit For结束循环。
根据题意，双击Commandl进入代码窗口，补充后的代码如下：
