主题：题目10(设计一个程序,输出N个能被3整除的数)
hngnba
[专家分：0] 发布于 2012-02-01 11:11:00
[size=6][size=4]题目是:设计一个程序,输出N个能被3整除的数,所有到的控件有:edit1,lable1(需输入显示的数值),text1(N),command1(开始0,command2(清除),
而我写的程序会显示3---999间均能被3整除的数,现在我要实现在text1里输入一个值N,然后在edit1里只显示出N个能被3整除的数..谢谢
x=1
do while x<999
if x%3=0
thisform.edit1.value=thisform.edit1.value+str(x,3)+chr(13)
endif
x=x+1
enddo[/size][/size]
回复列表 （共5个回复）
沙发
qjbzjp [专家分：8830] 发布于 2012-02-01 16:22:00
用一个变量记录输出的个数：
s=0
……
s=s+1
IF s=n
exit
ENDIF
endd
板凳
hngnba [专家分：0] 发布于 2012-02-01 16:53:00
你好,你能具体些吗,我还没看明白
3 楼
qjbzjp [专家分：8830] 发布于 2012-02-01 21:18:00
供楼主参考：
s=0
do while x<999
if x%3=0
*thisform.edit1.value=thisform.edit1.value+str(x,3)+chr(13)
?x
s=s+1
endif
x=x+1
IF s=n
exit
ENDIF
enddo
4 楼
hngnba [专家分：0] 发布于 2012-02-02 16:34:00
非常的感谢,希望多关注我发的贴,很多东西还很不明白,希望包括你在内的众多朋友的指教!!
5 楼
lygcw9603 [专家分：250] 发布于 2012-02-03 22:51:00
文本框TEXT1的事件
INIT 事件代码如下:
THISFORM.TEXT1.VALUE=0
INTERACTIVECHANGE 事件中代码如下:
CLJ="" &&生成字符串
NJS=0 &&记录能被3整除的数的个数
NUM=THIS.VALUE
THISFORM.Caption="正在生成数据,请稍候......"
FOR I=1 TO NUM
IF MOD(I,3)!=0
LOOP
ELSE
CLJ=CLJ+TRANSFORM(I)+","
NJS=NJS+1
ENDIF
ENDFOR
THISFORM.Caption="能被3除尽的数共 "+TRANSFORM(NJS)+" 个"
THISFORM.EDIT1.VALUE=LEFT(CLJ,LEN(CLJ)-1)
慢慢看,不明白事宜,可加QQ群:208460253
我来回复
您所在位置：