1 / 2
文档名称:

VB文件程序详解.doc

格式:doc   大小:82KB   页数:2页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

文档介绍:Private Type StudType
xuehao As Integer
xingming As String * 20
xingbie As String
chengjiAs Single
End Type
,建立一个结Private Type StudType
xuehao As Integer
xingming As String * 20
xingbie As String
chengjiAs Single
End Type
,建立一个结构类型。
Dim Student As StudType
'Student为该结构类型。
Dim Record_No As Integer
Sub form_load()
Open nd:\test\wenjianl .txt" For Random As #1 Len = Len(Student)
'打开文件“wenjianl”,用随机方法,“wenjianl”命名为1号(#1)文件。
Label6.Caption = Round(LOF(l) / Len(Student))
,取1号(#1)文件的长度(LOF (1))除以单位长度Len(Student),获得记录数(共有多少条记录)
Close #1
'关闭文件“wenjianl”。
End Sub
*w^*w*w*w*w*w*w*w*w*w^^^^*w*w*w*w*w*w*w*w*w*w*w^*w*w*w*w^*w^*w*w<,w*w<,^*w*w*w*w*w^^^*w*w*w*w*w*w*w*w*w*w*w^*w*w*w*w^*w^*w*w<,w*w<,^*w*w*w*w*w^^^*w*w*w*w*w*w
,添加记录
Sub Command 1 _Click()
With Student
'With语句在一个单一对象或一个用户定义类型上执行一系列的语句,以下语句相当于Student.xuehao
.xuehao 二 Vai (Text 1.Text)
.xingming = Text2.Text
.xingbie = IIf(Optionl .Value, T, n0")
如果Option 1被选中就将1赋给xingbie,如果Option 1没被选中就将2赋给xingbie
.chengji二 Val(Text3.Text)
End With
Open "d:\test\l.txt” For Random As #1 Len = Len(Student)
'打开文件"wenjianl”,用随机方法,“wenjianl”命名为1号(#1)文件。
Record_No = LOF(l) / Len(Student) + 1
'为即将添加的记录,设置记录号。
LOF(l)/Len(Student)为原有文件的记录数,再加1是,即将增加的记录的记录号。
Label6.Caption = Record_No
'将记录号显示在Label6上。
Put #1, Record_No, Student
,向1号(#1)文件里录入,Record_No号的Student信息。
Close #1
'关闭文件"wenjianl”。
End Sub
'显示记录
Sub Comm

分享好友

预览全文

VB文件程序详解.doc

上传人:蓝天 2022/5/20 文件大小:82 KB

下载得到文件列表

VB文件程序详解.doc

相关文档