VB程序设计题:设计一个字符大小写的转换程序,
字符大小写转换程序,当文本框Text1中输入大写字母,在文本框Text2中同时显示其小写字母;当文本框Text1中输入小写字母,在文本框Text2中同时显示其大写字母;当...
字符大小写转换程序,当文本框Text1中输入大写字母,在文本框Text2中同时显示其小写字母;当文本框Text1中输入小写字母,在文本框Text2中同时显示其大写字母;当输入其他字符,则原样输出。
展开
3个回答
展开全部
字符大小写转换程序,当文本框Text1中输入大写字母,在文本框Text2中同时显示其小写字母;当文本框Text1中输入小写字母,在文本框Text2中同时显示其大写字母;当缺雹掘输入其他字伏核符,则原样输出。
建立两个文本框
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""肆哗
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim x As String * 1
x = Chr$(KeyAscii)
Select Case x
Case "A" To "Z"
x = Chr$(KeyAscii + 32)
Case "a" To "z"
x = Chr$(KeyAscii - 32)
Case Else
x = x
End Select
Text2.Text = Text2.Text & x
End Sub
建立两个文本框
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""肆哗
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim x As String * 1
x = Chr$(KeyAscii)
Select Case x
Case "A" To "Z"
x = Chr$(KeyAscii + 32)
Case "a" To "z"
x = Chr$(KeyAscii - 32)
Case Else
x = x
End Select
Text2.Text = Text2.Text & x
End Sub
展开全部
ucase/lcase
提示这么多,真正宴陪脊的程序员都是自晌渗己成长起乱羡来的
祝你学习愉快
提示这么多,真正宴陪脊的程序员都是自晌渗己成长起乱羡来的
祝你学习愉快
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在命令闷悔按蚂携正钮的CLICK事件中编写隐陵:
THISFORM.TEXT2.VALUE=LCASe(THISFORM.TEXT1.VALUE)
THISFORM.REFLEASH
THISFORM.TEXT2.VALUE=LCASe(THISFORM.TEXT1.VALUE)
THISFORM.REFLEASH
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |