[程序设计]请问关于vb随机文件的写操作 有程序不到20行
我想以随机方式向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
请问大家我错在什么地方啊
你可能想看：
