文档介绍：VB综合实验报告系别:信息系专业:应用电子技术学生姓名:张立朋指导教师:::,程序结构。。熟练运用循环和选择语句对数组操作。,:独立设计用户界面,设置相应属性,编写相关代码。:本模块是管理员登录系统时的一个版面,点击“确定”按钮即可进入下一个页面,::PrivateSubcmdOK_Click()()=="图书借阅系统"===TrueEndSubPrivateSubTimer1_Timer()<=+=0EndIfEndSub本模块主要是图书管理系统的登陆界面,用户输入正确的用户名,密码,验证码才能进入下一界面;如果三项中有输入错误的,则系统会显示相应的提示,并且禁止用户进入该系统。::mand1_Click()===vCodeThenLoadfrmMain:==<>vCodeThenMsgBox"验证码错误"Else:MsgBox"账号或密码错误"=""=""=""()'显示校验码Dimi,vc,px,pyAsLongDimr,g,bAsByteRandomize'初始化随机种子'生成随机校验码vc=CLng(8999*Rnd+1000)vCode=vc''添加噪点(防止自动图像识别)Fori=0To2000'画2000个噪点'画点随机位置px=CLng(*Rnd)py=CLng(*Rnd)'画点随机颜色r=CByte(255*Rnd)g=CByte(255*Rnd)b=CByte(255*Rnd)(px,py)-(px+1,py+1),RGB(r,g,b)mand2_Click()Unloadform2EndSubPrivateSubcmdOK_Click()===vCodeThenLoadform3:==<>vCodeThenMsgBox"验证码错误"Else:MsgBox"账号或密码错误"=""=""="",包括图书管理,借阅证管理,图书借阅管理,系统管理和退出五大块,而且每个块中又包含相应的子模块。同时模块底部还显示日期和时间。::PrivateSubForm_Load()DimiAsIntegerFori=(1).Style=(2).Style=(3).Text="图书管理!"EndWithEndSub本模块是添加图书类别,当添加新书时即可在此模块中添加该书的类别和编号,点击确定按钮系统会提示添加是否成功,::PrivateSubToolbar1_ButtonClick()"tsxx"'"dzxx"'