VFP考试复习范围 - 图文

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

46、2010-12-26（1720001）

在“查询”的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）

17

SELECT 售价（万）,地址 FROM FSHANGPF WHERE 房型=THISFORM.COMBO1.VALUE INTO CURSOR AAA

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

SELECT 商品名称,SUM(销售价*销售数量) AS 销售总金额 FROM FSTOCKNUMS,FSTOCKNAMES WHERE FSTOCKNUMS.商品编号=FSTOCKNAMES.商品编号 GROUP BY FSTOCKNUMS.商品编号 INTO CURSOR AAA THISFORM.GRID1.RECORDSOURCE=\

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

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

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

49、2010-12-26（1720006）

在LIST1的INTERACTIVECHANGE事件中编写如下代码:

USE ALLTRIM(THISFORM.LIST1.VALUE) THISFORM.GRID1.RECORDSOURCE=

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

18

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) 设计题3

GE=SUBSTR(C,3,1) THISFORM.TEXT2.VALUE=BAI THISFORM.TEXT3.VALUE=SHI THISFORM.TEXT4.VALUE=GE 50、2009-6-13（2220002）

ELSE

THISFORM.RELEASE ENDIF

51、2009-6-13（2220003）

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

19

N=THISFORM.TEXT1.VALUE S=0

FOR I=1 TO N IF I%2=0 S=S+I ENDIF ENDFOR

THISFORM.TEXT2.VALUE=S 52、2009-6-13（2220006）

N=THISFORM.TEXT1.VALUE S=0

FOR I=1 TO N IF I%2<>0 S=S+I ENDIF

ENDFOR

THISFORM.TEXT2.VALUE=S 53、2010-6-14（7020003）

N=THISFORM.TEXT1.VALUE S=0

FOR I=1 TO N

IF I%5=0 AND I%2<>0 S=S+I ENDIF ENDFOR

THISFORM.TEXT2.VALUE=S 54、2010-6-14（7020005）

N=THISFORM.TEXT1.VALUE S=0

20