vb中 用label显示textbox输入的内容

Question

比如在 textbox1中输入1 那么label1显示出 123textbox2中输入2 那么label2显示出 234textbox3中输入3 那么label3显示出 345textbox4中输入4那么label4显示出 456

Answer 1

Private Sub Command1_Click()
For a = 1 To 5
For b = a + 1 To 5
For c = b + 1 To 5
Print a, b, c
Next
Next
Next
End Sub

Answer 2

Private Sub Command1_Click()
a = Val(Text1.Text)
Label1.Caption = a & a + 1 & a + 2
End Sub

Answer 3

Private Sub Text1_Change()
a = Val(Text1.Text)
Label1.Caption = Str(a & a + 1 & a + 2)
End SubPrivate Sub Text2_Change()
b = Val(Text2.Text)
Label2.Caption = Str(b & b + 1 & b + 2)
End SubPrivate Sub Text3_Change()
c = Val(Text3.Text)
Label3.Caption = Str(c & c + 1 & c + 2)
End SubPrivate Sub Text4_Change()
d = Val(Text4.Text)
Label4.Caption = Str(d & d + 1 & d + 2)
End Sub