《大一计算机VB程序设计实验要求及报告》由会员分享，可在线阅读，更多相关《大一计算机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所示的应用程序。它能利用LostFocus事件过程对
2、输入的内存大小进行合法性检查，确保最后2个字符是“MB”，其余的都是数字字符。当用户单击“Ok”按钮后，在右边的文本框中显示所选择的信息。要求：窗体显示字体、大小默认。图7-1答案：Private Sub Command1_Click()Text2 = Text2 = Combo1.Text + vbCrLf + Text1 + vbCrLfIf Option1.Value Then Text2 = Text2 + Option1.Caption + vbCrLfIf Option2.Value Then Text2 = Text2 + Option2.Caption + vbCrLfIf O
3、ption3.Value Then Text2 = Text2 + Option3.Caption + vbCrLfIf Check1.Value Then Text2 = Text2 + Check1.Caption + vbCrLfIf Check2.Value Then Text2 = Text2 + Check2.Caption + vbCrLfIf Check3.Value Then Text2 = Text2 + Check3.CaptionEnd SubPrivate Sub Text1_LostFocus()Dim a$, b$a = Left(Text1.Text, Len(
4、Text1.Text) - 2)b = Right(Text1.Text, 2)If Not IsNumeric(a) Or b MB Then MsgBox 请重新输入内存, , 71 Text1 = Text1.SetFocusEnd IfEnd Sub2. 设计如图7-2所示的计算程序，要求：窗体显示字体、大小默认，参数输入用文本框，结果显示用标签框。图7-2答案：Private Sub Command1_Click()Dim aa = Val(Text1.Text)Text1.FontBold = Check1.ValueText1.FontItalic = Check2.ValueI
5、f Option1.Value Then Label3.Caption = Sin(a)If Option2.Value Then Label3.Caption = Exp(a)If Option3.Value Then Label3.Caption = Sqr(a)End Sub3. 设计如图7-3和图7-3-1所示的菜单系统，并为菜单项编写有关的程序代码。菜单显示字体、大小默认。图7-3 图7-3-1答案：Private Sub cuti_Click()Text1.FontBold = TrueEnd SubPrivate Sub font12_Click()Text1.FontSize
6、= 12End SubPrivate Sub font16_Click()Text1.FontSize = 16End SubPrivate Sub jieshu_Click()EndEnd SubPrivate Sub qinchu_Click()Text1 = End SubPrivate Sub xieti_Click()Text1.FontItalic = TrueEnd Sub4. 设计如图7-4所示的应用程序。当单击“设置标签颜色”按钮后，弹出“颜色”对话框，为标签中的文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出“打开文件”对话框，选择一个文本文件后并调用记事本程序编辑该文
7、件利用Shell函数，Shell(C:WINDOWSsystem32Notepad.exe + CommonDialog1.FileName, 1)。按钮显示的字体、大小默认，标签中的文字为宋体、小二号。图7-4答案：Private Sub Command1_Click()CommonDialog1.ShowColorLabel1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click()CommonDialog1.Action = 1i = Shell(C:WINDOWSsystem32Notepad.exe + Co
8、mmonDialog1.FileName, 1)End Sub5设计如图7-5所示的应用程序。它对列表框具有随机产生10个数据、删除最小值/最大值、添加数据、统计的功能。统计结果显示在如图7-5-1所示的窗体中，显示的字体、大小为默认。图7-5图7-5-1Private Sub add_Click()List1.AddItem Int(Rnd * 100 + 1)End SubPrivate Sub deletemax_Click()Dim max%, imax%, i%max = Val(List1.List(0): imax = 0For i = 1 To List1.ListCount
9、- 1 If Val(List1.List(i) max Then max = List1.List(i): imax = iNext iList1.RemoveItem imaxEnd SubPrivate Sub deletemin_Click()Dim min%, imin%, i%min = Val(List1.List(0): imin = 0For i = 1 To List1.ListCount - 1 If Val(List1.List(i) max Then max = List1.List(i) If List1.List(i) = Form1.Width Then Label1.Left = -Label1.WidthEnd Sub
大一计算机VB程序设计实验要求及报告
