我想以随机方式向D:\bear\water.txt写数字1和2

　　首先我先定义一个模块

　　Type water

　　x As String

　　y As String

　　End Type

　　窗体是

　　有一个timer控件名字叫timer1

　　text1控件用来显示timer发生的次数

　　和一个叫cmd按钮

　　程序如下

　　Dim i As Integer

　　Private Sub Cmd_Click

　　i = 1

　　Timer1.Enabled = True

　　End Sub

　　Private Sub Timer1_Timer

　　Dim k As water

　　Open D:\bear\water.txt For Random As #1 Len = Len(k)

　　Put #1, i, k

　　i = i + 1

　　k.x = 1

　　k.y = 2

　　Text1.Text = i

　　Close #1

　　End Sub

　　将D:\bear\water.txt文件打开后都是空格 并没有写入的1和2

　　请问大家我错在什么地方啊