VFP设计题及其答案

FOR I=1 TO THISFORM.LIST1.LISTCOUNT IF THISFORM.LIST1.SELECTED(I)

THISFORM.LIST2.ADDITEM(THISFORM.LIST1.LIST(I)) ENDIF ENDFOR

42、2010-6-14（7020010）

IF THISFORM.CHECK1.VALUE=1

SELECT * FROM PX WHERE 性别=\女\ORDER BY 教师号 INTO TABLE PX1.DBF ENDIF

IF THISFORM.CHECK2.VALUE=1

SELECT 系号,AVG(基本工资) AS 平均工资 FROM PX GROUP BY 系号 INTO TABLE PX2.DBF ENDIF

43、2009-6-13（2220008）

（1）设置选项按钮组的VALUE属性为1。

（2）在“统计”的CLICK事件中编写如下代码： 方法一：

DO CASE

CASE THISFORM.OPTIONGROUP1.VALUE=1 COUNT FOR TEACH1.系号=\ CASE THISFORM.OPTIONGROUP1.VALUE=2 COUNT FOR TEACH1.系号=\ CASE THISFORM.OPTIONGROUP1.VALUE=3 COUNT FOR TEACH1.系号=\ENDCASE

THISFORM.TEXT1.VALUE=AA 方法二：

DO CASE

CASE THISFORM.OPTIONGROUP1.VALUE=1

SELECT 教师号,COUNT(*) FROM TEACH1,DDM1 WHERE TEACH1.系号=DDM1.系号 AND 系名=\电子\ X CASE THISFORM.OPTIONGROUP1.VALUE=2

SELECT 教师号,COUNT(*) FROM TEACH1,DDM1 WHERE TEACH1.系号=DDM1.系号 AND 系名=\计算机\ X

CASE THISFORM.OPTIONGROUP1.VALUE=3

SELECT 教师号,COUNT(*) FROM TEACH1,DDM1 WHERE TEACH1.系号

13

=DDM1.系号 AND 系名=\机械\ X ENDCASE

THISFORM.TEXT1.VALUE=X(2)

44、2010-6-14（7020001）

（1）设置选项按钮组的VALUE属性为1;

(2) 在”确定”按钮的CLICK事件中编写如下代码:

IF THISFORM.OPTIONGROUP1.VALUE=1

THISFORM.GRID1.RECORDSOURCE=\用户号,用户名,联系人,联系电话 FROM CUSTOMER ORDER BY 用户名 DESC INTO CURSOR AAA\

ELSE

THISFORM.GRID1.RECORDSOURCE=\用户号,用户名,联系人,联系电话 FROM CUSTOMER ORDER BY 联系人 ASC INTO CURSOR AAA\ENDIF

注:该题题目的要求和界面有些矛盾?

45、2010-6-14（7020004）

(1) 选项按钮组的VALUE设置为1; (2) “统计”CLICK事件编写如下代码:

DO CASE

CASE THISFORM.OPTIONGROUP1.VALUE=1

THISFORM.GRID1.RECORDSOURCE=\年度,SUM(上半年利润+下半年利润) FROM SPDMB,XSB WHERE SPDMB.商品号=XSB.商品号 AND 商品名='超级MP4' GROUP BY 年度 INTO CURSOR AAA\

CASE THISFORM.OPTIONGROUP1.VALUE=2

THISFORM.GRID1.RECORDSOURCE=\年度,SUM(上半年利润+下半年利润) FROM SPDMB,XSB WHERE SPDMB.商品号=XSB.商品号 AND 商品名='硬盘数码摄像机' GROUP BY 年度 INTO CURSOR AAA\

CASE THISFORM.OPTIONGROUP1.VALUE=3

THISFORM.GRID1.RECORDSOURCE=\年度,SUM(上半年利润+下半年利润) FROM SPDMB,XSB WHERE SPDMB.商品号=XSB.商品号 AND 商品名='数码照像机' GROUP BY 年度 INTO CURSOR AAA\ENDCASE

14

46、2010-12-26（1720001）

SELECT 商品名称,SUM(销售价*销售数量) AS 销售总金额 FROM FSTOCKNUMS,FSTOCKNAMES WHERE FSTOCKNUMS.商品编号=FSTOCKNAMES.

在“查询”的CLICK事件中编写如下代码： IF THISFORM.OPTIONGROUP1.VALUE=1

THISFORM.GRID1.RECORDSOURCE=\股票代码,持有数量,买入价 FROM FNUMS WHERE 股票代码=ALLTRIM(THISFORM.COMBO1.VALUE) ORDER BY 买入价 ASC INTO CURSOR AAA\ELSE

THISFORM.GRID1.RECORDSOURCE=\股票代码,持有数量,卖出价 FROM FNUMS WHERE 股票代码=ALLTRIM(THISFORM.COMBO1.VALUE) ORDER BY 卖出价 DESC INTO CURSOR AAA\ENDIF

47、2010-12-26（1720002）

商品编号 GROUP BY FSTOCKNUMS.商品编号 INTO CURSOR AAA THISFORM.GRID1.RECORDSOURCE=\

注：该题中GRID1的RECORDSOURCETYPE己设置为：1-别名。 48、2010-12-26（1720004）

SELECT 售价（万）,地址 FROM FSHANGPF

WHERE =THISFORM.COMBO1.VALUE INTO CURSOR AAA

SELECT AVG(售价（万）) FROM FSHANGPF WHERE

=THISFORM.COMBO1.VALUE INTO ARRAY X THISFORM.GRID1.RECORDSOURCE=\THISFORM.TEXT1.VALUE=X(1)

THISFORM.GRID1.COLUMN1.WIDTH=60 &&修改第1列的列宽 注：该题中GRID1的RECORDSOURCETYPE己设置为：1-别名。

房型房型

15

49、2010-12-26（1720006）

在LIST1的INTERACTIVECHANGE事件中编写如下代码: USE ALLTRIM(THISFORM.LIST1.VALUE) THISFORM.GRID1.RECORDSOURCE=

\ALUE) INTO CURSOR AAA\THISFORM.TEXT1.VALUE=RECCOUNT()

设计题3

50、2009-6-13（2220002）

方法一: 在”求三位正整数”按钮的CLICK事件编写代码： N=THISFORM.TEXT1.VALUE IF N>=100

BAI=INT(N/100) SHI=INT(N0/10) GE=INT(N0) THISFORM.TEXT2.VALUE=BAI THISFORM.TEXT3.VALUE=SHI THISFORM.TEXT4.VALUE=GE ELSE

THISFORM.RELEASE ENDIF

方法二: 在”求三位正整数”按钮的CLICK事件编写代码： C=ALLTRIM(STR(THISFORM.TEXT1.VALUE)) N=LEN(C) IF N=3

BAI=SUBSTR(C,1,1) SHI=SUBSTR(C,2,1) GE=SUBSTR(C,3,1) THISFORM.TEXT2.VALUE=BAI

16