module1.bas

学生成绩管理系统

Attribute VB_Name = "Module1"
Type studtype
 snum As String * 7
 name As String * 10
 sex As String * 1
 pass As String * 20
 birth As String * 8
 tel As String * 20
 gaoshu As Integer
 yingyu As Integer
 wuli As Integer
 huaxue As Integer
 zongfen As Integer
 paiming As Integer
End Type