vb60实验六习题与答案.docx

vb60实验六习题与答案.docx

《vb60实验六习题与答案.docx》由会员分享，可在线阅读，更多相关《vb60实验六习题与答案.docx（17页珍藏版）》请在冰点文库上搜索。

vb60实验六习题与答案

实验六

专业_____________班级________年级________姓名______________学号_______________

一、实验目的

1、认识常用控件：

单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件；

2、学习在窗体中创建常用控件

2、学习在属性窗口和在程序代码中设置属性

3、学习调用控件的方法

4、学习编写各控件和鼠标与键盘的事件过程

二、实验内容

1、单选按钮、复选框、框架

1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。

框架Fr1包含单选按钮Op1和Op2。

2）设计窗体，要求

①标题为“设置字体”；

②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示；

③标题为“字体”框架包含两个标题分别为“楷体”和“华文新魏”的单选按钮Op1和Op2；

④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。

⑤编写相应控件的事件过程，使得程序运行时，单击“楷体”，标签控件的字体为楷体，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。

PrivateSubOption1_Click（）

Label1.FontName=Option1.Caption

EndSub

PrivateSubOption2_Click（）

Label1.FontName=Option2.Caption

EndSub

PrivateSubOption3_Click（）

Label1.FontItalic=True

EndSub

PrivateSubOption4_Click（）

Label1.FontItalic=False

EndSub

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；在组合框中添加“土建”、“计算机”、“会计”、“工商管理”。

②设置编写适当的事件过程，使得程序运行时，在组合框的文本框中输入项目，单击“添加按钮，将其添加到组合框中；在组合框中选定一个项目，单击“删除”按钮，则删除除该项目。

PrivateSubCommand1_Click（）

Combo1.AddItemCombo1.Text

EndSub

PrivateSubCommand2_Click（）

Combo1.RemoveItemCombo1.ListIndex

EndSub

3）按图示设计窗体：

要求：

编写适当的事件过程，实现

①当List1任选一项，单击“选择”按钮，将选项定项添加到List2中

②当List2任选一项，单击“删除”按钮，将选项定项从List2中删除

③单击“统计”按钮，弹出消息框，显示选定项目数信息。

PrivateSubCommand1_Click（）

List2.AddItemList1.Text

EndSub

PrivateSubCommand2_Click（）

List2.RemoveItemList2.ListIndex

EndSub

PrivateSubCommand3_Click（）

x=List2.ListCount

MsgBox"你选了"&x&"个项目",0,"选定项统计"

EndSub

4）按图示设计窗体：

要求：

①三个标签控件可随内容自动改变大小，Label1的文本居中对齐；

②组合框Combo1的选项有：

隶书、楷体、宋体、黑体等四项

③编写适当事件过程，实现：

当组合框或列表框中单击某项时，则Label1中按选项设置字体和字号。

PrivateSubCombo1_Click（）

Label1.Font=Combo1.Text

EndSub

PrivateSubList1_Click（）

Label1.FontSize=List1.Text

EndSub

3、滚动条、

1）按图示设计窗体：

要求：

①两个标签控件可随内容自动改变大小，Label1的文本居中对齐且在垂直方向变化大小以适应内容，文本字体为“隶书”、字号为“四号”。

②宽度水平滚动条HS1取值范围从300~2500，单击滚动条箭头，改变值为50；单击滚动条空白处，改变值为100；

③编写适当事件过程，实现：

按滚动条当前值改变标签的宽度，并把滚动条当前值显示在文本框中。

PrivateSubHScroll1_Change（）

Label1.Width=HScroll1.Value

Text1.Text=HScroll1.Value

EndSub

4、时钟

1）按图示设计窗体：

要求：

①标签Label2为有边框，其标题文字加粗、字号为“四号”

②文本框Text1的文字加粗、字号为“四号”

③编写适当的事件过程，实现单击“开始”按钮时Label2动态显示当前时间，文本框文字每隔1秒加1。

单击“退出”，退出应用程序。

DimsAsInteger

PrivateSubCommand1_Click（）

Timer1.Enabled=True

EndSub

PrivateSubTimer1_Timer（）

s=s+1

Label1.Caption=Time

Text1.Text=s

EndSub

PrivateSubCommand2_Click（）

End

EndSub

5、图像框与图片框

1）按图示设计窗体：

要求：

①图像框带有边框、加载图像能自动改变大小适应图像框。

②编写适当事件过程，实现：

单击“显示图像”命令按钮或单选按钮，加载图像“setop.bmp”

③编写适当事件过程，实现：

单击“隐藏图像”命令按钮或单选按钮，删除图像框中图像

④编写适当事件过程，实现：

通过选中“显示图像”，还是“隐藏图像”，决定显示图像或隐藏图像。

⑤编写适当事件过程，实现：

通过复选项框的选项中与否，决定是否显示图像

PrivateSubCheck1_Click（）

IfCheck1.Value=1Then

Image1.Picture=LoadPicture（"F:

\图片\001.jpeg"）

Else

Image1.Picture=LoadPicture（）

EndIf

EndSub

PrivateSubCommand1_Click（）

Image1.Picture=LoadPicture（"F:

\图片\001.jpeg"）

EndSub

PrivateSubCommand2_Click（）

Image1.Picture=LoadPicture（）

EndSub

PrivateSubOption1_Click（）

Image1.Picture=LoadPicture（"F:

\图片\001.jpeg"）

EndSub

PrivateSubOption2_Click（）

Image1.Picture=LoadPicture（）

EndSub

2）按图示设计窗体：

要求：

①图片框能自动改变大小适应图像。

②编写适当事件过程，实现：

单击“显示图像”命令按钮或单选按钮，加载图像“TL.bmp”

③编写适当事件过程，实现：

单击“显示说明”命令按钮或单选按钮，在图片框显示说明文字“这是永定永定土楼”

④编写适当事件过程，实现：

单击“隐藏图像”命令按钮或单选按钮，删除图像框中图像

⑤编写适当事件过程，实现：

通过选中“显示图像”，还是“显示说明”，还是“隐藏图像”，决定显示图像、显示说明文字“这是永定永定土楼”或隐藏图像

⑥编写适当事件过程，实现：

通过复选项框的选项中与否，决定是显示说明文字还是显示图像

PrivateSubCheck1_Click（）

IfCheck1.Value=1Then

Picture1.Print"这是永定土楼"

Else

Picture1.Picture=LoadPicture（"F:

\图片\001.jpeg"）

EndIf

EndSub

PrivateSubCommand1_Click（）

Picture1.Picture=LoadPicture（"F:

\图片\001.jpeg"）

EndSub

PrivateSubCommand2_Click（）

Picture1.Picture=LoadPicture（）

EndSub

PrivateSubCommand3_Click（）

Picture1.Print"这是永定土楼"

EndSub

PrivateSubOption1_Click（）

Picture1.Picture=LoadPicture（"F:

\图片\001.jpeg"）

EndSub

PrivateSubOption2_Click（）

Picture1.Picture=LoadPicture（）

EndSub

PrivateSubOption3_Click（）

Picture1.Print"这是永定土楼"

EndSub

6、形状与直线

1）按图示设计窗体：

要求：

体F1标题为“背景”设置（shape1backstyle=0,fillstyle=0）（label1backstyle=0）

②状态控件SP1为椭圆，背景不透明，高度和宽度分别为：

750和1500

③四个标签控件LBL1、LBL2、LBL3、LBL4可随内容大小自动改变大小，标题如图示；其中LBL1的标题为“脑子急转弯”、字体为“楷体_2312”、字号为“四号”。

④三个滚动条HS1、HS2、HS3范围取值皆为0~255，单击箭头改变量为10，单击滚动条空白处改变量为20

⑤编写适当事件过程，实现由三个滚动条的值决定状态控件的背景颜色。

OptionExplicit

DimiAsInteger,jAsInteger,kAsInteger

PrivateSubHScroll1_Change（）

i=HScroll1.Value

Shape1.FillColor=RGB（i,j,k）

EndSub

PrivateSubHScroll2_Change（）

j=HScroll2.Value

Shape1.FillColor=RGB（i,j,k）

EndSub

PrivateSubHScroll3_Change（）

k=HScroll3.Value

Shape1.FillColor=RGB（i,j,k）

EndSub

2）按图示设计窗体：

要求：

①形状控件SP1的上边距120、左边框240、高度为1000、宽度为1600

②三个命令按钮C1、C2、C3的标题分别为“形状”、“填充图案”、“边框线型”

③单击“形状”按钮，SP1将依次显示各种形状，消息框显示相应的属性值，如图。

④单击“填充图案”按钮，SP1将依次显示各种填充图案，消息框显示相应的属性值。

⑤单击“边框线型”按钮，SP1将依次显示各种边框线型，消息框显示相应的属性值。

7、画图方法

1）设计窗体，标题为“Cirlie使用”，编写适当事件过程，实现单击窗体如下图形。

要求：

①自定义坐标，左上角为（0，0），右下角为（100，100）

②编写适当的事件过程，实现：

单击窗体，在窗体上显示如图所示图形，半径均为10。

圆的圆心为（15，50），其余各图形依次右移20；椭圆长短轴比为2；圆弧的起始角与终止角分别为1.4、0.5；扇形起始角与终止角分别为0、2.5。

两直线按图示。

PrivateSubForm_Click（）

Scale（0,0）-（100,100）

Circle（15,50）,10

Circle（35,50）,10,,,,2

Circle（55,50）,10,,-1.4,0.5

Circle（75,50）,10,,-0,-2.5

Line（5,85）-（80,85）,vbBlack,B

Line（5,84）-（80,84）,vbRed,B

EndSub

8、练习

1）为了清除图片框PIC1内来自文件的图片的语句是（pic1.Picture=LoadPicture（））。

2）可使Shape1控件呈现为椭圆的语句是（Shape1.Shape=2）。

3）要使图像框Image1可自动改变图像的大小以适应控件，应把（Stretch）设置为True

4）要使图片框Picture1可自动改变控件的大小以适应图形，应把（AutoSize）设置为True

5）复选框和单选按钮的选中，其Value属性分别为

（1）和（true）。

6）要把复选框和单选按钮的外观设置为图形，就把（Style）属性设置为1。

7）组合框的Style属性设为0、1、2时，组合框的类型依次为（下拉组合框、简单组合框、下拉列表框）。

8）复选框的Value属性值为2时，表示（选中但禁止）。

9）将复选框的标题显示在它的左边，Alignment属性值应为

（1）。

10）下列对框架控件的叙述，错误的是（A）。

A）在某控件上画框架，就可将控件置于该框架内

B）在框架内画控件，能使控件置于该框架内

C）拖动框架时其中控件随之移动，则控件是置于该框架内

D）将一组单选按钮置于一个框架内使其只能选中其中之一

11）要把“VB程序设计”添加到列表框List1中的最后一项应使用语句

（List1.additem"VB程序设计"）。

12）可将组合框Combo1的第1项置为当前项的语句（Combo1.ListIndex=0）。

13）要将列表框List1中选定的某一项删除的语句（List1.RemoveItemList1.listIndex）。

14）可将列表框List1的第2项的值置为“VB6.0”的语句（List1.List

（1）="VB6.0"）。

15）要将列表框控件List1设置为允许只用鼠标进行多项选择，应将其属性MultiSelect设置为

（1）。

16）下面说法错误的是（D）。

A）滚动条的两个重要事件是Change和Scroll

B）框架的主要作用是将控件分组，以完成各自相对独立的功能

C）组合框是组合了文本框和列表框的特性而形成的一种控件

D）计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上

17）如果列表框list1中只有一个项目被选中，则语句

Debug.printList1.List（List1.ListIndex）

执行的结果是（在立即窗口显示选中列表项的内容）。

18）设组合框Combo1的Style的值为１，将组合框Combo1的文本框中的内容添加在第1项前的语句（　Combo1.AdditemCombo1.text0　　）。

19）在列表框List1的第1-4选项顺序设置为字符A、B、C、D的语句

（List1.Additem"a"

List1.Additem"b"

List1.Additem"c"

List1.Additem"d"）。

20）要在组合框的文本框中禁止输入内容，Style属性应设置为

（2）。

21）以下有关计时器的叙述中，错误的是（C）。

A）计时器的Interval属性值以毫秒为单位

B）将计时器的Enabled属性设置为False，会停止计时器的操作

C）计时器以设定的时间间隔一定会触发Timer事件

D）程序运行时计时器不可见，所以其位置无关紧要

22）设置（LargeChange）属性可改变单击滚动条空白处的滚动步长。

23）要使计时器控件能正常运行Timer事件过程，应具备的两个条件是（Enabled属性为True和Interval属性非0）。

24）拖动滚动条滑块可触发滚动条的（Scroll）事件。

25）单击滚动条的空白处可触发滚动条的（Change）事件。

26）当用户单击滚动条的箭头处时，滑块移动的增量值由（SmallChange）属性决定。

27）若定时器控件Timer1的Interval属性为500，Enabled属性为True，运行以下程序2秒，窗体显示（**********）。

Dimi%

PrivateSubTimer1_Timer（）

i=i+1

PrintString（i,"*"）;

EndSub

28）以下叙述中，错误的是（B）。

A）键盘事件中包含有KeyPress、KeyUp和KeyDown

B）默认情况下，鼠标事件MouseDown、MouseUp和MouseMove相继发生

C）KeyUp和KeyDown所接收到的信息完全相同

D）KeyPress接收到的是用户通过键盘输入的字符的ASCII码

29）当用户按下并释放键盘上一个键后，以下被触发的键盘事件发生的顺序是（KeyDown、KeyPress和KeyUp）。

30）改变控件的（Tab）属性值，可以改变控件获得焦点的顺序。

31）在MouseDown或MouseUp的事件过程中，能用来检查鼠标左键和Shift键是否同时按下的表达式为（Botton=1andShift=1）。