易语言QQ等级算有多少颗皇冠太阳月亮星星

.版本 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
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注