VF上机试题答案

《VF上机试题答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、56.【操作步骤】（1）步骤1：单击常用工具栏中的"打开"按钮，打开表单formtest.scx。步骤2：在"表单设计器"中，在表单控件的"属性"对话框的Caption处输入"考试系统"。（2）在"表单设计器"中，添加一个标签Label1，在其"属性"对话框的Caption处输入"欢迎使用考试系统"，在ForeColor处输入"255,0,0"。（3）在"表单设计器"中，添加一个计时器控件，在其"属性"对话框的Name处输入"Timerfor"。（4）选定计时器控件Timerfor，在其"属性"对话框的Interval处输入"200"。（1）

2、【操作步骤】在命令窗口输入以下语句。SELECTTOP5姓名,出生日期;FROMemployee;ORDERBY出生日期;INTOTABLEemage将程序语句复制到emage.txt文件中。（2）【操作步骤】打开程序文件cylinder.prg，程序修改如下：第1处改为：PARAMETERSa,b第2处改为：RETURNc【解题思路】利用表单设计器新建表单，添加各控件，设置相关属性和方法，编写执行程序。【操作步骤】步骤1：单击常用工具栏中的"新建"按钮，文件类型选择"表单"，打开表单设计器。单击工具栏上"保存"按钮，在弹出"保存"对话框中输

3、入"calculator"即可。步骤2：在"表单设计器"中，在表单控件的"属性"对话框的Name处输入"calculator"，在Caption处输入"计算器"。步骤3：在"表单设计器"中，依次建立Label1、Label2和Label3三个标签，并分别修改其标题Caption的值，依次为"操作数1"、"操作数2"和"计算结果"。步骤4：在"表单设计器"中，依次建立Text1、Text2和Text3三个文本框，Text3的Enable属性选择".F-假."。步骤5：在"表单设计器"中，添加一个"选项按钮组"，在其"属性"的ButtonCoun

4、t处输入"4"，调整这四个按钮的排列位置以及各个Caption的值。步骤6：在"表单设计器"中，添加两个命令按钮（Command1和Command2），将第1个命令按钮Command1的Caption属性改为"计算"，将第2个命令按钮Command2的Caption属性改为"关闭"。步骤7：双击"计算"按钮，在"Command1.Click"编辑窗口中输入下列程序docasecasethisForm.optiongroup1.value=1thisForm.Text3.Value=val(thisForm.Text1.Value)+val(t

5、hisForm.Text2.Value)casethisForm.optiongroup1.value=2thisForm.Text3.Value=val(thisForm.Text1.Value)-val(thisForm.Text2.Value)casethisForm.optiongroup1.value=3thisForm.Text3.Value=val(thisForm.Text1.Value)*val(thisForm.Text2.Value)casethisForm.optiongroup1.value=4thisForm.Te

6、xt3.Value=val(thisForm.Text1.Value)/val(thisForm.Text2.Value)endcase步骤8：双击"关闭"命令按钮，在"Command2.Click"编辑窗口中输入"ThisForm.Release"，接着关闭编辑窗口。57.【解题思路】修改表单中各属性和方法。【操作步骤】（1）步骤1：单击常用工具栏中的"打开"按钮，打开表单calculator.scx。步骤2：在"表单设计器"中，在表单控件的"属性"对话框的Name处输入"calculator"。（2）在"表单设计器"中，选中Text2控件

7、，在其"属性"对话框的InputMask处输入"##########"。（3）在"表单设计器"中，选中Text3控件，在其"属性"对话框的ReadOnly处选择".T.-真"。（4）在"表单设计器"中，添加一个"选项按钮组"，在其"属性"对话框的ButtonCount处输入"4"，调整这四个按钮的排列位置以及各个Caption的值。（1）【操作步骤】打开程序文件cylinder.prg，修改程序如下：第1处：函数调用而不是过程调用，所以应将DOcyaWITHr,h,carea改为carea=cya(r,h)第2处：函数返回应返回值，所以应将R

8、ETURN改为RETURNc（2）【操作步骤】在命令窗口输入以下语句。SELECTTOP3Orders.职工号,Employee.姓名,COUNT(*)AS订单数;