求vfp的表单设计程序怎么编
1个回答
2011-06-27
展开全部
建一表单FORM1,再FORM1里添加3个文本框和一个按钮。
TEXT1用于输入1,TEXT2用于输入N的具体值比如你将输入59.
COMMAND1.CLICK事件:
IF LEN(ALLTRIM(THISFORM.TEXT1.VALUE))=0 OR LEN(ALLTRIM(THISFORM.TEXT2.VALUE))=0
=MESSAGEBOX("缺少运算参数",0)
ELSE
S=0
A=VAL(ALLTRIM(THISFORM.TEXT1.VALUE))
B=VAL(ALLTRIM(THISFORM.TEXT2.VALUE))
FOR I=A TO B
S=S I
ENDFOR
THISFORM.TEXT3.VALUE=S
ENDIF
THISFORM.REFRESH
网上购物最大的缺点就是不能试穿。所以,如果是购买品牌服装,最好先去专卖店试好;如果是时装类YY,购买时认真咨询卖家,报上你的身高、体重、平时着装尺寸等,听取建议选择。祝你购物愉快!经济实惠、价廉物美、方便快捷,时尚快购吧 就是这样一个购物便捷,导航清晰
TEXT1用于输入1,TEXT2用于输入N的具体值比如你将输入59.
COMMAND1.CLICK事件:
IF LEN(ALLTRIM(THISFORM.TEXT1.VALUE))=0 OR LEN(ALLTRIM(THISFORM.TEXT2.VALUE))=0
=MESSAGEBOX("缺少运算参数",0)
ELSE
S=0
A=VAL(ALLTRIM(THISFORM.TEXT1.VALUE))
B=VAL(ALLTRIM(THISFORM.TEXT2.VALUE))
FOR I=A TO B
S=S I
ENDFOR
THISFORM.TEXT3.VALUE=S
ENDIF
THISFORM.REFRESH
网上购物最大的缺点就是不能试穿。所以,如果是购买品牌服装,最好先去专卖店试好;如果是时装类YY,购买时认真咨询卖家,报上你的身高、体重、平时着装尺寸等,听取建议选择。祝你购物愉快!经济实惠、价廉物美、方便快捷,时尚快购吧 就是这样一个购物便捷,导航清晰
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询