华北科技学院vb综合实验报告(完美版)

《华北科技学院vb综合实验报告(完美版)》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、华北科技学院计算机学院综合性实验实验报告课程名称程序设计语言《VB)实验学期2012至2013学年第二学期学生所在系部年级2012级专业班级学生姓名学号任课教师吴晓丹实验成绩计算机学院制《程序设计语言(VB)》课程综合性实验报告开课实验室：基础实验室2013年6月28曰实验题目VisualBasic综合应用程序开发—、实验目的1＞掌握数组的应用：(1)数组的定义(2)数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。2、会使用过程编程和字符串操作(1)sub过程的定义与调用(2)function过程的定义调用(3)字符串的大小写转换操作3、掌握基本控件的使用包括

2、常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。4、掌握菜单和工具栏的使用二、设备与环境硬件：多媒体计算机软件：Windows2000以上的操作系统、VisualBasic集成开发环境三、实验内容1、先进入欢迎界面，在屏幕上显示“欢迎您使用本程序”，并弹出密码框，等待输入密码。2、密码正确后进入系统主界谢，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单。3、“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”窗体。4、“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”窗体。5、单击“控件应用”菜单，弹出“数学运算”窗

3、体。6、单击“退出”菜单，退出程序运行。四、实验结果及分1、开始界面QForml欢迎皮用4«專(1)程序代码PrivateSubFormClick()Form2.ShowEndsub点击界而进入密码输入窗口&登录口

4、回输入密码“12345”点击“登入”即可进入主界面工程11-^-1如不是进入密码弹岀窗口1，重新瑜入(1)程序代码PrivateSubCommand1_Click()IfText1.Text=M12345"ThenForm4.ShowElseMsgBox(n密码错误，重新输入n)EndIfEndSub2,主页面(1)界面设计密码正确后进入系统主界面，主界面包括“数组应川”、“

5、过61应用”、“控件和“退出”等菜傘，及“数组应用”“字符应“控件应用”等子菜单并提供相关工具栏或命令按钮。(2)程序代码如下PrivateSub过程应用_(：1^±()Form5.ShowEndSubPrivateSub控件应用_(2以1<0Form6.ShowEndSubPrivateSub数组应用_(21化1<()Form3.ShowEndSub(3)学习收获:学会使用“菜单编辑器”，做好form2和form3、form4、form5、form6之间的链接。3数组应用(1)界面设计此部分在界面上右七个按钮和四个text，当按“输入10个数”时界面上会出现inputbox提示你依次输

6、入10个数字。如果输入的不是数字会跳出提示框。工程1请输入第1个整数取消驗

7、输入完10个数字后点击“升序排列”“降序排列”“最大值”“最小值”会在相应TEXT中显示结果点击“清除”即可清除TEXT中的数字。(2)程序代码Dimmark(1To10)AsIntegerPrivateSubCommandl_Click0n=UBound(mark)Fori=1Ton-1Forj=i+1TonIfmark(j)

8、iEndSubPrivateSubCommand2_Click()n=UBound(mark)Fori=1Ton-1Forj=i+1TonIfmark(j)>mark(i)Thent=mark(i):mark(i)=mark(j):mark(j)=tEndIfNextjNextiFori=1TonText2=Text2&mark(i)&",〃NextiEndSubPrivateSubCommand3_Click()Max=mark(10)Fori=1To10Ifmark⑴>MaxThenMax=mark(i)NextiText3.Text=Val(Max)EndSubPrivateSub

9、Command4_Click()Min=mark⑴Fori=1To10Ifmark(i)