| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 564 人关注过本帖
标题:向各位大鸟请教一个问题
取消只看楼主 加入收藏
congyan
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-5-20
收藏
 问题点数:0 回复次数:0 
向各位大鸟请教一个问题
刚开始学VB 兴趣也蛮大的 但是遇到一个题目  老是调不好 题目如下
编写一个对输入字符进行转换的程序.转换规则为, 将其中的大写字母转换成小写字母,小写字母转换为大写字母,空格不转换,其余转换成"%". 我的代码如下
Private Sub Command1_Click()
End

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim aa As String * 1
aa = Chr$(KeyAscii)
Select Case aa
Case "A" To "Z"
aa = Chr$(KeyAscii + 32)
Case "a" To "z"
aa = Chr$(KeyAscii - 32)
Case ""
Case Else
aa = "%"
End Select
Text2.Text = Text2.Text & aa
End Sub
但是当在TEXT1中键入一个字符时,TEXT2中前面总有个空格 ,但当清屏后 在输入时则没有这个问题了,而重新启动程序又出现问题  还有那个对空格的要求 我不能实现,按了空格 在TEXT2中还是出现%.请各位大鸟帮帮我吧  谢谢了
搜索更多相关主题的帖子: 字母 
2005-05-20 18:08
快速回复:向各位大鸟请教一个问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030956 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved