编写程序!!!用vb编写程序,在文本框中输入英文字符,单机“大写”按钮把英文字符转换为大写,单击“ 5
编写程序!!!用vb编写程序,在文本框中输入英文字符,单机“大写”按钮把英文字符转换为大写,单击“小写”把英文字符转换为小写。...
编写程序!!!用vb编写程序,在文本框中输入英文字符,单机“大写”按钮把英文字符转换为大写,单击“小写”把英文字符转换为小写。
展开
1个回答
展开全部
Private Sub Command1_Click()
Dim s As String, t As String, p As String
s = Text1.Text
t = ""
For i = 1 To Len(s)
p = Mid(s, i, 1)
If Asc(p) > 96 And Asc(p) < 123 Then
t = t & Chr(Asc(p) - 32)
End If
If Asc(p) > 64 And Asc(p) < 91 Then
t = t & Chr(Asc(p) + 32)
End If
Next i
Text1.Text = t
End Sub
Private Sub Form_Load()
Text1.Text = "AaBbCcDdEeFfGgHhIiJjKk"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询