Question

关于VB的一个小问题 就是用LABEL显示的

Private Sub Command1_Click()
Cls
L = Len(Text1.Text)
A = 1
Do Until A = L + 1
X = Asc(Mid(Text1.Text, A, 1))
If X >= 65 And X <= 90 Then
X = X + 32
ElseIf X >= 97 And X <= 122 Then
X = X - 32
ElseX = 42
End If
Y = Chr(X)
A = A + 1
Print Y;
Loop
End Sub

就是一个在TEXT1里面的大写换小写的小程序 但是现在要求用LABEL显示结果 我应该怎么做啊

Answer 1

Private Sub Command1_Click()
Label1.Caption = "档型"派蠢唤尘凯
L = Len(Text1.Text)
A = 1
Do Until A = L + 1
X = Asc(Mid(Text1.Text, A, 1))
If X >= 65 And X <= 90 Then
X = X + 32
ElseIf X >= 97 And X <= 122 Then
X = X - 32
Else
X = 42
End If
y = Chr(X)
A = A + 1
Label1.Caption = Label1.Caption & y
Loop
End Sub