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

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验7 用户界面设计 实验目的 掌握常用控件、通用对话框。 掌握菜单设计、多重窗体。 二、实验要求 在C:\下建立子文件夹“VB实验7”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(71.vbp)、窗体文件(71.frm) 及可执行文件（71.exe），本实验中的第二题，需保存的文件有：工程文件(72.vbp)、窗体文件(72.frm) 及可执行文件（72.exe），其余实验依此类推。 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 实验内容： 设计如图7-1所示的应用程序。它能利用LostFocus事件过程对输入的内存大小进行合法性检查，确保最后2个字符是“MB”，其余的都是数字字符。当用户单击“Ok”按钮后，在右边的文本框中显示所选择的信息。要求：窗体显示字体、大小默认。 图7-1 Private Sub Command1_Click() Text2 = Text2 = Combo1.Text + vbCrLf + Text1 + vbCrLf If Option1.Value Then Text2 = Text2 + Option1.Caption + vbCrLf If Option2.Value Then Text2 = Text2 + Option2.Caption + vbCrLf If Option3.Value Then Text2 = Text2 + Option3.Caption + vbCrLf If Check1.Value Then Text2 = Text2 + Check1.Caption + vbCrLf If Check2.Value Then Text2 = Text2 + Check2.Caption + vbCrLf If Check3.Value Then Text2 = Text2 + Check3.Caption End Sub Private Sub Text1_LostFocus() Dim a$, b$ a = Left(Text1.Text, Len(Text1.Text) - 2) b = Right(Text1.Text, 2) If Not IsNumeric(a) Or b MB Then MsgBox 请重新输入内存, , 71 Text1 = Text1.SetFocus End If End Sub 设计如图7-2所示的计算程序，要求：窗体显示字体、大小默认，参数输入用文本框，结果显示用标签框。 图7-2 Private Sub Command1_Click() Dim a a = Val(Text1.Text) Text1.FontBold = Check1.Value Text1.FontItalic = Check2.Value If Option1.Value Then Label3.Caption = Sin(a) If Option2.Value Then Label3.Caption = Exp(a) If Option3.Value Then Label3.Caption = Sqr(a) End Sub 3. 设计如图7-3和图7-3-1所示的菜单系统，并为菜单项编写有关的程序代码。菜单显示字体、大小默认。 图7-3 图7-3-1 Private Sub cuti_Click() Text1.FontBold = True End Sub Private Sub font12_Click() Text1.FontSize = 12 End Sub Private Sub font16_Click() Text1.FontSize = 16 End Sub Private Sub jieshu_Click() End End Sub Private Sub qinchu_Click() Text1 = End Sub Private Sub xieti_Click() Text1.FontItalic