关闭

大小写转化

70人阅读 评论(0) 收藏 举报

  Dim x as string

        Private Sub form _load()

           X=Text1.Text

        End Sup

Private Sub command1_Click

              Text1.Text=Ucase(x)

        End Sup

      Private Sub command2_Click

         Text1.Text=Lcase(x)

       End Sup

         Private Sub command1_Click

           Text1.Text=x

End Sup

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:7542次
    • 积分:201
    • 等级:
    • 排名:千里之外
    • 原创:17篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档