请帮忙写个VB程序 谢谢...

来源：百度知道 编辑：UC知道 时间：2024/07/02 02:28:51
用来储存和读取学校学生的基本资料
包括学号、姓名、年龄这三项

差不多就是点一个按钮可以输入新的资料
输入学号的话就可以显示该学生别的资料

差不多就是这样

不能太难的 我们木前学过的就只有CASE IF LOOPS SUBROUTINES ARRAY还有
TYPE(RECORD)
不是真的写完之后要用的啦
只是一个作业而已
老师基本是希望学过的东西用得越多越好

简单给你写一个,自己再优化一下：

在窗体上添加两个按钮 四个文本框

Private Type student
ID As String
Name As String
Age As Integer
End Type

Private studentList(9, 2) As String

Private Sub Command1_Click()
Dim stu As student
stu.ID = Text1.Text
stu.Name = Text2.Text
stu.Age = Val(Text3.Text)
NewStudent stu
End Sub

Private Sub NewStudent(stu As student)
Dim i As Integer
For i = 0 To 9
If studentList(i, 0) = "" Then
studentList(i, 0) = stu.ID
studentList(i, 1) = stu.Name
studentList(i, 2) = stu.Age
Exit For
End If
Next
End Sub

Private Function FindStudent(ID As String) As student
Dim i As Integer
Dim stu As student
For i = 0 To 9
If studentList(i, 0) = ID Then
stu.ID = studentList(i, 0)
stu.Name = studentList(i, 1)
stu.Age = stud