搜索
华北科技学院计算机学院综合性实验实验报告课程名称程序设计语言(VB)实验学期2012至2013学年第二学期学生所在系部安全工程学院年级2012级班级安全B122班学生姓名熊昊学号201210044238任课教师李冬艳实验成绩计算机学院制计算机学院综合性实验报告第1页《程序设计语言（VB）》课程综合性实验报告开课实验室：基础二2013年6月15日实验题目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、欢迎页面与密码登陆用于检验用户！密码错误不得登陆程序。截图如下：代码如下：PrivateSubCommand1_Click()n=Text1.TextIfnxhThen’判断密码是否为xhi=MsgBox(密码错误！)’若不是则显示密码错误Text1.Text=’text1清空Text1.SetFocus’text1设为焦点Else’否则MsgBox登陆成功！’msgbox提示登陆成功实验内容.Show’实验内容窗体显示登录.Hide’登陆窗体隐藏EndIfEndSub计算机学院综合性实验报告第3页2、密码正确进入主菜单！本程序拥有“数组应用”、“过程应用”、“控件应用”等控件。截图如下：代码如下：PrivateSubszcz_Click()数组操作.Show’数组操作窗体显示实验内容.Hide’实验内容窗体隐藏EndSubPrivateSubzfzh_Click()字符转换.Show实验内容.HideEndSubPrivateSubsxys_Click()数学运算.Show实验内容.HideEndSubPrivateSubtc_Click()End’结束EndSub计算机学院综合性实验报告第4页3、数组应用中包括数组操作，运用imputbox输入十个数。并对这十个数进行升序降序排列。并确定最小值和最大值。截图如下：代码如下：Dima(1To10)AsSinglePrivateSubCommand1_Click()Fori=1To10’从1循环到10a(i)=InputBox(输入第&i&数据,请输入数据)’输入的内容存放到数组DoWhileNotIsNumeric(a(i))IfNotIsNumeric(a(i))ThenMsgBox输入数据无效，请重新输入，请输入第&i&个数字,,注意a(i)=InputBox(输入第&i&数据,请输入数据)EndIfLoop’如果数组a的内容不是数字则msgbox弹出提示，并重新输入NextiCommand1.Enabled=False’更改command1为不可用Command2.Enabled=True’更改command2为可用Command4.Enabled=True’更改command4为可用Command5.Enabled=True5’更改command为可用Command6.Enabled=True’更改command6为可用计算机学院综合性实验报告第5页Command7.Enabled=True’更改command7为可用EndSubPrivateSubCommand2_Click()Text1.Text=’text1内容为“”Text2.Text=’text2内容为“”Text3.Text=’text3内容为“”Text4.Text=’text4内容为“”EndSubPrivateSubCommand3_Click()UnloadMe’卸载当前窗体实验内容.Show’实验内容窗体显示EndSubPrivateSubCommand4_Click()Forj=10To1Step-1’执行循环，在j=10到i+1的条件下进行循环，每循环一次j减1Fori=1Toj–1’执行循环，在i=1到j-1的条件下循环，每循环一次i加1IfVal(a(i))Val(a(j))Thent=a(i)a(i)=a(j)a(j)=tEndIf’冒泡法排序NextiText1.Text=Text1.Text&&a(j)’在text1显示原text1文本和a(j)内容NextjEndSubPrivateSubCommand5_Click()Forj=10To1Step-1Fori=1Toj-1IfVal(a(i))Val(a(j))Thent=a(i)a(i)=a(j)a(j)=tEndIfNextiText2.Text=Text2.Text&&a(j)NextjEndSub’代码注释同上PrivateSubCommand6_Click()m=1’m赋值1计算机学院综合性实验报告第6页Forj=1To10’循环j从1到10每次加1IfVal(a(j))=Val(a(m))Thenm=j’当a(j)的值小于等于a(m)把j赋值给mNextjText3.Text=a(m)’text3显示a(m)EndSubPrivateSubCommand7_Click()m=1Forj=1To10IfVal(a(j))=Val(a(m))Thenm=jNextjText4.Text=a(m)EndSub’注释同上PrivateSubForm_Load()Command2.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseEndSub’窗体读取时改变command可用性4、过程应用中包括字符转换，应用于对输入的字符进行大小写转换。截图如下：代码如下：PrivateSubCommand1_Click()a=Trim(Text1.Text)’去掉text1中的空格计算机学院综合性实验报告第7页Callzhuanhuan(a,b)’调用函数zhuanhuanText2.Text=b’text2的内容为bEndSubPublicSubzhuanhuan(X,Y)Y=Fori=1ToLen(X)’循环从i=1到x的长度，每次加1a=Mid(X,i,1)’在x中第i处开始去长度为1的字符IfOption1.Value=TrueThenIfAsc(a)=65AndAsc(a)=90Thena=Chr(Asc(a)+32)Elsea=Chr(Asc(a)-32)EndIfEndIf’option1被选中，ascll在65~90，a中字符的ascll全部加32，否则减32IfOption2.Value=TrueThenIfAsc(a)=65AndAsc(a)=90Thena=Chr(Asc(a))Elsea=Chr(Asc(a)-32)EndIfEndIf’option2被选中，ascll在65~90,显示原字符，否则减32IfOption3.Value=TrueThenIfAsc(a)=65AndAsc(a)=90Thena=Chr(Asc(a)+32)Elsea=Chr(Asc(a))EndIfEndIf’option3被选中，a中字符ascll在65~90，则ascll全加32，否则显示原字符Y=Y&a’y的字符串和a的字符串相加赋值给yNextiEndSubPrivateSubCommand2_Click()实验内容.ShowUnloadMeEndSub计算机学院综合性实验报告第8页5、控件应用中包括数学运算，应用于对有水平滚动条确定的数字进行加减乘除运算，并显示结果。截图如下：代码如下：PrivateSubCommand1_Click()DimX%,Y%,n!’定义x，y为整型，n为单精度型X=HScroll1.Value’滚动条1的值赋给xY=HScroll2.Value’滚动条2的值赋给yIfOption1.Value=TrueThenn=X+YLabel4.Caption=X&+&Y&=&nEndIf’option1选中，n的值为x+y，在label4显示x+y=nIfOption2.Value=TrueThenn=X–Y’n的值为x-yLabel4.Caption=X&-&Y&=&nEndIfIfOption3.Value=TrueThenn=X*Y’n的值为x乘yLabel4.Caption=X&*&Y&=&nEndIfIfOption4.Value=TrueThenn=X/Y’n的值为x除yLabel4.Caption=X&/&Y&=&nEndIfEndSub计算机学院综合性实验报告第9页PrivateSubHScroll1_Change()HScroll1.Max=100HScroll1.Min=1Label5.Caption=HScroll1.ValueEndSub’滚动条1最大值为100,最小值为1在label5显示滚动条1的值PrivateSubHScroll2_Change()HScroll2.Min=1HScroll2.Max=100Label6.Caption=HScroll2.ValueEndSub’同上PrivateSubCommand2_Click()实验内容.ShowU