问答题
一个表单的功能是：若在TEXT1中输入一个除数(整数)，然后单击“计算”按钮，就能求出20～500之间能彼此除数整除的数(整数)及这些数之和，并将结果分别在EDIT1和TEXT2中输出。表单设计界面如下图所示。试编写“计算”按钮的事件代码。
【正确答案】
【答案解析】程序代码如下：
S=0
THISFORM. EDIT1. Value=" "
FOR I=20 TO 500
IF MOD(I, VAL(THISFORM, TEXT1, Value))=0
THISFORM. EDIT1. Value=THISFORM. EDIT1. Value+STR(I,5)
S=S+I
ENDIF
ENDFOR
THISFORM. TEXT2. Value=S
THISFORM. REFRESH
S=0
THISFORM. EDIT1. Value=" "
FOR I=20 TO 500
IF MOD(I, VAL(THISFORM, TEXT1, Value))=0
THISFORM. EDIT1. Value=THISFORM. EDIT1. Value+STR(I,5)
S=S+I
ENDIF
ENDFOR
THISFORM. TEXT2. Value=S
THISFORM. REFRESH