发布时间 : 星期三 文章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