.版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 crown, 文本型 .程序集变量 sun, 文本型 .程序集变量 Moon, 文本型 .程序集变量 Star, 文本型 .程序集变量 Remainder, 文本型 .子程序 _按钮1_被单击 .如果真 (到整数 (编辑框1.内容) ≥ 1) Star ＝ 到文本 (取整 (到整数 (编辑框1.内容) ÷ 1)) .如果真结束 .如果真 (到整数 (编辑框1.内容) ≥ 4) Star ＝ “” Moon ＝ 到文本 (取整 (到整数 (编辑框1.内容) ÷ 4)) Remainder ＝ 到文本 (到整数 (编辑框1.内容) ％ 4) .如果真 (到整数 (Remainder) ≥ 1) Star ＝ 到文本 (取整 (到整数 (Remainder) ÷ 1)) .如果真结束 .如果真结束 .如果真 (到整数 (编辑框1.内容) ≥ 16) Moon ＝ “” Star ＝ “” sun ＝ 到文本 (取整 (到整数 (编辑框1.内容) ÷ 16)) Remainder ＝ 到文本 (到整数 (编辑框1.内容) ％ 16) .如果真 (到整数 (Remainder) ≥ 4) Moon ＝ 到文本 (取整 (到整数 (Remainder) ÷ 4)) Remainder ＝ 到文本 (到整数 (Remainder) ％ 4) .如果真 (到整数 (Remainder) ≥ 1) Star ＝ 到文本 (取整 (到整数 (Remainder) ÷ 1)) .如果真结束 .如果真结束 .如果真 (到整数 (Remainder) ≥ 1) Star ＝ 到文本 (取整 (到整数 (Remainder) ÷ 1)) .如果真结束 .如果真结束 .如果真 (到整数 (编辑框1.内容) ≥ 64) sun ＝ “” Moon ＝ “” Star ＝ “” crown ＝ 到文本 (取整 (到整数 (编辑框1.内容) ÷ 64)) Remainder ＝ 到文本 (到整数 (编辑框1.内容) ％ 64) .如果真 (到整数 (Remainder) ≥ 16) sun ＝ 到文本 (取整 (到整数 (Remainder) ÷ 16)) Remainder ＝ 到文本 (到整数 (Remainder) ％ 16) .如果真 (到整数 (Remainder) ≥ 4) Moon ＝ 到文本 (取整 (到整数 (Remainder) ÷ 4)) Remainder ＝ 到文本 (到整数 (Remainder) ％ 4) .如果真 (到整数 (Remainder) ≥ 1) Star ＝ 到文本 (取整 (到整数 (Remainder) ÷ 1)) .如果真结束 .如果真结束 .如果真结束 .如果真 (到整数 (Remainder) ≥ 4) Moon ＝ 到文本 (取整 (到整数 (Remainder) ÷ 4)) Remainder ＝ 到文本 (到整数 (Remainder) ％ 4) .如果真 (到整数 (Remainder) ≥ 1) Star ＝ 到文本 (取整 (到整数 (Remainder) ÷ 1)) .如果真结束 .如果真结束 .如果真 (到整数 (Remainder) ≥ 1) Star ＝ 到文本 (取整 (到整数 (Remainder) ÷ 1)) .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .如果真结束 编辑框2.内容 ＝ crown 编辑框3.内容 ＝ sun 编辑框4.内容 ＝ Moon 编辑框5.内容 ＝ Star