Question

vb大小写转换

最基本的那种 就是一个按钮把text1的小写转成大写输入到text2里

Answer 1

大小写转换所用到的函数有Ucase函数和Lcase函数。其中 Ucase("字符串")______将字符串中所有小写字母转换成大写，最终字符串全部是大写字母；

Lcase("字符串")______将字符串中所有大写字母转换成小写，最终字符串全部是小写字母。

下面是应用Lcase函数 进行大小写转换：

Private Sub Command1_Click()

Dim X As String  Dim I As Long  Dim S As String  Dim CH As String  //定义输入输出量

X = Text1.Text For I = 1 To Len(X) CH = Mid(X, I, 1)

If CH >= "a " And CH <= "z" Then  S = S + UCase(CH)   //将 Text1 的文本全换成小写 Text3

ElseIf CH >= "A" And CH <= "Z" Then S = S + LCase(CH)  //将 Text1 的文本全换成大写

EndSub

End If Next I Text2.Text = S End Sub

扩展资料：

（1）Lcase（string）将大写字母转换成小写字母，若String本身为小写字母或非字母函数，函数的返回值不变；若String为NULL，则函数的返回值为null：

<%

MyChar = "COMPUTER" '给变量赋值

MyChar = Lcase(MyChar) '将变量所有字母转换为小写

Response.write (MyChar) '输出变量

%>

（2）UCase 函数返回 Variant(String)，其中包含转成大写的字符串。

语法：UCase(string)

必要的 string参数为任何有效的字符串表达式。如果 string 包含 Null，将返回Null。

说明：只有小写的字母会转成大写；原本大写或非字母之字符保持不变。

下面的示例利用 UCase函数返回字符串的大写形式：

Dim MyWord= UCase("Hello World")' 返回"HELLO WORLD"。

参考资料：lcase_百度百科

UCase_百度百科

Answer 2

Private Sub Text1_Change()
'变量声明时注意定义变量类型
Dim X As String
Dim I As Long
Dim S As String '把后面代码中的S1改为S
Dim CH As String

X = Text1.Text '赋值语句应该把变量放在前面
For I = 1 To Len(X)
CH = Mid(X, I, 1)
If CH >= "a " And CH <= "z" Then '此处的“a ”多了一个空格，虽然程序运行时没有出错……
S = S + UCase(CH)
ElseIf CH >= "A" And CH <= "Z" Then
S = S + LCase(CH)
End If
Next I
Text2.Text = S
End Sub

Answer 3

不能使用Ucase和Lcase函数，你可以将字母字符转化成为数值，小写字母的值域是97-122，大写字母是65-90，用Chr()和Asc()这两个函数也可以实现大小写的转化的。
Private Sub Form_Click()
x = Text1.Text
n = Len(Trim(x))
For i = 1 To n
l = Mid(x, i, 1)
If l > "h" Then
l = Chr(Asc(l) - 32)
Text2.Text = Text2.Text & l
End If
Next i
End Sub

Answer 4

Private Sub Text1_Change()
Dim X As String
Dim I As Long
Dim S1 As String
Dim CH As String

S1 = ""
X = Text1.Text
For I = 1 To Len(X)
CH = Mid(X, I, 1)
If CH >= "a" And CH <= "z" Then
S1 = S1 + UCase(CH)
ElseIf CH >= "A" And CH <= "Z" Then
S1 = S1 + LCase(CH)
End If
Next I
Text2.Text = S1

End Sub

'-----------------
'错了几处，
'其中一处是 "a "中多了个空格，其他的自己对比吧
'还有，建议下次运行先编译

Answer 5

p=Split(text1,"")
For i=0 to Ubound(p)
b$=b$ & m_Str(p(i))
Next i
text1=b$

写一个自定义函数m_Str(Str)判断和转化大小写：
Function m_Str(Byval Str As String)As String
if Ucase（Str）=Str Then’如果本身为大写
m_Str=Lcase（Str)'转为小写
Else
m_Str=Ucase（Str）'转为小写
End If
End Function