用VFP计算问题

来源：百度知道 编辑：UC知道 时间：2024/07/04 23:11:54
在文本框Text1中输入一个正整数N，单击“计算”命令按钮，将计算N内（包括N）所有能被3整除的数之和，并显示于文本框Text2中
请问这个要怎么用VFP写出代码

在计算按钮用如下代码：
sum=0
FOR i=1 TO thisform.text1.Value
sum=IIF(MOD(i,3)=0,sum+i,sum)
ENDFOR
thisform.text2.Value=sum
thisform.text2.Refresh

num_n=val(thisform.text1.value)
sum_n=0
if int(num_n)>0
FOR i=1 TO num_n
IF i%3=0
sum_n=sum_n+i
ENDIF
ENDFOR
thisform.text2.Value=ALLTRIM(STR(sum_n))
ELSE
thisform.text2.Value="输入不合要求"
ENDIF

* 前不久无聊的的时候弄了几句这麼个玩意儿，今天看到你的这个问题，觉得有点儿意思，於是稍作修改贴在了这里，一来呢，算是回答你的问题；二来呢，也算作是自己在网上的一个备份吧。
* 你可以直接拷贝粘贴，存成 *.prg，然后运行。
* 为了将来便於自己在百度中查找，我放个检索标签在这里：Fox_Layman

*** Begin
CLOSE ALL
CLEAR ALL
CLEAR
SET TALK OFF

DO tmp_prg1
READ EVENTS
CLOSE ALL
CLEAR ALL
SET TALK On
RETURN

PROCEDURE tmp_prg1
PUBLIC MyForm, cGetText1
MyForm = CREATEOBJECT("TForm")
MyForm.Visible = .T.
RETURN

DEFINE CLASS TForm AS Form
Caption = "&qu