Question

vb操作题输入一个字符串,将其中的大写字母换成小写字母

vb操作题输入一个字符串,将其中的大写字母换成小写字母

Answer 1

Private Sub Command1_Click()
  s = InputBox("请输入一个字符串：")
  For i = 1 To Len(s)
    c = Mid(s, i, 1)
    If c >= "A" And c <= "Z" Then Mid(s, i, 1) = Chr(Asc(c) + 32)
  Next i
  MsgBox ("处理后的字符串：" & s)
End Sub