以下vb问题怎么做？

窗体上有2个text和3个command（c1 c2 c3）取数：把in5.dat中50个数读取到数组中 排序：按升序排列 然后存盘

Dim a(50) As Integer
Private Sub C1_Click()
    Dim k As Integer, ch As String
    Open "in5.dat" For Input As #1
    ch = ""
    For k = 1 To 50
        Input #1, a(k)
        ch = ch + Str(a(k)) + "  "
    Next k
    Close #1
    Text1.Text = ch
End Sub
Private Sub C2_Click()
For i = 1 To 50
imin = i
For j = i + 1 To 50
If a(j) < a(imin) Then imin = j
Next j
a(k) = a(imin)
a(imin) = a(k)
Text2.Text = Text2.Text + Str(a(k)) + "  "
Next i
End Sub
Private Sub C3_Click()
    Open "out5.dat" For Output As #1
    Print #1, Text2.Text
    Close #1
End Sub
哪里写的不对  运行之后不行啊 错误在哪里 该怎么写

追问：什么？哪里？不明白。。。

其他：%号没写 看见 ZHMINGEN 回答得这么好的，我就不回答了，顶他 

上一个：求VB程序创意~~~~~~~~~
下一个：帮我解决vb题目好吗？