Question

求大佬们帮忙做道VB题

Answer 1

Private Type Student
StudentNo As Long
StudentName As String
StudentGender As String
StudentBirth As Date
StudentScore As Single
End Type
Private Sub Command1_Click()
Dim stu As Student
stu.StudentNo = 2009001
stu.StudentName = "李明"
stu.StudentGender = "男"
stu.StudentBirth = "1990-10-25"
stu.StudentScore = 610
Label1.Caption = stu.StudentNo & " ," & stu.StudentName & " ," & stu.StudentGender & " ," & stu.StudentBirth & " ," & stu.StudentScore
End Sub