求vb程序：四个文本框，随机填入汉字？

Private Sub Command1_Click()
Dim a(4) As String
Dim k As Integer
Randomize
a(1) = "中"
a(2) = "国"
a(3) = "必"
a(4) = "胜"
k = Int(Rnd() * 4 + 0.5)
Text1.Text = a(k)
k = Int(Rnd() * 4 + 0.5)
Text2.Text = a(k)
k = Int(Rnd() * 4 + 0.5)
Text3.Text = a(k)
k = Int(Rnd() * 4 + 0.5)
Text3.Text = a(k)
End Sub

让我想象 啊

Private Sub Command1_Click()
Dim a() As Integer, i As Integer, b(3) As String, k As Integer, S As String
b(0) = "中"
b(1) = "国"
b(2) = "必"
b(3) = "胜"
ReDim a(3)
For i = 0 To 3
a(i) = i
Next i
Do While UBound(a) <> 0
Randomize
k = Int(Rnd() * (UBound(a) + 1))
S = S + b(a(k))
If k < UBound(a) Then
For i = k To UBound(a) - 1
a(i) = a(i + 1)
Next i
End If
ReDim Pres