Question

vb大小写转换

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

Answer 1

Private Sub Command1_Click()
Dim C As String
Dim S As String
Dim I As Integer
Text13.Text = ""
For I = 1 To Len(Text12.Text)
C = Mid(Text12.Text, I, 1)
If C <> " " Then
Select Case C
Case "0"
S = "零"
Case "1"
S = "壹"
Case "2"
S = "贰"
Case "3"
S = "叁"
Case "4"
S = "肆"
Case "5"
S = "伍"
Case "6"
S = "陆"
Case "7"
S = "柒"
Case "8"
S = "捌"
Case "9"
S = "玖"
Case Else
S = " "
End Select
Text13.Text = Text13.Text & S & " "
Else
S = " "
End If
Next I
End Sub

Answer 2

form1_click

dim s as string
for i=1 to len(text1.text)
if asc(mid(text1.text,i,1))>104 and asc(mid(text1.text,i,1))<123 then
s=s+str(asc(mid(text1.text,i,1))-32)
else
s=s+mid(text1.text,i,1)

end if
next i

text2.text=s

Answer 3

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
ss = Asc(Mid(Text1.Text, i, 1))
If ss > 96 And ss < 123 Then
ss = ss - 32
ElseIf ss > 65 And ss < 93 Then ss = ss + 32

End If
a = a & Chr(ss)
Next i
Text1.Text = a
End Sub

Answer 4

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 5

Dim X As Double
Dim I As Double
Dim S As Double
类型定义不对吧.