设计一个表单,当单击“计算”按钮时,求出连续N个不是7的倍数的自然数之和,当和是 101的倍数时,则在列表框中显示所有求出的不是7的倍数的数(如下图所示)。试编写“计算”按钮的Click事件代码。

admin2010-06-18  84

问题 设计一个表单,当单击“计算”按钮时,求出连续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

解析
转载请注明原文地址:https://kaotiyun.com/show/h3hZ777K
0

最新回复(0)