Question

把注释和“?“改掉，Text1中字母大小写转换后显示于Label1中非字母则显示本身，Label2显示Text1中字母个数

Dim n As Integer
Private Sub Text1_Change()
Dim ch As String
'ch = Right(?)
If ch >= "A" And ch <= "Z" Then
Label1.Caption = LCase(ch)
n = n + 1
ElseIf ch >= "a" And ch <= "z" Then
Label1.Caption = UCase(ch)
n = n + 1
Else
'Label1.Caption = ?
End If
'Label2.Caption = ?
End Sub

Answer 1

Dim n As Integer
Private Sub Text1_Change()
Dim ch As String
'取text1.text的最右端的字母
ch = Right(Text1.Text, Len(Text1.Text))

If ch >= "A" And ch <= "Z" Then
Label1.Caption = LCase(ch)
n = n + 1
ElseIf ch >= "a" And ch <= "z" Then
Label1.Caption = UCase(ch)
n = n + 1
Else
Label1.Caption = Label1.Caption
End If
Label2.Caption = Len(Label1.Caption)
End Sub

Answer 2

.......大哥。你在考验我吗。。我做安卓的，你拿VB给我发定向求助。。。。

Answer 3

爱的什么玩意