酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88289

    累積人氣

  • 2

    今日人氣

    0

    訂閱人氣

英文大寫變小寫或小寫變大變

兩個Text 一個Command1
Private Sub Command1_Click()
Text2.Text = ""
For n = 1 To Len(Text1.Text)

A = Mid(Text1.Text, n, 1)
If Asc(A) >= 65 And Asc(A) <= 90 Then
A = Chr(Asc(A) + 32) '大寫→小寫
ElseIf Asc(A) >= 97 And Asc(A) <= 122 Then
A = Chr(Asc(A) - 32) '小寫→大寫
End If

Text2.Text = Text2.Text & A
Next
End Sub

相簿設定
標籤設定
相簿狀態