VB程序设计实验要求及报告7

上海立信会计学院本科实验报告班级：学号：姓名：指导教师：系部：专业：实验时间：实验7用户界面设计实验目的掌握常用控件、通用对话框。掌握菜单设计、多重窗体。二、实验要求在C:\下建立子文件夹“VB实验7”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(71.vbp)、窗体文件(71.frm)及可执行文件（71.exe），本实验中的第二题，需保存的文件有：工程文件(72.vbp)、窗体文件(72.frm)及可执行文件（72.exe），其余实验依此类推。撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。实验内容：设计如图7-1所示的应用程序。它能利用LostFocus事件过程对输入的内存大小进行合法性检查，确保最后2个字符是“MB”，其余的都是数字字符。当用户单击“Ok”按钮后，在右边的文本框中显示所选择的信息。要求：窗体显示字体、大小默认。图7-1PrivateSubCommand1_Click()Text2=""Text2=Combo1.Text+vbCrLf+Text1+vbCrLfIfOption1.ValueThenText2=Text2+Option1.Caption+vbCrLfIfOption2.ValueThenText2=Text2+Option2.Caption+vbCrLfIfOption3.ValueThenText2=Text2+Option3.Caption+vbCrLfIfCheck1.ValueThenText2=Text2+Check1.Caption+vbCrLfIfCheck2.ValueThenText2=Text2+Check2.Caption+vbCrLfIfCheck3.ValueThenText2=Text2+Check3.CaptionEndSubPrivateSubText1_LostFocus()Dima$,b$a=Left(Text1.Text,Len(Text1.Text)-2)b=Right(Text1.Text,2)IfNotIsNumeric(a)Orb<>"MB"ThenMsgBox"请重新输入内存",,"71"Text1=""Text1.SetFocusEndIfEndSub设计如图7-2所示的计算程序，要求：窗体显示字体、大小默认，参数输入用文本框，结果显示用标签框。图7-2PrivateSubCommand1_Click()Dimaa=Val(Text1.Text)Text1.FontBold=Check1.ValueText1.FontItalic=Check2.ValueIfOption1.ValueThenLabel3.Caption=Sin(a)IfOption2.ValueThenLabel3.Caption=Exp(a)IfOption3.ValueThenLabel3.Caption=Sqr(a)EndSub3.设计如图7-3和图7-3-1所示的菜单系统，并为菜单项编写有关的程序代码。菜单显示字体、大小默认。图7-3图7-3-1PrivateSubcuti_Click()Text1.FontBold=TrueEndSubPrivateSubfont12_Click()Text1.FontSize=12EndSubPrivateSubfont16_Click()Text1.FontSize=16EndSubPrivateSubjieshu_Click()EndEndSubPrivateSubqinchu_Click()Text1=""EndSubPrivateSubxieti_Click()Text1.FontItalic=TrueEndSub4.设计如图7-4所示的应用程序。当单击“设置标签颜色”按钮后，弹出“颜色”对话框，为标签中的文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出“打开文件”对话框，选择一个文本文件后并调用记事本程序编辑该文件利用Shell函数，Shell("C:\WINDOWS\system32\Notepad.exe"+CommonDialog1.FileName,1)。按钮显示的字体、大小默认，标签中的文字为宋体、小二号。图7-4PrivateSubCommand1_Click()CommonDialog1.ShowColorLabel1.ForeColor=CommonDialog1.ColorEndSubPrivateSubCommand2_Click()CommonDialog1.Action=1i=Shell("C:\WINDOWS\system32\Notepad.exe"+CommonDialog1.FileName,1)EndSub5．设计如图7-5所示的应用程序。它对列表框具有随机产生10个数据、删除最小值/最大值、添加数据、统计的功能。统计结果显示在如图7-5-1所示的窗体中，显示的字体、大小为默认。图7-5图7-5-1PrivateSubadd_Click()List1.AddItemInt(Rnd*100+1)EndSubPrivateSubdeletemax_Click()Dimmax%,imax%,i%max=Val(List1.List(0)):imax=0Fori=1ToList1.ListCount-1IfVal(List1.List(i))>maxThenmax=List1.List(i):imax=iNextiList1.RemoveItemimaxEndSubPrivateSubdeletemin_Click()Dimmin%,imin%,i%min=Val(List1.List(0)):imin=0Fori=1ToList1.ListCount-1IfVal(List1.List(i))<minThenmin=List1.List(i):imin=iNextiList1.RemoveItemiminEndSubPrivateSubexit_Click()EndEndSubPrivateSubrandom_Click()Dima%(1To10)Dimi%List1.ClearRandomizeFori=1To10a(i)=Int(Rnd*100+1)List1.AddItema(i)NextEndSubPrivateSubtongji_Click()Dimmax%,min%,ave!max=List1.List(0):min=List1.List(0):ave=List1.List(0)Fori=1ToList1.ListCount-1IfList1.List(i)>maxThenmax=List1.List(i)IfList1.List(i)<minThenmin=List1.List(i)ave=ave+List1.List(i)NextiForm2.Text1=minForm2.Text2=maxave=Format(ave/List1.ListCount,"0.0")Form2.Text3=aveForm2.ShowEndSub6．设计如图7-6所示的应用程序。利用文本框和定时器控件，使文字从左到右水平循环移动。要求初始时静止，当单击窗体时开始移动，当双击窗体时停止移动，设Interval=100。标签中的文字为隶书、小二号、红色，窗体背景为&H00FFFF80&。图7-6PrivateSubForm_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_