VB综合实验报告模板

实验报告课程名称程序设计语言(VB)实验学期至学年第学期学生所在系部年级班级学生姓名学号任课教师实验成绩计算机系制华北科技学院计算机系综合性实验报告第1页《程序设计语言（VB）》课程综合性实验报告开课实验室：基础四年月日实验题目VisualBasic综合应用程序开发一、实验目的1、掌握数组的应用：（1）数组的定义（2）数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。2、会使用过程编程和字符串操作（1）sub过程的定义与调用（2）function过程的定义调用（3）字符串的大小写转换操作3、掌握基本控件的使用包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。4、掌握菜单和工具栏的使用二、设备与环境硬件：多媒体计算机软件：Windows2000以上的操作系统、VisualBasic集成开发环境三、实验内容1.先进入欢迎界面，在屏幕上显示欢迎您使用本程序，并弹出密码框，等待输入密码。（5％）2.密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。（10％）3.“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。（35％，每个按钮功能为5％）。题目描述如下：在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下：(1)开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。(2)单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。(3)输入完毕后，“输入”按钮变灰，其他变为可用状态。(4)按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。(5)单击“清空”按钮将所有文本框清空。4.“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图2所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。（25％）题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。5.单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。（25%）题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为opt1，标题为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。6.单击“退出”菜单，退出程序运行。四．实验结果及分析设计步骤如下华北科技学院计算机系综合性实验报告第2页1.先进入欢迎界面，在屏幕上显示欢迎您使用本程序，并弹出密码框，等待输入密码。设计界面如下图所示：代码如下：PrivateSubText1_LostFocus()IfText1.Text**ThenMsgBox账号必须为**,,警告Text1.Text=Text1.SetFocusEndIfEndSubPrivateSubCommand1_Click()DimiAsIntegerIfText2.Text1234Theni=MsgBox(密码错误,5+vbExclamation,警告)Ifi4ThenEndElseText2.Text=Text2.SetFocusEndIfEndIfForm1.HideForm2.ShowEndSub2密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。华北科技学院计算机系综合性实验报告第3页代码如下：PrivateSubkongjianyingyong_Click()Form5.ShowEndSubPrivateSubshuzucaozuo_Click()Form3.ShowEndSubPrivateSubtuichu_Click()Form2.HideEndSubPrivateSubzifuzhuanhuan_Click()Form4.ShowEndSub3.“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框。代码如下：Dimmark(1To10)AsIntegerPrivateSubCommand3_Click()Form3.HideForm2.ShowEndSubPrivateSubForm_Load()Command1.Enabled=TrueCommand2.Enabled=FalseCommand3.Enabled=True华北科技学院计算机系综合性实验报告第4页Command4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseEndSub（1）单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”PrivateSubCommand1_Click()Fori=1To10v=InputBox(请输入第&i&个整数)IfNotIsNumeric(v)ThenMsgBox输入数据无效，请重新输入，请输入第&i&个数。,vbInformationv=InputBox(请输入第&i&个整数)EndIfmark(i)=vNextiCommand1.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueEndSub（2）升序排列PrivateSubCommand4_Click()n=UBound(mark)Fori=1Ton-1Forj=i+1TonIfmark(j)mark(i)Thent=mark(i):mark(i)=mark(j):mark(j)=tEndIfNextjNextiFori=1TonText1=Text1&mark(i)&,NextiEndSub（3）降序排列PrivateSubCommand5_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)&,NextiEndSub（4）最大值PrivateSubCommand6_Click()Max=mark(10)Fori=1To10华北科技学院计算机系综合性实验报告第5页Ifmark(i)MaxThenMax=mark(i)NextiText3.Text=Val(Max)EndSub（5）最小值PrivateSubCommand7_Click()Min=mark(1)Fori=1To10Ifmark(i)MinThenMin=mark(i)NextiText4.Text=Val(Min)EndSub（6）清空PrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=EndSub4.“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图。所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换代码如下：Dima,bPrivateSubOption2_Click()a=Text1.Textb=UCase(a)EndSubPrivateSubOption3_Click()a=Text1.Textb=LCase(a)EndSubPrivateSubCommand1_Click()Dimn%IfOption1Thenn=Len(Text1)华北科技学院计算机系综合性实验报告第6页Fori=1Tonk=Mid(Text1,i,1)IfakAndkzThenb=UCase(k)ElseIfAkAndkZThenb=LCase(k)EndIfText2=Text2&bNextiEndIfIfOption2ThenText2.Text=bEndIfIfOption3ThenText2.Text=bEndIfEndSub5.单击“控件应用”菜单，弹出“数学运算”对话框，如图所示。代码如下：DimaAsInteger,bAsInteger,cAsIntegerPrivateSubHScroll1_Change()a=HScroll1.ValueLabel1.Caption=运算数1:&&aEndSubPrivateSubHScroll2_Change()b=HScroll2.ValueLabel2.Caption=运算数2:&&bEndSubPrivateSubOption1_Click()c=a+bEndSubPrivateSubOption2_Click()c=a-bEndSubPrivateSubOption3_Click()c=a*b华北科技学院计算机系综合性实验报告第7页EndSubPrivateSubOption4_Click()c=a/bEndSubPrivateSubCommand1_Click()Label4.Caption=IfOption1ThenLabel4.Caption=a&+&b&=&cEndIfIfOption2ThenLabel4.Caption=a&-&b&=&cEndIfIfOption3ThenLabel4.Caption=a&*&b&=&cEndIfIfOption4ThenLabel4.Caption=a&/&b&=&cEndIfEndSub6单击“退出”菜单，退出程序运行。五、总结教师评价评定项目ABCD评定项目ABCD算法正确界面美观，布局合理华北科技学院计算机系综合性实验报告第8页程序结构合理操作熟练语法、语义正确实验结果正确报告规范文字流畅其他：评价教师签名：年月日