Question

英文字母大小写切换 怎样用VB 编程

编写程序,在文本框中输入英文字符,单击"大写"按钮把英文字符转换为大写,单击"小写"按钮把英文字符转换为小写>

Answer 1

不能使用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 2

具体要求
Private Sub Command1_Click()
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = LCase(Text1.Text)
End Sub