程序分为一个表单cfanvb.frm,一个模块cfanvb.bas。一个表单程序。程序的表单中有五个命令按钮,从上到下分别命名为Cmdnew、 Cmdsave,Cmdtxt、cmdlookfor、Cmdexit,标题分别为&.New、&.Save、&.Txt、&. Lookfor、&.Exit;还有三个文本框,名称分别为Textname、Textage、Textsex;还有三个标签。 程序的功能 功能1:能存储你所输入的每一条完整记录,并创造数据库文件nas.db。 功能2:能按输入的姓名字段查找记录并显示。 功能3:将所有记录按NAME字段排序制成文本文件nas.txt,以便打印、修改。 程序运行情况 先后输入八条记录,name字段分别为李继华、朱茵、小巩、朱朱、李丽丽、黄庆、Tom、Kate,并一一存储(按Save按钮,存储第一条记录前,Txt 按钮为灰色,即不可激活态);点击【Txt】按钮,会出现【文本已经建好】提示框(文本的各项是按姓名顺序排列的,name分别为Kate、Tom、小巩、朱朱、朱茵、李丽丽、李继华、黄庆);在Textname文本框中输入上面任一姓名,点击【Lookfor】按钮即可得到其他的字段(年龄、性别)情况,如果不为此八人,则显示【not find】提示框。此程序运行后可以建立一个名为Nas.db的数据库文件和一个名为Nas.txt的文本文件。 Cfanvb.bas模块代码为: Type nas ’定义记录类型 name As String * 6 ’姓名 age As String * 3 ’年龄 sex As String * 4 ’性别 End Type Type nasindex ’定义另一记录类型 name As String * 6 ’姓名 number As Integer ’记录号 End Tyep Public among As nas ’定义公共变量 public index() As nasindex ’定义枚举索引数组 Public totalnum As Integer ’定义总记录数 cfanvb.frm表单的代码为: Option Explicit ’强制变量必须进行正规声明 Const nasdb="\nas.db" ’定义常量数据库文件名 Const nastxt="\nas.txt" ’定义文本文件名 Function search(findtxt) As Integer ’Function过程,寻找某一姓名findtxt,得出记录号search Dim front As Integer ’定义变量 Dim behind As Integer Dim findnum As Integer Dim middle As Integer