vb 遇到点问题 希望解决

Question

label1上面显示提取的大写字母，text2上面显示逆序后的字符串Private Sub Command1_Click()
Dim x As String, y As String
Dim a%, i%, b%
Dim c() As String
a = Text1.Text
For i = 1 To Len(a)
 y = Mid(a, i, 1)
 If (y >= "A" And y <= "Z") Then
Label1.Caption = Label1.Caption + y
ReDim c(1 To 100) As String
c(i) = Label1.Caption
 End If
Next i
For i = i To 1 Step -1
  Text2.Text = Text2.Text & c(i)
 Next i
End Sub

Answer 1

Private Sub Command1_Click()
Dim s, b As String
Dim i%s = Text1For i = 1 To Len(s)
    b = Mid(s, i, 1)
    If (b >= "A" And b <= "Z") Then
       Label1.Caption = Label1.Caption + b
    End If
Next is = Label1.Caption
For i = 0 To Len(s) - 1
    b = Mid(s, Len(s) - i, 1)
    Text2 = Text2 + b
Next iEnd Sub

Answer 2

我猜你的意思应该是这样.
Private Sub Command1_Click()
Dim x As String, y As String
Dim a$,i%, b% '<<<===这里的A应为字串
Dim c() As String
a = Text1.Text
For i = 1 To Len(a)
    y = Mid(a, i, 1)
    If (y >= "A" And y <= "Z") Then
        Label1.Caption = Label1.Caption + y
        'ReDim c(1 To 100) As String <<<== 这个宣告很奇怪哦
         'c(i) = Label1.Caption  <<<===这样做也很奇怪
         
         Text2.Text = y & Text2.Text '<<<===这样就可以了    End If
Next i
' ====以下可以省略了====
'For i = i To 1 Step -1
'  Text2.Text = Text2.Text & c(i)
'Next i
End Sub我尽量保持你原有的思路,不去变动
但是编程时逻辑观念是很重要的哦, 加油