vb6.0实验六习题与答案.docx

1、vb6.0 实验六习题与答案实验六专业_1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（slider）、时钟、图形控件； 2.学习在表单中创建常用控件2、学习在属性窗口和在程序代码中设置属性 3、学习调用控件的方法4.学习编写每个控件、鼠标和键盘的事件过程。二、实验内容1、单选按钮、复选框、框架1） 将表格F1 的标题设置为“复选框、框架和单选按钮”；将表格中复选框ch1、ch2ch1 和 CH2 的高度和宽度分别设置为 360 和 1000；程序运行时，check2 处于非零状态。FR1 帧包含单选按钮OP1 和 op2。2） 设计窗体，要求标题为“设置字体”； 带

2、边框的标签控件Label1 以表格形式设置，高度和宽度分别为 450 和 3800，标题为“欢迎VB”，字体大小为“4”，并显示在中间；标题为“字体”框架包含两个标题分别为“楷体_gb2312”和“华文新魏”的单选按钮 op1 和 op2； 标题为“Italic”的框架包含两个标题为“是”和“否”的单选按钮。 编写相应控件的事件进程，使程序运行时，点击“Kaiti_gb2312”，标签控件的字体为Kaiti_gb2312，点击“Chinese New Wei”，标签控件的字体为Chinese New Wei；单击Yes，label 控件的字体将为斜体。单击“否”取消标签控件字体的斜体化。pri

3、vatesuboption1_click()标签 1。fontname=option1。说明文字endsubprivatesuboption2_uu 单 击 （） label1.fontname=option2.caption endsubprivatesuboption3_click()label1.fontitalic=true endsub privatesuboption4_click()label1.fontitalic=false endsub3） 在窗体是设置设置框text1，其中文字为：黑体、四号、居中；设置单选按钮option1 和 option2，标题分别为“福州大学”和“

4、阳光学院”，编写行当的事件过程， 使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光 学院”。文本文本=选项 1。说明文字text1.text=option2.caption4） 在表单上设置一个标题为“效果”的框架，并在框架中设置四个标题为“上标”、“下标”、“阳文本”和“阴文本”的复选框。其中：“上标”被选中，“阴影”被禁用， 另外两个未被选中。设置value2.列表框、组合框1）按图设计，在窗体中设置两个标签l1 和l2、两个列表框mylist1 和 mylist2： 其中：标签标题分别为“账户名称”和“主要”；两个列表框的列表项如图所示；并且mylist1

5、允许仅用鼠标进行多项选（ 多 选 =1） (style=1-checkbox)要求： 简单组合框的左边距为 1000，上边距为 500；在组合框中添加“土木工程”、“计算机”、“会计”和“工商管理”。设置编写适当的事件过程，使得程序运行时，在组合框的文本框中输入项目，单击“添加按钮，将其添加到组合框中；在组合框中选定一个项目，单击“删除”按钮，则删 除除该项目。3） 如图所示设计表单：要求：编写适当的事件过程，实现endsubmsgbox你选了&x&个项目,0,选定项统计endsub 4） 如图所示设计表单：要求： 编写一个合适的事件流程来实现：当在组合框或列表框中单击一个项目时，字体和字体大

6、小将根据label1 中的选项进行设置。privatesublist1_click()label1.fontsize=list1.textendsub3、滚动条、1） 如图所示设计表单：要求： 这两个标签控件可以随内容自动更改大小。label1 的文本在中心对齐，并在垂直方向上更改，以适应内容。文字字体为“隶书”，字体大小为“四”。宽度水平滚动条hs1 取值范围从 3002500，单击滚动条箭头，改变值为 50；单击滚动条空白处，改变值为 100； 编写一个合适的事件流程来实现：根据滚动条的当前值更改标签的宽度，并在文本中显示滚动条的当前值框中。PrivateShull1_uuChange（）

7、标签 1。宽度=hscroll1。valuetext1。text=hscroll1。值 SUB4。时钟1）按图示设计窗体： 要求：标签label2 为有边框，其标题文字加粗、字号为“四号”文本框text1 的文字加粗、字号为“四号” 编写一个适当的事件处理程序，在单击“开始”按钮时动态显示当前时间，并每1 秒向文本框中添加 1。单击“退出”退出应用程序。dimsasintegerprivatesubtimer1_timer()s=s+1标签 1。caption=timetext1。text=sendsub 5、图像框与图片框 1）按图示设计窗体： 要求：图像框带有边框、加载图像能自动改变大小适应图像框。 编写一个合适的事件流程，实现：点击“show image”命令按钮或单选按钮加载图像“setop.BMP”。 编写适当的事件流程，实现：点击“隐藏图像”命令按钮或单选按钮删除图像框中的图像