VB中 在TEST1(0) TEST1(1)....TEST1(17)中分别输入 要求在RichTextBox1中显示

Question

VB中 在TEST1(0) TEST1(1)....TEST1(17)中分别输入  要求在RichTextBox1中显示 
比如 TEST1(0)=1 TEST1(1)=21   那么RichTextBox1中就显示 121   1月21日

Answer 1

Private Sub TEST1_Change(Index As Integer)
    if TEST1(0).text<>"" and TEST1(1).text<>"" then
        RichTextBox1.text=TEST1(0).text & TEST1(1).text & " " & TEST1(0).text & "月" & TEST1(1).text & "日"
    end if
end sub

Answer 2

Private Sub Test1_Change(Index As Integer)
    Dim i As Integer
    
    For i = 0 To 17
        richtextbox1 = Test1(i)
    Next i
End Sub

Answer 3

我需要TEXT1(0) TEXT1(1)-------TEXT1(17)输入不同的字母或数字时   RichTextBox1里显示不同的文字
除了一个个定义外有没有更简单的方法

Answer 4

我需要TEXT1(0) TEXT1(1)-------TEXT1(17)输入不同的字母或数字时   RichTextBox1里显示不同的文字
除了一个个定义外有没有更简单的方法

Answer 5

Private Sub Test1_Change(Index As Integer)
    Dim i As Integer
    
    richtextbox1=""    For i = 0 To 17
        richtextbox1 = richtextbox1 & Test1(i)
    Next i
End Sub

Answer 6

TEXT1(0) TEXT1(1)-------TEXT1(17)输入不同的字母或数字时  RichTextBox1里显示不同的文字 
除了一个个定义外有没有更简单的方法