在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click()
Open”c:\test.dat" For (14) As#1
For i=1 to Len(Text1.text)
print #1,mid(Text1.Text,i,1)
Next
Close#1
End Sub