Private Sub Command1_Click() Dim i As Integer Dim n As Integer Dim x As String Dim y As Integer, z i
PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegerDimxAsStringDimyAsInteger,zi=Len(...
Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = UCase(z)
Else
If y > 64 And y < 91 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = z
Else
If y > 64 And y < 96 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next
End Sub
Private Sub Command3_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = 2
Else
If y > 64 And y < 91 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next
End Sub
Private Sub Command4_Click()
Text1.Text = ""
End Sub 展开
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = UCase(z)
Else
If y > 64 And y < 91 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = z
Else
If y > 64 And y < 96 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next
End Sub
Private Sub Command3_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = 2
Else
If y > 64 And y < 91 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next
End Sub
Private Sub Command4_Click()
Text1.Text = ""
End Sub 展开
展开全部
修改后的代码
Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = UCase(z)
ElseIf y > 64 And y < 91 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = z
ElseIf y > 64 And y < 96 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next n
End Sub
Private Sub Command3_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = 2
ElseIf y > 64 And y < 91 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next n
End Sub
Private Sub Command4_Click()
Text1.Text = ""
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = UCase(z)
ElseIf y > 64 And y < 91 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = z
ElseIf y > 64 And y < 96 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next n
End Sub
Private Sub Command3_Click()
Dim i As Integer
Dim n As Integer
Dim x As String
Dim y As Integer, z
i = Len(Text1.Text)
x = Text1.Text
Text1.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = 2
ElseIf y > 64 And y < 91 Then
z = LCase(z)
Exit For
End If
Text1.Text = Text1.Text & z
Next n
End Sub
Private Sub Command4_Click()
Text1.Text = ""
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询