易语言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

@By末凉