图10-7 程序设计题10的界面设计
第6章 图形控件和图形方法
习 题
一、判断题
1．图片框可以通过Print方法来显示文本。
2．用Cls方法能清除窗体或图片框中用Picture属性设置的图形。 3．改变图形对象的坐标系可以用Scale方法。
4．若Visual Basic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。 5．在图片框中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关。 6．影像框和图片框一样，也可以作为其他控件的容器。
7．影像框和图片框都可以用AutoSize属性来控制控件大小调整的行为，当AutoSize属性值为True时，两者控件大小根据图片来调整；设置为False时，只有一部分图片可见。
8．ScaleMode的所有属性值均表示打印长度。 9．图形控件可以在运行时获得焦点。
10．BorderWidth属性表示指定直线和形状边界线的线条宽度，该属性值不能设置为0。 二、选择题
1．对画出的图形进行填充，应使用 属性。 A、BackStyle
B、FillColor C、FillStyle
D、BorderStyle
2．将图片框的 属性设置成True时，可使图片框根据图片调整大小。
A、Picture B、AutoSize C、Stretch D、AutoRedraw
3． 可以改变坐标的单位。 A、DrawStyle属性 B、Cls方法 A、Line方法 A、BorderStyle
C、ScaleMode属性 D、DrawWidth属性
D、Circle方法 D、FillColor
4．Visual Basic用以下哪一条指令来绘制直线 。
B、Pset方法 C、Point属性 B、BorderWidth C、DrawWidth
5．Visual Basic可以用以下哪一条属性来设置边框类型 。 6． 属性可以用来设置所绘线条宽度。 A、DrawStyle B、BorderStyle A、Circle方法
C、DrawWidth D、FillColor
7．下列 是用来画圆、圆弧及椭圆的。
B、Pset方法 C、Line属性 D、Point属性
8．描述以（1000，1000）为圆心、以400为半径画1/4圆弧的语句，以下正确的是 。 A、Circle(1000,1000),400,0,3.1415926/2 B、Circle(1000,1000),,400,0,3.1415926/2
C、Circle(1000,1000),400,,0,3.1415926/2 D、Circle(1000,1000),400,,0,90
9．语句“Circle(1000,1000),800,,-3.1415926/3,-3.1415926/2”绘制的是 。 A、弧 A、弧
B、椭圆 C、扇形 B、椭圆 C、扇形
D、同心圆 D、同心圆
10．语句“Circle(1000,1000),800,,,,2”绘制的是 。 11．上题Circle语句中最后的2表示的是 。
A、椭圆的纵轴和横轴长度比 B、椭圆的横轴和纵轴长度比 C、同心圆的半径比 D、圆弧两半径间的夹角 12．RGB函数中的3个数字分别表示 。 A、红、绿、白 C、色调、饱和度、亮度
B、红、绿、蓝
D、当前色、背景色、前景色
13．当Stretch属性值为False时， 。
A、图片大小随影像框的大小进行调整 B、影像框的大小随图片大小进行调整 C、图片框的大小随图片大小进行调整 D、图片大小随图片框的大小进行调整 14．BorderStyle属性是用来表示线条的 。 A、长度 A、框架 三、填空题
1．以窗体Form1的中心为圆心，画一个半径为800的圆的方法是 。 2．在图片框中加一幅图片（从磁盘装入）可用 函数来实现。
3．图片框的 属性和影像框的 属性都是用来调节图片框或影像框的大小的，它们的默认值分别为 、 。
4．需要对设置好的线条进行调整时，可再 该线条，通过鼠标的拖动来改变线条B、宽度 C、线形 B、图片框 C、影像框
D、颜色 D、窗体
15．在Visual Basic中， 不能作为其他控件的容器。
的大小或位置，或通过 窗口改变其属性值。
5．Shape属性决定形状控件的 ，当Shape属性值为0时，它的表现形式是 。 6．若控件Picture1中要显示C:盘Windows目录下的Cloud.bmp图片，则它的方法是 。 7．要让图片框作为其他控件的容器，需先建立 ，然后再建立 。
8．Visual Basic坐标系的默认单位是 ，除此之外，用户还可以选用其他的度量单位，这需要通过对象的 属性来实现。
9．PSet方法设置指定坐标点处的 ，是最简单的图形操作。
10．画椭圆的方法中，半径以后的参数依次是 、 、 、 。 四、程序阅读题
程序1. 写出程序运行时单击窗体后，在窗体上出现的结果。 Private Sub Form_Click()
Dim i As Single,x As Single,y As Single For i = 0 To 2 * 3.1415927 Step 0.0001
x = 1000 + 500 * Sin(i): y = 800 + 500 * Cos(i) Line(1000, 800) - (x, y), RGB(255, 0, 0) Next i End Sub
程序2. 写出程序运行时单击窗体后的结果。 Private Sub Form_Click() Dim i As Integer For i = 1 To 1000 Call Circledemo Next i End Sub
Sub Circledemo()
Dim Radius As Single, XPos As Single, YPos As Single R = 255 * Rnd: G = 255 * Rnd: B = 255 * Rnd XPos = ScaleWidth * Rnd: YPos = ScaleHeight * Rnd Radius = ((YPos * 0.9) + 1) * Rnd / 10 Circle(XPos, YPos), Radius, RGB(R, G, B) End Sub
程序3. 写出程序运行后，鼠标多次在图片框内拖动后的显示结果。 Dim x0 As Single,y0 As Single
Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer,X As Single,Y As Single) x0 = X: y0 = Y End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Picture1.FillStyle <> 0 Then Picture1.FillStyle = 0 Else
Picture1.FillStyle = 1 End If
Picture1.Line(x0, y0) - (X, Y), RGB(255, 255, 0), B End Sub 五、程序填空题
1．【程序说明】选择形状、边框后，图片框中控件Shape1作相应变化。界面设计如图10-8所示。
图10-8 程序填空题1的界面设计
Private Sub Combo1_Click()
Shape1.Shape = Combo1.List( （1） ) End Sub
Private Sub Combo2_Click()
（2） = Combo2.List(Combo2.ListIndex) End Sub
Private Sub Form_Load() Dim i As Integer
For i = 0 To 5: Combo1.AddItem Str(i): Next i For i = 0 To 6: （3） : Next i End Sub
2．【程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮，命令按钮上显示文字“上一张”和“下一张”。
运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片，“上一张”按钮能响应。显示到最后一张图片时，“下一张”按钮不能响应。（假设在C:\\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片）
Dim n As Byte
Private Sub Command1_Click()
If n < 8 Then Command2.Enabled = True n = n - 1 （1）
If n < = 1 Then Command1.Enabled = （2） : n = 1 End Sub
Private Sub Command2_Click() （3）
If n> = 1 Then Command1.Enabled = True Call pic
If n = 8 Then Command2.Enabled = False End Sub
Private Sub Form_Load()
n=1: Command1.Enabled = False: Image1.Picture = （4） End Sub Sub pic()
Dim fn As String
fn = \ Image1.Picture= （5） End Sub 六、程序设计题
1．编程，在图片框中画一个以两点为对角的矩形（图片框中以像素为刻度单位，两点坐标用InputBox函数输入）。
2．编程，以毫米为刻度单位、以窗体中心点为坐标原点，以窗体的高与宽中最小值的1/3为半径画一个圆（轮廓线为黄色、线粗2mm，蓝色填充）。
3．编程，以缇为窗体刻度的初值、窗体中心点为坐标原点，在列表框中选取刻度的其他单位的同时画一个半径为50的圆，观察圆的大小的变化。