大一计算机vb程序设计实验要求及报告7

《大一计算机vb程序设计实验要求及报告7》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验7用户界面设计一、实验目的1．掌握常用控件、通用对话框。2．掌握菜单设计、多重窗体。二、实验要求1．在C:下建立子文件夹“VB实验7”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(71.vbp)、窗体文件(71.frm)及可执行文件（71.exe），本实验中的第二题，需保存的文件有：工程文件(72.vbp)、窗体文件(72.frm)及可执行文件（72.exe），其余实验依此类推。2．撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。三、实验内容：1.设计如图7-1所示的应用程序。它能利用

2、LostFocus事件过程对输入的内存大小进行合法性检查，确保最后2个字符是“MB”，其余的都是数字字符。当用户单击“Ok”按钮后，在右边的文本框中显示所选择的信息。要求：窗体显示字体、大小默认。图7-1答案：PrivateSubCommand1_Click()Text2=""Text2=Combo1.Text+vbCrLf+Text1+vbCrLfIfOption1.ValueThenText2=Text2+Option1.Caption+vbCrLfIfOption2.ValueThenText2=Text2+Option2.Caption+vbCrL

3、fIfOption3.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=Ri

4、ght(Text1.Text,2)IfNotIsNumeric(a)Orb<>"MB"ThenMsgBox"请重新输入内存",,"71"Text1=""Text1.SetFocusEndIfEndSub1.设计如图7-2所示的计算程序，要求：窗体显示字体、大小默认，参数输入用文本框，结果显示用标签框。图7-2答案：PrivateSubCommand1_Click()Dimaa=Val(Text1.Text)Text1.FontBold=Check1.ValueText1.FontItalic=Check2.ValueIfOption1.ValueThenL

5、abel3.Caption=Sin(a)IfOption2.ValueThenLabel3.Caption=Exp(a)IfOption3.ValueThenLabel3.Caption=Sqr(a)EndSub3.设计如图7-3和图7-3-1所示的菜单系统，并为菜单项编写有关的程序代码。菜单显示字体、大小默认。图7-3图7-3-1答案：PrivateSubcuti_Click()Text1.FontBold=TrueEndSubPrivateSubfont12_Click()Text1.FontSize=12EndSubPrivateSubfont16_

6、Click()Text1.FontSize=16EndSubPrivateSubjieshu_Click()EndEndSubPrivateSubqinchu_Click()Text1=""EndSubPrivateSubxieti_Click()Text1.FontItalic=TrueEndSub4.设计如图7-4所示的应用程序。当单击“设置标签颜色”按钮后，弹出“颜色”对话框，为标签中的文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出“打开文件”对话框，选择一个文本文件后并调用记事本程序编辑该文件利用Shell函数，Shell("C:WINDO

7、WSsystem32Notepad.exe"+CommonDialog1.FileName,1)。按钮显示的字体、大小默认，标签中的文字为宋体、小二号。图7-4答案：PrivateSubCommand1_Click()CommonDialog1.ShowColorLabel1.ForeColor=CommonDialog1.ColorEndSubPrivateSubCommand2_Click()CommonDialog1.Action=1i=Shell("C:WINDOWSsystem32Notepad.exe"+CommonDialog1.F

8、ileName,1)EndSub5．设计如图7-5所示的应用程序。