Private Sub Command1_Click()
Dim ch As String
ch = Text1.Text
___________________________
Text1.Text = ch
End Sub
Private Sub conversion(____________________)
Dim i As Integer, ch As String * 1
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "A" And ch <= "Z" Then
Mid(s, i, 1) = LCase(ch)
ElseIf ____________________Then
Mid(s, i, 1) = UCase(ch)
End If
Next i
End Sub
第1个回答 2014-05-14
Private Sub Command1_Click()
Dim ch As String
ch = Text1.Text
Call conversion(ch)
Text1.Text = ch
End Sub
Private Sub conversion(s As String)
Dim i As Integer, ch As String * 1
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "A" And ch <= "Z" Then
Mid(s, i, 1) = LCase(ch)
ElseIf ch >= "a" And ch <= "z" Then
Mid(s, i, 1) = UCase(ch)
End If
Next i
End Sub本回答被提问者采纳
Dim ch As String
ch = Text1.Text
Call conversion(ch)
Text1.Text = ch
End Sub
Private Sub conversion(s As String)
Dim i As Integer, ch As String * 1
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "A" And ch <= "Z" Then
Mid(s, i, 1) = LCase(ch)
ElseIf ch >= "a" And ch <= "z" Then
Mid(s, i, 1) = UCase(ch)
End If
Next i
End Sub本回答被提问者采纳
