精易论坛

标题: 9X9乘法表_偶数提取 [打印本页]

作者: 小0……0安    时间: 2017-4-2 20:38
标题: 9X9乘法表_偶数提取
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  

子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
循环次数1整数型 
循环次数2整数型 
编辑框1.内容 = “”  ' 清空编辑框内容
. ' 计次循环首 (9, 循环次数1)
. ' 计次循环首 (循环次数1, 循环次数2)
' 编辑框1.加入文本 (到文本 (循环次数2) + “x” + 到文本 (循环次数1) + “=” + 到文本 (循环次数1 × 循环次数2))
' 编辑框1.加入文本 (“  ”)
. ' 计次循环尾 ()
' 编辑框1.加入文本 (#换行符)
' 编辑框1.加入文本 (#换行符)
. ' 计次循环尾 ()
变量循环首 (1, 9, 1, 循环次数1)
变量循环首 (1, 循环次数1, 1, 循环次数2)
编辑框1.加入文本 (到文本 (循环次数2)“x”到文本 (循环次数1)“=”到文本 (循环次数1 × 循环次数2))
编辑框1.加入文本 (“  ”)
变量循环尾 ()
编辑框1.加入文本 ( #换行符 )
编辑框1.加入文本 ( #换行符 )
变量循环尾 ()
子程序名返回值类型公开备 注
_按钮2_被单击  
变量名类 型静态数组备 注
数值整数型 
编辑框1.内容 = “”  ' 清空编辑框内容
判断循环首 (数值 < 500)
数值 = 数值 + 2
编辑框1.加入文本 (到文本 (数值)“、”)
判断循环尾 ()

提取500以内的偶数.jpg (95.52 KB, 下载次数: 3)

提取500以内的偶数.jpg

作者: 小0……0安    时间: 2017-4-2 20:41
菜鸟之路走起...
作者: 生人"勿扰    时间: 2017-4-2 20:43

菜鸟之路走起...
作者: 代码编译人生    时间: 2017-4-2 21:03
提示: 作者被禁止或删除 内容自动屏蔽
作者: QQ736592720    时间: 2017-4-2 21:23
这个很简单吧,我写过
作者: rdbd29r    时间: 2017-4-3 12:54
真的还生厉害啊
作者: 龍鼎软件开发    时间: 2017-4-5 14:50
支持开源,感谢分享,路过,顶一下,领个币
作者: 龙海软件    时间: 2017-4-6 17:30
厉害了,正好在学习这个,研究研究。
作者: 玫瑰很扎手    时间: 2025-5-8 23:54
学习学习




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4