问答题
设计一个表单，当单击“计算”按钮时，求出连续N个不是7的倍数的自然数之和，当和是 101的倍数时，则在列表框中显示所有求出的不是7的倍数的数(如下图所示)。试编写“计算”按钮的Click事件代码。
【正确答案】
【答案解析】编写Command1的Click事件代码如下：
THISFORM. LIST1. CLEAR
STORE 0 TO AA，BB
DO WHILE .T.
BB＝BB+1
IF MOD (BB，7)＜＞0
THISFORM. LIST1. ADDLISTITEM(STR(BB，5)，BB，1)
AA＝AA+BB
THISFORM. LIST1. ADDLISTITEM(STR(AA，5)，BB，2)
IF MOD(AA，101)＝0
EXIT
ENDIF
ENDIF
ENDDO