Question

VB 字母大小写转换

第一列 w w w .b a i d u .c o m
第二列 1 2 3 4 5 6 7 8 9 10 11

VB 6.0 中 一个文本框，一个按钮，一个标签
输入第一列的 字符串（去掉空格：www.baidu.com）
点击 按钮 标签显示 www.baidu.com （都是小字母）
依次 从1 到11， 字母先变大写，再变小写，然后再下一个字母
不用考虑空格，

依次如下所示，产生字母在闪动的效果
www.baidu.com
www.baidu.com
www.baidu.com
www.Baidu.com
www.bAidu.com
www.baIdu.com
www.baiDu.com
www.baidU.com
www.baidu.Com
www.baidu.cOm
www.baidu.coM

Answer 1

函数，自己查查，好像是：
UCase ()top 转换字符串成大写。将小写字母的部份转换成大写，字符串其余部份不变。 例子： UCase ("abc123")
结果： ABC123
你试试！

Answer 2

Private
Sub
Command1_Click()
Dim
str1
As
String,
t
As
String
For
i
=
1
To
Len(Text1)
t
=
Mid(Text1,
i,
1)
Select
Case
t
Case
"i",
"o",
"u",
"I",
"O",
"U"
Case
"h"
To
"z"
str1
=
str1
&
Chr(Asc(t)
-
32)
Case
"H"
To
"Z"
str1
=
str1
&
t
End
Select
Next
Text2
=
str1
End
Sub

Answer 3

LCase(字符串)
把字符串转换成
小写
UCase(字符串)把字符串转换成
大写
text1.text=LCase(text1.text)'小写
text1.text=UCase(text1.text)'大写

Answer 4

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
tstr = "www.baidu.com"
tlen = Len(tstr)
For i = 1 To tlen
ss = ""
For j = 1 To tlen
If i = j Then
ss = ss & UCase(Mid(tstr, j, 1))
Else
ss = ss & Mid(tstr, j, 1)
End If
Sleep 1
DoEvents
Next j
Label1.Caption = ss
Next i
End Sub

Answer 5

如你所愿，已经实现：
Option Base 1
Private Sub Command1_Click()
Dim Str As String
Dim Str1() As String
Str = Trim(Text1)
For i = 1 To Len(Str)
ReDim Preserve Str1(i)
Str1(i) = Mid(Str, i, 1)
Next i
For i = 1 To Len(Str)
For j = 1 To Len(Str)
If j = i Then
Print UCase(Str1(i));
Else
Print Str1(j);
End If
Next j
Print
Next i
End Sub