【NO.0002】：转换

AN卡哇依

字母转换，小试一下。。。。HOHO

小白学习

还是不会。。惭愧

wsftk

我是新手，下载学习下

愤怒的红细胞

点评一下我做的吧

qi562984326

来的太晚了吗

liujun1374

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 输入1, 整数型
.程序集变量 输入2, 整数型
.程序集变量 M, 整数型

.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 依次文本, 文本型
.局部变量 循环中文本代码, 整数型
.局部变量 依次文本1, 文本型
.局部变量 循环中文本代码1, 整数型

输入1 ＝ 取代码 (编辑框1.内容, )

输入2 ＝ 取代码 (编辑框2.内容, )
.如果真 (编辑框1.内容 ＝ “”)
    .如果 (输入2 ＜ 65 或 输入2 ＞ 90 且 输入2 ＜ 97 或 输入2 ＞ 122)
        信息框 (“请输入字母”, 0, , )
    .否则

        .计次循环首 (取文本长度 (编辑框2.内容), M)

            循环中文本代码1 ＝ 取代码 (取文本中间 (编辑框2.内容, M, 1), )

            .如果真 (循环中文本代码1 ≥ 65 且 循环中文本代码1 ≤ 90)
                依次文本1 ＝ 依次文本1 ＋ 字符 (循环中文本代码1 ＋ 32)
                调试输出 (依次文本1)
            .如果真结束
            .如果真 (循环中文本代码1 ≥ 97 且 循环中文本代码1 ≤ 122)
                依次文本1 ＝ 依次文本1 ＋ 字符 (循环中文本代码1 － 32)

                调试输出 (依次文本1)
            .如果真结束



        .计次循环尾 ()
        编辑框1.内容 ＝ 依次文本1
        返回 ()
    .如果结束

.如果真结束
.如果 (输入1 ＜ 65 或 输入1 ＞ 90 且 输入1 ＜ 97 或 输入1 ＞ 122)
    信息框 (“请输入字母1”, 0, , )
.否则


.如果结束

.计次循环首 (取文本长度 (编辑框1.内容), n)
    循环中文本代码 ＝ 取代码 (取文本中间 (编辑框1.内容, n, 1), )

    .如果真 (循环中文本代码 ≥ 65 且 循环中文本代码 ≤ 90)
        依次文本 ＝ 依次文本 ＋ 字符 (循环中文本代码 ＋ 32)
        ' 调试输出 (依次文本)
    .如果真结束
    .如果真 (循环中文本代码 ≥ 97 且 循环中文本代码 ≤ 122)
        依次文本 ＝ 依次文本 ＋ 字符 (循环中文本代码 － 32)
        ' 调试输出 (依次文本)
    .如果真结束

.计次循环尾 ()
编辑框2.内容 ＝ 依次文本
' 输入2 ＝ 取代码 (编辑框2.内容, )
.判断开始断 (输入2 ＜ 65 或 输入2 ＞ 90 且 输入2 ＜ 97 或 输入2 ＞ 122)
    ' 信息框 (“请输入字母”, 0, , )
    ' 编辑框2.内容 ＝ “ ”
    ' 编辑框2.获取焦点 ()

.默认

.判断结束

返回 ()


.子程序 _编辑框1_获得焦点

.如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)

    编辑框2.内容 ＝ “”
.如果真结束


.子程序 _编辑框2_获得焦点

.如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)

    编辑框1.内容 ＝ “”
.如果真结束

鹰的熊

甜到忧伤 发表于 2010-1-4 14:43
字母转换，小试一下。。。。HOHO

感谢您的源码

狂奔的蚂蚁

换之后 编辑框2 变为大写的 JYYUYAN 反之 你在编辑框1输入大写 那么编辑框2就转换为小写！ 现在只要求转换字母就可以了！

li2333

萌新前来学习

清风漫月

学习完，留印子