VB程序设计题:设计一个字符大小写的转换程序,

来源:百度知道 编辑:UC知道 时间:2024/05/21 07:15:37
字符大小写转换程序,当文本框Text1中输入大写字母,在文本框Text2中同时显示其小写字母;当文本框Text1中输入小写字母,在文本框Text2中同时显示其大写字母;当输入其他字符,则原样输出。

字符大小写转换程序,当文本框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

在命令按钮的CLICK事件中编写:
THISFORM.TEXT2.VALUE=LCASe(THISFORM.TEXT1.VALUE)
THISFORM.REFLEASH

ucase/lcase

提示这么多,真正的程序员都是自己成长起来的

祝你学习愉快