华北科技学院VB实验报告

华北科技学院计算机学院综合性实验报告PAGE 第12页华北科技学院计算机学院综合性实验实验报告课程名称程序设计语言（VB）实验学期2013至2014学年第2学期学生所在系部环境工程学院年级2013级专业班级学生姓名学号任课教师实验成绩计算机学院制

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

《程序设计语言（VB）》课程综合性实验报告开课实验室：基础三2014年5月11日实验题目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”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为opt1，标题为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。单击“退出”菜单，退出程序运行。四、实验结果及分析1.工程资源管理器窗口：系统组成情况图1工程资源管理器2.欢迎窗体：图2欢迎界面(1)计时器控件（timer1）:实现字幕移动PrivateSubForm_Load()Timer1.Interval=100Timer1.Enabled=TrueLabel2.Tag="1"Timer2.Interval=500EndSubPrivateSubTimer1_Timer()IfLabel1.Left<Val(Form1.Width)ThenLabel1.Left=Label1.Left+100ElseLabel1.Left=0-Val(Label1.Width)EndIfEndSub（2）计时器控件（timer2）:实现字幕闪烁PrivateSubTimer2_Timer()DimctlAsControlForEachctlInMeIfTypeOfctlIsLabelAndctl.Tag="1"Thenctl.Visible=Notctl.VisibleEndIfNextEndSub(3)form的click事件：进入登录界面PrivateSubForm_Click()Form2.ShowUnloadMeEndSub3、登录窗体图3登录界面PrivateSubCommand1_Click()IfText1.Text="123"AndText2="123"Theni=MsgBox("欢迎使用",0+64,"正常登录")Form3.ShowUnloadMeElsei=MsgBox("账号或密码错",0+16,"错误提示")EndEndIfEndSub4.功能选择图4功能选择界面PrivateSubForm_Load()Option1.Value=FalseOption2.Value=FalseOption3.Value=FalseEndSubPrivateSubOption1_Click()Form4.ShowUnloadMeEndSubPrivateSubOption2_Click()Form5.ShowUnloadMeEndSubPrivateSubOption3_Click()Form6.ShowUnloadMeEndSubPrivateSubcz_Click()Form4.ShowEndSubPrivateSubsm_Click()Form7.ShowEndSubPrivateSubtc_Click()EndEndSubPrivateSubysq_Click()Form6.ShowEndSubPrivateSubzf_Click()Form5.ShowEndSubPrivateSubCommand1_Click()EndEndSub5.数组应用图5数组应用界面Dima(1To10)AsIntegerPrivateSubCommand2_Click()i=MsgBox("确定要返回吗",1+48,"提示")Text1.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text3.Text=""Form4.HideForm3.ShowCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubCommand3_Click()Text1.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text3.Text=""EndSubPrivateSubCommand4_Click()Min=a(1)Fori=1To10Ifa(i)<MinThenMin=a(i)EndIfNextiText3.Text=Val(Min)EndSubPrivateSubCommand5_Click()Max=a(10)Fori=1To10Ifa(i)>MaxThenMax=a(i)EndIfNextiText6.Text=Val(Max)EndSubPrivateSubCommand6_Click()n=UBound(a)Fori=1Ton-1Forj=i+1TonIfa(j)>a(i)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiFori=1TonText5.Text=Text5.Text+Str(a(i))NextiEndSubPrivateSubForm_Load()Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubCommand1_Click()Fori=1To10m=InputBox("请输入第"&i&"个值")IfNotIsNumeric(m)ThenMsgBox"输入数据无效，请重新输入,请输入第"&i&"个值",64m=InputBox("请输入第"&i&"个值")EndIfa(i)=mText1.Text=Text1.Text&m&vbTabIfiMod5=0ThenText1.Text=Text1.Text&vbCrLfNextiCommand1.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueEndSubPrivateSubCommand7_Click()n=UBound(a)Fori=1Ton-1Forj=i+1TonIfa(j)<a(i)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiFori=1TonText4.Text=Text4.Text+Str(a(i))NextiEndSub6.字符应用图6字符应用界面PrivateSubCommand1_Click()Dimn$,i%IfOption2ThenText2=UCase(Text1)IfOption3ThenText2=LCase(Text1)IfOption1ThenText2=""Fori=1ToLen(Text1)n=Mid(Text1,i,1)IfAsc(n)>=97Thenn=UCase(n)Elsen=LCase(n)EndIfText2=Text2&nNextiEndIfEndSubPrivateSubCommand2_Click()i=MsgBox("确定要返回吗",1+48,"提示")Text1=""Text2=""Form5.HideForm3.ShowEndSub7.计算器图7计算器界面OptionExplicitDimW%,pAsSinglePrivateSubCommand2_Click()MsgBox"确定要返回吗",1+48,"提示"HScroll1.Value=1HScroll2.Value=1Label4.Caption=""Label5.Caption=""Label6.Caption=""Form6.HideForm3.ShowEndSubPrivateSubForm_Load()Option1(0).Value=TrueEndSubPrivateSubHScroll1_Change()Label5.Caption=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Label5.Caption=HScroll1.ValueEndSubPrivateSubHScroll2_Change()Label6.Caption=HScroll2.ValueEndSubPrivateSubHScroll2_Scroll()Label6.Caption=HScroll2.ValueEndSubPrivateSubOption1_Click(IndexAsInteger)W=IndexEndSubPrivateFunctionY(aAsInteger,BAsInteger)AsSingleSelectCaseWCase0Y=a+BCase1Y=a-BCase2Y=a*BCaseElseY=a/BEndSelectEndFunctionPrivateSubCommand1_Click()p=Y(HScroll1.Value,HScroll2.Value)IfOption1(0).Value=TrueThenLabel4.Caption=HScroll1.Value&Option1(0).Caption&HScroll2.Value&"="&pEndIfIfOption1(1).Value=TrueThenLabel4.Caption=HScroll1.Value&Option1(1).Caption&HScroll2.Value&"="&p