用vb怎么编学生选课系统

首先定义

结构体

关于学生

、课程

初始化学生姓名、学号、登录密码等

判断

如果登陆信息正确

跳到1函数，否则

容错处理

1函数：

要求

输出课程结构

如果学生选择课程

结构体-学生赋值：记录选则信息、

结构体-课程赋值：记录选课人数及学生信息，最好用链表做

剩下的自己想

Private Sub Form_Load()

List1.Clear

List1.AddItem ""大学计算机基础""

List1.AddItem ""VB程序设计""

List1.AddItem ""数据库技术与应用""

List1.AddItem ""C程序设计""

List1.AddItem ""多媒体技术""

List1.AddItem ""硬件技术基础""

List1.AddItem ""网络技术与应用""

List1.AddItem ""WEB程序设计""

End Sub

Private Sub List1_Click()

If List2.ListCount >= 5 Then

MsgBox ""超过5门课程，不能再选！""

Exit Sub

Else

List2.AddItem List1.Text

List1.RemoveItem List1.ListIndex

End If

End Sub

2

Private Sub Command1_Click()

Dim N As Long, Flags As Boolean

N = Val(Text1.Text)

Flags = True

For i = 2 To Sqr(N)

If N Mod i = 0 Then

Flags = False

Exit For

End If

Next

MsgBox N &IIf(Flags, "", "不") &"是一个素数"

End Sub