VB的课程设计题
f = True Form3.Show Unload Form2 Exit Do End If Loop Close
If f = False Then t = t + 1 If t < 3 Then
MsgBox "用户不存在,请重新输入!", vbOKOnly + vbInformation, "用户名错误"
Else
MsgBox "重试次数已到,即将退出本系统!", vbOKOnly + vbExclamation, "用户名错误"
End Exit Sub End If End If End If End Sub
Private Sub Command2_Click() '结束按钮 End
End Sub
(3)主界面一如图6所示
主界面的功能是展示出系统软件的功能,使用户一目了然。

