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

以上关于本文的内容，仅作参考！温馨提示：如遇专业性较强的问题（如：疾病、健康、理财等），还请咨询专业人士给予相关指导!

• 属兔的人命中的绝配是谁 天造地设属狗人
• 什么时间睡觉最减肥？关于睡觉减肥你需要了这四个方面
• 感情文学网：关于感情的文章
• 关于情人节的说说大全，句句戳中心窝！
• 星座靠谱吗-星座
• 传统故事 关于狗的生肖故事有哪些
• 有哪些关于四季的诗句？
• 拜年是怎么来的
• 关于情感的文章 幸福值得拥有
• 一下关于爱情运势占卜免费测试，测姻缘八字合不合