VB(可时化编程)大小写问题~~!

'将TextBox1.Text中的小写字符转化为大写, 在TextBox2.Text显示
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '单击按钮Button1引发的事件

Dim I As Integer '循环用整数
Dim lngChar As Long '记录字符ASCII码的长整形
Dim strTemp As String '缓存的字符串

For I = 1 To Len(TextBox1.Text) '逐一扫描TextBox1.Text
lngChar = Asc(Mid(Textbox1.Text, I, 1)) '取TextBox1.Text中第i个字符, 转换为ASCII码
If lngChar >= Asc("a") And lngChar <= Asc("z") Then '如果是小写的a到z之间
strTemp = strTemp & Chr(lngChar - 32) '通过ASCII码-32转换为大写
Else
strTemp = strTemp & Chr(lngChar) '其他情况不变
End If
Next

TextBox2.Text = strTemp '在TextBox2.Text中显示结果

End Sub
'希望对你有帮助

一楼说的对，就是把TextBox1.Text中的小写字符通过改变ASCII码值来转化为大写的, 然后在TextBox2.Text显示出来

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。