求VB高手！！！！！帮忙解答一下，谢谢了！！！！！急用！！！！！！

Question

计算1 到10每个整数的3次方，按每个记录（每个记录为一行）2个数据的形式将计算结果存入另一个文件datal.txt中

Answer 1

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Open "c:\datal.txt" For Append As #1
For i = 1 To 10
Print #1, i, i * i * i
Next i
Close #1
End Sub