vb编写程序对输入字符串进行大小写转换。

Question

将转换结果在图片框中输出，并且要求进行下一次转换时，将前一次转换结果清除

Answer 1

可以参考下面的代码：

Private Sub Command1_Click()

Cls

x = InputBox("")

Picture1.Print UCase(x) '大写

Picture1.Print LCase(x) '小写

End Sub

扩展资料：

VB参考函数

ReDim 语句： 声明动态数组变量，并分配或重新分配过程级的存储空间。 

RegExp 对象： 提供简单正则表达式的支持。 

Rem 语句： 包含程序中的注释。 

Replace 函数： 返回一个字符串，其中某个指定的子串被另一个子串替换，替换的次数也有规定。 

Replace 方法： 替换在正则表达式搜索中已发现的正文。 

RGB 函数： 返回表示 RGB 颜色值的数。 

Right 函数： 返回字符串最右边的指定数量的字符。 

参考资料来源：百度百科-Visual Basic

Answer 2

方法一：用VB的函数LCase和UCase

用三个TextBox来展现一下这两个函数的大小写转换功能[运行之前在TextBox1中输入几个大写字母，也可混合输入]：
Private Sub Command1_Click()
Text2.Text = LCase(Text1.Text) '将Text1的文本全换成小写
Text3.Text = UCase(Text2.Text) '将Text1的文本全换成大写
End Sub
说明：
LCase仅将是大写的转换为小写，UCase则仅将是小写的转换为大写，故当字符串中有其它不符合转换的内容时将对其忽略。可以在TextBox1中输入汉字、阿拉伯数字等观察效果。

方法二：用API函数

user32提供两个用于大小写转换的API函数：Charlower[大写-小写]、Charupper[小写-大写]，其原形分别为：
Declare Function CharLower Lib "user32" Alias "CharLowerA" (ByVal lpsz As String) As Long
Declare Function CharUpper Lib "user32" Alias "CharUpperA" (ByVal lpsz As String) As Long

继续用三个文本框来观察效果：
Private Sub Command1_Click()
Dim a As String
a = Text1.Text '给变量赋初值
CharUpper a '变为大写
Text2.Text = a
CharLower a '变为小写
Text3.Text = a
End Sub
说明：与方法一的效果完全一样。实际上，VB的LCase和UCase函数调用的也就是这两个API函数，是封装了这两个API函数的内部函数。

方法三：用算法
可以利用Ascii码对大小写字母字符代码的定义来强制输入的字母只能为大写的或者小写的，而不管Caps Lock键是打开的还是关闭的。就象安装Windows时用户输入CD-KEY一样。请看：
Private Sub Text1_KeyPress(KeyAscii As Integer)
'输入的字母通通为小写
If KeyAscii > 64 And KeyAscii < 91 Then KeyAscii = KeyAscii + 32
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'输入的字母通通为大写
If KeyAscii > 96 And KeyAscii < 123 Then KeyAscii = KeyAscii - 32
End Sub
说明：在Ascii字符集里，大写A--Z对应于字符代码65--90，小写a--z对应于97--122。以A为例，小写a[95]与大写A[65]的字符代码相差32，其它字母也是如此。当然可以借此编制一个函数来完成象方法一、二一样将字符串进行大小写互换，略显复杂些，也没什么必要。本回答被网友采纳

Answer 3

Private Sub Command1_Click()
Cls
x = InputBox("")
Picture1.Print UCase(x) '大写
Picture1.Print LCase(x) '小写
End Sub

Answer 4

Cls
x = InputBox("")
Picture1.Print UCase(x) '大写
Picture1.Print LCase(x) '小写

Answer 5

清除用cls
大写用UCase（）
小写用LCase（）