李欣桐程序设计语言(vb)实验报告

华北科技学院计算机学院综合性实验报告PAGE 第1页华北科技学院计算机学院综合性实验实验报告课程名称程序设计语言（VB）实验学期2013至2014学年第2学期学生所在院部管理学院年级大一专业班级会计B134学生姓名李欣桐学号201304044438任课教师于咏霞实验成绩计算机学院制

实验报告须知学生上交实验报告时，必须为打印稿（A4纸）。页面空间不够，可以顺延。学生应该填写的内容包括：封面相关栏目、实验地点、时间、目的、设备环境、内容、结果及分析等。教师应该填写的内容包括：实验成绩、教师评价等。教师根据本课程的《综合性实验指导单》中实验内容的要求，评定学生的综合性实验成绩；要求在该课程期末考试前将实验报告交给任课教师。综合性实验中，所涉及的程序，文档等在交实验报告前，拷贝给任课教师。任课教师统一刻录成光盘，与该课程的期末考试成绩一同上交到系里存档。未尽事宜，请参考该课程的实验大纲和教学大纲。

《程序设计语言（VB）》课程综合性实验报告开课实验室：基础实验室2014年6月10日实验题目VisualBasic综合应用程序开发一、实验目的掌握数组的应用：数组的定义数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。会使用过程编程和字符串操作sub过程的定义与调用function过程的定义调用字符串的大小写转换操作掌握基本控件的使用包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。掌握菜单和工具栏的使用二、设备与环境硬件：多媒体计算机软件：Windows2000以上的操作系统、VisualBasic集成开发环境三、实验内容先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。（5％）密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。（10％）“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。（35％，每个按钮功能为5％）。题目描述如下：在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下：开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。输入完毕后，“输入”按钮变灰，其他变为可用状态。按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。单击“清空”按钮将所有文本框清空。“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图2所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。（25％）题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。（25%）题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还包含四个单选按钮，标题为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。单击“退出”菜单，退出程序运行。四、实验结果及分析欢迎及密码界面（1）程序代码PrivateSubCommand1_Click()IfText1.Text="4438"ThenForm2.ShowElseMsgBox("密码错误")EndIfEndSubPrivateSubForm_Load()EndSub输入密码“4438”点击登录进入主界面如果密码错误则弹出窗口。主界面主界面包括数组应用，过程应用，空间应用，退出菜单及其子菜单。（2）程序代码PrivateSubForm_Load()EndSubPrivateSub过程应用_Click()Form4.ShowEndSubPrivateSub控件应用_Click()Form5.ShowEndSubPrivateSub数组应用_Click()Form3.ShowEndSubPrivateSub退出_Click()EndEndSub数组应用界面（3）程序代码Dimmark(1To10)AsIntegerPrivateSubCommand1_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)&","NextiEndSubPrivateSubCommand2_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(i)>MaxThenMax=mark(i)NextiText3.Text=Val(Max)EndSubPrivateSubCommand4_Click()Min=mark(1)Fori=1To10Ifmark(i)<MinThenMin=mark(i)NextiText4.Text=Val(Min)EndSubPrivateSubCommand5_Click()Fori=1To10v=InputBox("请输入第"&i&"个整数")IfNotIsNumeric(v)ThenMsgBox"输入数据无效，请重新输入，请输入第"&i&"个数",vbInformationv=InputBox("请输入第"&i&"个整数")EndIfmark(i)=vNextiCommand5.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand1.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueEndSubPrivateSubCommand6_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand7_Click()Form3.HideForm2.ShowEndSubPrivateSubForm_Load()Command5.Enabled=TrueCommand6.Enabled=FalseCommand7.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEndSub数组界面有7个按钮，4个text，当按输入按钮时，会弹出输入框。输入的不是数字会弹出提示框。输入成功10数字，点击升序排列，降序排列，最大值，最小值后会在相应text中显示结果。点击清除，即可清除text中的数字。点击返回，即可返回至主界面。字符转换界面（4）程序代码Dima,bDimn%PrivateSubCommand1_Click()IfOption1Thenn=Len(Text1)Fori=1Tonmeik=Mid(Text1,i,1)If"a"<kAndk<"z"Thenb=UCase(k)ElseIf"A"<kAndk<"Z"Thenb=LCase(k)EndIfText2=Text2&bNextiEndIfIfOption2ThenText2.Text=bEndIfIfOption3ThenText2.Text=bEndIfEndSubPrivateSubCommand2_Click()Form5.HideForm2.ShowEndSubPrivateSubForm_Load()EndSubPrivateSubOption2_Click()a=Text1.Textb=UCase(a)EndSubPrivateSubOption3_Click()a=Text1.Textb=LCase(a)EndSub字符转换界面中用到了frame和optionbutton，当用户选中frame中的选项时，再按转换按钮时就会把text1中的小写字母转换成大写字母到text2中。数学运算界面（5）程序代码Dima,b,cAsSinglePrivateSubCommand1_Click()Label4.Caption=""IfOption1ThenLabel4.Caption=a&"+"&b&"="&cEndIfIfOption2ThenLabel4.Caption=a&"-"&b&"="&cEndIfIfOption3ThenLabel4.Caption=a&"*"&b&"="&cEndIfIfOption4ThenLabel4.Caption=a&"/"&b&"="&cEndIfEndSubPrivateSubCommand2_Click()Form2.ShowEndSubPrivateSubHScroll1_Change()a=HScroll1.ValueLabel5.Caption=HScroll1.ValueEndSubPrivateSubHScroll2_Change()b=HScroll2.ValueLabel6.Caption=HScroll2.ValueEndSubPrivateSubLabel1_Click()EndSubPrivateSubOption1_Click()c=a+bEndSubPrivateSubOption2_Click()c=a-bEndSubPrivateSubOption3_Click()c=a*bEndSubPrivateSubOption4_Click()c=a/bEndSub数学运算界面中用到hscrollbar，左下角有+，-，*，/四个选项，按下计算按钮，运算式显示运算结果后面。也用到label，command，optionbutton。实验收获和体会在学习初期，VB对我来说是从未接触过的新事物，开始无法入门，但经过不懈的努力，我终于攻克了。首先，要保持良好的学习心态，要积极自信主动学习，树立自信心。其次，要有良好的学习习惯，课前预习，上课紧跟老师步伐