vb60尝试六习题与答案.doc

实验六 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件； 2、学习在窗体中创建常用控件 2、学习在属性窗口和在程序代码中设置属性 3、学习调用控件的方法 4、学习编写各控件和鼠标与键盘的事件过程 二、实验内容 1、单选按钮、复选框、框架 1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。框架Fr1包含单选按钮Op1和Op2。 2）设计窗体，要求 ①标题为“设置字体”； ②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示； ③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2； ④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。 ⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。 Private Sub Option1_Click() Label1.FontName = Option1.Caption End Sub Private Sub Option2_Click() Label1.FontName = Option2.Caption End Sub Private Sub Option3_Click() Label1.FontItalic = True End Sub Private Sub Option4_Click() Label1.FontItalic = False End Sub 3）在窗体是设置设置框Text1，其中文字为：黑体、四号、居中；设置单选按钮Option1和Option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。 Text.text=option1.caption Text1.text=option2.caption 4）在窗体上设置框架，其标题为“效果”，框架内设置四个复选框，标题分别为“上标”、“下标”、“阳文”和“阴文”。其中：“上标”处于选中状态，“阴影”处于被禁止状态，其余两个处于未选中状态。 设置value 2、列表框、组合框 1）按图设计，在窗体中设置两个标签L1和L2、两个列表框MyList1和MyList2： 其中：标签的标题分别为“科目名称”和“专业”； 两个列表框的列表项如图所示；并且MyList1允许仅用鼠标进行多项选（Multiselect=1） (style= 1-checkbox) 2）按图设置窗体的标题为“简单组合框”、一个简单组合框MyComb1、两个标题分别为“添加”和“删除”的命令按钮Cmd1和Cmd2。 要求： ①简单组合框的左边距1000、上边距500；在组合框中添加“土建”、“计算机”、“会计”、“工商管理”。 ②设置编写适当的事件过程，使得程序运行时，在组合框的文本框中输入项目，单击“添加按钮，将其添加到组合框中；在组合框中选定一个项目，单击“删除”按钮，则删除除该项目。 Private Sub Command1_Click() Combo1.AddItem Combo1.Text End Sub Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndex End Sub 3）按图示设计窗体： 要求：编写适当的事件过程，实现 ①当List1任选一项，单击“选择”按钮，将选项定项添加到List2中 ②当List2任选一项，单击“删除”按钮，将选项定项从List2中删除 ③单击“统计”按钮，弹出消息框，显示选定项目数信息。 Private Sub Command1_Click() List2.AddItem List1.Text End Sub Private Sub Command2_Click() List2.RemoveItem List2.ListIndex End Sub Private Sub Command3_Click() x = List2.ListCount MsgBox 你选了 x 个项目, 0, 选定项统计