大家帮忙做一下vb题

来源：百度知道 编辑：UC知道 时间：2024/05/30 14:18:45
大家帮忙做一下vb题啊： 题目 学生信息管理系统
实验内容
1． 有一输入学生人数的输入对话框；
2． 输入学生的基本信息，保存到数组或文件中；
3． 建立一个查询界面，将查询的信息显示到窗体或者屏幕上；
4*. 对学生信息能进行修改。

代码太长了，说不清楚。
就是写好了贴出来也容易出错。
不如留个地址我发给你好了！

很大的一个工程啊！！！
下面下面先给一个我编的备忘录关于写入写出的代码~~~以后在补齐
Dim fso As New FileSystemObject
Dim fldr As Folder
Dim textstr As TextStream
Dim mydate$, response%
Private Sub Command1_Click()
If fso.FolderExists("d:\简易闹钟") Then
If fso.FileExists("d:\简易闹钟\bwldate.txt") Then
Set textstr = fso.CreateTextFile("d:\简易闹钟\bwldate.txt")
textstr.Write (CStr(Date) & " " & CStr(Time))
textstr.WriteLine ("")
textstr.Write (Text1.Text)
textstr.WriteLine ("")
textstr.Close
Else
Set textstr = fso.CreateTextFile("d:\简易闹钟\bwldate.txt")
textstr.Write (CStr(Date) & " " & CStr(Time))
textstr.WriteLine ("")