vb实验报告-09上课（10）.doc

信息学院 软件工程教研室试 验 报 告（10）院（系）： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称用户界面设计成绩评定所用软件VB6.0教师签名实验目的或要求1、掌握单选按钮、复选按钮和框架的常用属性、事件、方法及其使用2、掌握滚动条、进度条的常用属性、事件、方法及其使用3、定时器、图形框和图像框的常用属性、事件、方法及其使用4、掌握通用对话框的属性、方法及其应用5、掌握菜单的设计方法6、掌握多重窗体和多文档界面的建立和相关属性、事件和方法7、理解鼠标器和键盘事件实验步骤、心得体会1、以下说法正确的是（ B ）。A. 任何时候都可以使用“工具”菜单下的命令打开菜单编辑器B. 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C. 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器D. 任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器2、 下列有关子菜单的说法中，错误的是( A )A.除了Click事件之外，菜单项不可以响应其他事件B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件C.菜单项的索引号必须从1开始D.菜单的索引号可以不连续3.当在滚动条内拖动滚动块时触发（ C )A.KeyUp事件 B.keyPress事件C.Scroll事件 D.Change事件4.设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使该快捷菜单响应鼠标右键菜单的是( A )A.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu Bs,2 End SubB.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) PopupMenu Bs End SubC.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) PopupMenu Bs,0 End SubD.Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu BsEnd ifEnd Sub5、要将名为MyForm的窗体显示出来，正确的使用方法是( A )A.MyForm.Show B.Show.MyFormC.MyForm Load D.MyForm Show6、 编写如下事件过程Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下（即未按下Shift键和大写锁定键），运行程序，若按“a”键，则程序的输出是（ A ）A. A B. a C. A D.a a A A a7、编程建立由CommonDialog控件提供的5种对话框。要求在Form的Load事件中通过代码为每个单选按钮的Caption属性赋值，然后设置命令按钮的字体和Caption属性。如图，执行后应显示相应对话框。方法一：Private Sub Form_Load()Option1.Caption = openOption2.Caption = saveOption3.Caption = colorOption4.Caption = fontOption5.Caption = printerFrame1.Caption = 请选择对话框Command1.Caption=显示对话框End SubPrivate Sub Option1_Click() CommonDialog1.Action = 1End SubPrivate Sub Option2_Click() CommonDialog1.Action = 2End SubPrivate Sub Option3_Click() CommonDialog1.Action = 3End SubPrivate Sub Option4_Click()CommonDialog1.Flags = &H1 CommonDialog1.Action = 4 Command1.FontName = CommonDialog1.FontName Command1.FontSize = CommonDialog1.FontSizeEnd Sub方法二：Private Sub Form_Load()Option1.Caption = openOption2.Caption = saveOption3.Caption = colorOption4.Caption = fontOption5.Caption = printerFrame1.Caption = 请选择对话框Command1.Caption=显示对话框End SubPrivate Sub Command1_Click() If Option1.Value=True Then CommonDialog1.Action = 1 ElseIf Option2.Value=True Then CommonDialog1.Action = 2 ElseIf Option3.Value=True Then CommonDialog1.Action = 3 ElseIf Option4.Value=True Then CommonDialog1.Flags = &H1 CommonDialog1.Action = 4 Command1.FontName = CommonDialog1.FontName Command1.FontSize = CommonDialog1.FontSize End IfEnd Sub8、在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为“商品类别”和“帮助”，名称分别为vbMenu和vbHelp，其中“商品类别”菜单包括“百货”、“食品”和“家电”三个子菜单，名称分别为vbMenu1、vbMenu2和vbMenu3。程序运行后，如果在“商品类别”的下拉菜单中选择“百货”，则在文本框内显示“大类核算”；如果选择“食品”，则在文本框内显示“中类核算”；如果选择“家电”，则在文本框内显示“小类核算”。程序中不能使用任何变量，直接显示字符串。1) 界面设计2）属性设置主菜单标题 菜单名称 下级菜单标题 菜单名称 商品类别 vbmenu 百货 vbmenu1 帮助 vbhelp 食品 vbmenu2 家电 vbmenu33） 代码设计Private Sub vbmenu1_Click() Text1.Text = 大类核算End SubPrivate Sub vbmenu2_Click() Text1.Text = 中类核算End SubPrivate Sub vbmenu3_Click() Text1.Text = 小类核算End Sub9、菜单设计如图界面，编程完成简单算术运算。其中：点击“加”或者“减”可以将两个数进行计算，点击“上限”或者“下限”，可以设置随机数产生的范围，可通过弹出inputbox实现。Dim num1 As Integer, num2 As IntegerPrivate Sub chanshen_Click() 生成随机数If num1 num2 Then Randomize Text1.Text = Int(Rnd * (num2 - num1 + 1) + num1) Text2.Text = Int(Rnd * (num2 - num1 + 1) + num1)Else MsgBox (出错！ + vbCrLf + 上限应大于下限), 48End IfEnd SubPrivate Sub jia_Click() Label1.Caption = + Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub jian_Click() Label1.Caption = - Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub qingchu_Click() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub shangxian_Click() num1 = Val(InputBox(请输入数据上限)End SubPrivate Sub tuichu_Click() EndEnd SubPrivate Sub xiaxian_Click() num2 = Val(InputBox(请输入数据下限)End Sub11、利用滚动条和RGB函数，设计一个调色板程序。在窗体上的文本框中显示调好的颜色。1）界面设计2）属性设置控件对象 属性 属性值HScroll1HScroll2 max 255HScroll1HScroll2 min 0Label1 Label2 Label3 Caption 红、绿、蓝 3）代码设计Dim red As Long, green As Long, blue As LongPrivate Sub HScroll1_Scroll() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.Value Text1.BackColor = RGB(red, green, blue)End SubPrivate Sub HScroll2_Scroll() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.ValueText1.BackColor = RGB(red, green, blue)End SubPrivate Sub HScroll3_Scroll() red = HScroll1.Value green = HScroll2.Value blue = HScroll3.Value Text1.BackColor = RGB(red, green, blue)End Sub12、编辑一个程序。要求在窗体form1上按下鼠标左键时弹出一个窗口form2用于输入一个学生3门课成绩计算总分和平均分；当在form2上单击确定时，则弹出form3，显示输入成绩的显示总分和平均分。标准模块中代码： 标准模块中存放多窗体间公用的全局变量Public sMath!, sPhysics!, sChemistry!, sChinses!, sEnglish!Form1窗体代码：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form2.Show Form1.Hide End IfEnd SubForm2窗体代码：Private Sub command1_Click() sMath = Val(txtmath.Text) sChinses = Val(