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