【急】vb程序:将小写字母转换成大写字母,大写字母转换成小写字母,空格不转换,其余字符转换成”*”
编写一个对文本框中输入的字符进行转换的程序。窗体如上右图所示。将小写字母转换成大写字母,大写字母转换成小写字母,空格不转换,其余字符转换成”*”。要求每输入一个字符马上进...
编写一个对文本框中输入的字符进行转换的程序。窗体如上右图所示。将小写字母转换成大写字母,大写字母转换成小写字母,空格不转换,其余字符转换成”*”。要求每输入一个字符马上进行判断和转换,结果显示在Text2中。
【提示】用文本框的Change事件完成。
有人能给我一点提示啊,我现在是一点头绪也没有。不求答案,只求思路。感谢了。 展开
【提示】用文本框的Change事件完成。
有人能给我一点提示啊,我现在是一点头绪也没有。不求答案,只求思路。感谢了。 展开
展开全部
利用ascii进行判断,
Private Sub Text1_Change()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
zf = Mid(Text1.Text, i, 1)
If Asc(zf) >= 65 And Asc(zf) <= 90 Then Text2.Text = Text2.Text + Chr(Asc(zf) + 32)
If Asc(zf) >= 97 And Asc(zf) <= 121 Then Text2.Text = Text2.Text + Chr(Asc(zf) - 32)
If Asc(zf) = 32 Then Text2.Text = Text2.Text & " "
If Asc(zf) >= 33 And Asc(zf) <= 64 Or Asc(zf) >= 91 And Asc(zf) <= 96 Or Asc(zf) >= 133 Then Text2.Text = Text2.Text + "+"
Next
End Sub
通过ascii判断字符是大写、小写还是其它。已经实验成功
Private Sub Text1_Change()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
zf = Mid(Text1.Text, i, 1)
If Asc(zf) >= 65 And Asc(zf) <= 90 Then Text2.Text = Text2.Text + Chr(Asc(zf) + 32)
If Asc(zf) >= 97 And Asc(zf) <= 121 Then Text2.Text = Text2.Text + Chr(Asc(zf) - 32)
If Asc(zf) = 32 Then Text2.Text = Text2.Text & " "
If Asc(zf) >= 33 And Asc(zf) <= 64 Or Asc(zf) >= 91 And Asc(zf) <= 96 Or Asc(zf) >= 133 Then Text2.Text = Text2.Text + "+"
Next
End Sub
通过ascii判断字符是大写、小写还是其它。已经实验成功
展开全部
在输入框的CHANGE事件中检查最后一个输入的字符,(如果文框为空则清空TEXT2),然后判断输入字符是否属于字母,然后用UCase和LCase函数进行大小写转换并输出到TEXT2里
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
通过位操作实现字母的大小写转化
Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说,VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。全国计算机等级考试有二级VB语言程序设计这一考试项目。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询