一、作业名称：VB综合设计作业——多窗体应用程序设计
二、作业目的：
加深对Visual Basic编程语言的理解和应用。
培养学生使用多个窗体进行程序设计的能力。
提高学生综合运用所学知识解决实际问题的能力。
三、作业要求：
作业内容：
设计一个多窗体应用程序，实现以下功能：
（1）主窗体：显示程序名称、版本信息以及“登录”、“注册”、“退出”三个按钮。
（2）登录窗体：包含用户名、密码输入框以及“登录”、“取消”按钮。要求用户名和密码不能为空，且密码长度不少于6位。
（3）注册窗体：包含用户名、密码、确认密码输入框以及“注册”、“取消”按钮。要求用户名和密码不能为空，且密码长度不少于6位，确认密码与密码一致。
（4）个人信息窗体：显示登录用户的个人信息，包括用户名、性别、年龄等，并提供“修改信息”、“退出”按钮。
（5）修改信息窗体：包含用户名、性别、年龄输入框以及“保存”、“取消”按钮。要求用户名不能为空，性别和年龄可选。
作业要求：
（1）使用多个窗体进行设计，窗体之间通过事件进行交互。
（2）合理使用控件，使界面简洁、美观。
（3）代码结构清晰，命名规范，注释完整。
（4）程序运行稳定，无错误提示。
四、作业设计
主窗体设计
（1）界面设计：在主窗体上添加一个Label控件，显示程序名称和版本信息；添加三个Button控件，分别命名为“登录”、“注册”和“退出”。
（2）代码设计：
Private Sub Form_Load()
' 设置窗体标题
Me.Caption = "主窗体"
End Sub
Private Sub btnLogin_Click()
' 显示登录窗体
FrmLogin.Show
End Sub
Private Sub btnRegister_Click()
' 显示注册窗体
FrmRegister.Show
End Sub
Private Sub btnExit_Click()
' 退出程序
End
End Sub
登录窗体设计
（1）界面设计：在登录窗体上添加两个Label控件，分别显示“用户名”和“密码”；添加两个TextBox控件，分别用于输入用户名和密码；添加两个Button控件，分别命名为“登录”和“取消”。
（2）代码设计：
Private Sub Form_Load()
' 设置窗体标题
Me.Caption = "登录窗体"
End Sub
Private Sub btnLogin_Click()
' 判断用户名和密码是否为空
If txtUsername.Text = "" Or txtPassword.Text = "" Then
MsgBox "用户名和密码不能为空！"
Exit Sub
End If
' 判断密码长度是否不少于6位
If Len(txtPassword.Text) < 6 Then
MsgBox "密码长度不能少于6位！"
Exit Sub
End If
' 登录成功，显示个人信息窗体
FrmUserInfo.Show
Me.Hide
End Sub
Private Sub btnCancel_Click()
' 清空用户名和密码
txtUsername.Text = ""
txtPassword.Text = ""
End Sub
注册窗体设计
（1）界面设计：在注册窗体上添加三个Label控件，分别显示“用户名”、“密码”和“确认密码”；添加三个TextBox控件，分别用于输入用户名、密码和确认密码；添加两个Button控件，分别命名为“注册”和“取消”。
（2）代码设计：
Private Sub Form_Load()
' 设置窗体标题
Me.Caption = "注册窗体"
End Sub
Private Sub btnRegister_Click()
' 判断用户名和密码是否为空
If txtUsername.Text = "" Or txtPassword.Text = "" Or txtConfirmPassword.Text = "" Then
MsgBox "用户名和密码不能为空！"
Exit Sub
End If
' 判断密码长度是否不少于6位
If Len(txtPassword.Text) < 6 Then
MsgBox "密码长度不能少于6位！"
Exit Sub
End If
' 判断两次输入的密码是否一致
If txtPassword.Text <> txtConfirmPassword.Text Then
MsgBox "两次输入的密码不一致！"
Exit Sub
End If
' 注册成功，显示主窗体
FrmMain.Show
Me.Hide
End Sub
Private Sub btnCancel_Click()
' 清空用户名和密码
txtUsername.Text = ""
txtPassword.Text = ""
txtConfirmPassword.Text = ""
End Sub
个人信息窗体设计
（1）界面设计：在个人信息窗体上添加三个Label控件，分别显示“用户名”、“性别”和“年龄”；添加三个TextBox控件，分别用于显示用户名、性别和年龄；添加两个Button控件，分别命名为“修改信息”和“退出”。
（2）代码设计：
Private Sub Form_Load()
' 设置窗体标题
Me.Caption = "个人信息窗体"
' 显示用户信息
txtUsername.Text = "张三"
txtGender.Text = "男"
txtAge.Text = "20"
End Sub
Private Sub btnModifyInfo_Click()
' 显示修改信息窗体
FrmModifyInfo.Show
Me.Hide
End Sub
Private Sub btnExit_Click()
' 退出程序
End
End Sub
修改信息窗体设计
（1）界面设计：在修改信息窗体上添加三个Label控件，分别显示“用户名”、“性别”和“年龄”；添加三个TextBox控件，分别用于输入用户名、性别和年龄；添加两个Button控件，分别命名为“保存”和“取消”。
（2）代码设计：
Private Sub Form_Load()
' 设置窗体标题
Me.Caption = "修改信息窗体"
End Sub
Private Sub btnSave_Click()
' 判断用户名是否为空
If txtUsername.Text = "" Then
MsgBox "用户名不能为空！"
Exit Sub
End If
' 保存修改后的信息
FrmUserInfo.txtUsername.Text = txtUsername.Text
FrmUserInfo.txtGender.Text = txtGender.Text
FrmUserInfo.txtAge.Text = txtAge.Text
' 返回个人信息窗体
FrmUserInfo.Show
Me.Hide
End Sub
Private Sub btnCancel_Click()
' 返回个人信息窗体
FrmUserInfo.Show
Me.Hide
End Sub
五、作业评价标准：
界面设计：界面美观、简洁，控件布局合理。
代码质量：代码结构清晰，命名规范，注释完整。
程序功能：程序运行稳定，无错误提示，满足题目要求。
创新性：在满足基本要求的基础上，有创新性的设计和实现。