首頁>Club>

編寫程式！用vb編寫程式，在文字框中輸入英文字元，單機“大寫”按鈕把英文字元轉換為大寫，單擊“？

8
回覆列表
  • 1 # 掉眼淚的冠軍

    Private Sub Command1_Click()Dim s As String, t As String, p As Strings = Text1.Textt = ""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 IfNext iText1.Text = tEnd Sub Private Sub Form_Load()Text1.Text = "AaBbCcDdEeFfGgHhIiJjKk"End Sub

  • 2 # 使用者6437608732773

    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)

    t = t & Chr(Asc(p) - 32)

    End If

    If Asc(p) > 64 And Asc(p)

    t = t & Chr(Asc(p) + 32)

    End If

    Next i

    Text1.Text = t

    End Sub

    Private Sub Form_Load()

    Text1.Text = "AaBbCcDdEeFfGgHhIiJjKk"

    End Sub

相關內容

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 天生面板暗黃髮黑，有什麼辦法能改善麼？