vb.net大小寫字母轉(zhuǎn)換

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

創(chuàng)新互聯(lián)專注于于洪企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站設(shè)計(jì),電子商務(wù)商城網(wǎng)站建設(shè)。于洪網(wǎng)站建設(shè)公司,為于洪等地區(qū)提供建站服務(wù)。全流程按需設(shè)計(jì)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

Dim s As String = "0Ff0ajkh04624F"

Dim i As Integer = 0

Dim sTemp As String = ""

Dim ss As String = ""

For i = 1 To Strings.Len(s)

sTemp = Mid(s, i, 1)

If Asc(sTemp) = 65 And Asc(sTemp) = 90 Then

sTemp = LCase(sTemp)

ElseIf Asc(sTemp) = 95 And Asc(sTemp) = 122 Then

sTemp = UCase(sTemp)

Else

sTemp = sTemp

End If

ss = ss sTemp

Next

MsgBox(ss)

End Sub

vb程序 大寫字母轉(zhuǎn)小寫，小寫轉(zhuǎn)大寫

'第一題

Private Sub Command1_Click()

a = InputBox("")

Select Case Asc(a)

Case Asc("a") To Asc("z")

Print UCase(a)

Case Asc("A") To Asc("Z")

Print LCase(a)

End Select

End Sub

'第二題

Private Sub Command1_Click()

a = Val(InputBox(""))

If (a Mod 4 = 0 And a Mod 100 0) Or a Mod 400 = 0 Then

Print a "是閏年"

Else

Print a "不是閏年"

End If

End Sub

怎么用VB.NET 編寫大小寫轉(zhuǎn)化程序

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress e.KeyChar 使用參數(shù)e來(lái)控制輸入字符 End Sub 追問： 能給出大小寫切換程序的整段 源代碼 嗎 回答： 我不明白你的大小寫切換程序是要實(shí)現(xiàn)什么功能 是輸入 大寫 變小寫嗎？ 追問： 是的 回答： If e.KeyChar.IsLower(e.KeyChar) = True Then e.KeyChar.ToUpper(e.KeyChar) 或 If e.KeyChar.IsUpper(e.KeyChar) = True Then e.KeyChar.ToLower(e.KeyChar)