请教1道VB

Dim a(5, 10) As Integer
Dim s(5)
Private Sub Command1_Click()
Open App.Path & "\in4.txt" For Input As #1
For i = 1 To 5
For j = 1 To 10
Input #1, a(i, j)
Next j
Next i
Close #1
End Sub

Private Sub Command2_Click()
For i = 1 To 5
s(i) = 0
For j = 1 To 10
' s(i) = ?
Next j
' ? = CInt(s(i) / 10)
Text1(i - 1) = s(i)
Next i
End Sub

Private Sub Command3_Click()
For k = 1 To 5
Shape1(k - 1).Height = s(k) * 20
m = Line2.Y1
' Shape1(k - 1).Top = ? - Shape1(k - 1).Height
' Shape1(k - 1).? = True
Next k
End Sub

请教1道vb改错题--回文 请教VB？？？？？ 请教两道vb的选择题！ 三道二级VB题请教大家 请教VB编程题,急!!!!!!!!!1 vb问题，请教vb高人 请教vb一个vb问题 VB初学者请教VB语句 请教VB高手 请教各位VB高手