选择题第九章

（A）Line （B）Style （C）FillStyle （D）BorderStyle
10．通过Shape控件的（D ）属性可以绘制多种形状的图形。
（A）Shape （B）BorderStyle （C） FillStyle （D）Style
11．执行语句：Line（200,200）－Step（500,500）后，CurrentX的值是（D ）。
（D） Circle(1000,1000),500,RGB(255,0,0),,,,0.5
14．Visual Basic中坐标系默认刻度单位为twips，可以根据需要，用（ B）属性来改变默认的刻度单位。
（A）Scale （B）ScaleMode （C） ScaleWidth （D) ScaleHeight
（A）500 （B）200 （C）300 （D） 700
12．下面选项中，能绘制填充矩形的语句是（B ）。
（A）Line（200,200）－Step（500,500），B （B）Line（200,200）－Step（500,500）,,BF
（C）Line（200,200）－Step（500,500），BF （D）Line（200,200）－Step（500,500）
（A） Pset方法用于绘制点
（B） Circle方法用于画圆、椭圆、圆弧和扇形
（C） Line方法用于画直线或矩形
（D） Point方法用于绘制有颜色的点
30．下列语句可使Shape1控件呈现实心圆形的是（D）。
（A）Shape1.BorderStyle=0 （B）Shape1.BackStyle=0
26．
27．窗体上有一个命令按钮Command1，编写下来事件过程：
Private Sub Command1_Click（ ）
c=2000
d=2000
Cls
Circle Step(c,d),1000,vbRed,3.14,2*3.14,1
End Sub
运行时，单击按钮，窗体上显示（C）。
Cmdmave=True
End Sub
Private Sub Form_MousemMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
If cmdmave then
Form1.Pset(X,Y)
End IF
End Sub
Private Sub Form_MousemUp (Button As Integer,Shift As Integer,X As Single,Y As Single)
cmdmave=False
End Sub
此程序的功能是（D ）。
（A） 每按下鼠标键一次，在鼠标所指位置画一个点
（A）一个填充的圆 （B）一个未填充的圆 （C）一段圆弧 （D）一个点
28．Pset方法绘制的点的大小受其容器对象的（ A）属性的影响。
（A）DrawWidth （B）Picture （C）AutoRedraw （D）Stretch
29．下列叙述中，错误的是（D ）。
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中宣示的是（C ）。
（A）A （B）a （C）C （D）c
2．在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被挑右的事件过程是（D ）。
（B） 按下鼠标键，则鼠标所指定位置画一个点；放开鼠标键，则此点消失
（C） 不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
（D） 按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
6．以下属性和方法中，（D）可以重新定义坐标系。
A）DrawStyle B）DrawWidth C) DrawMode D)Scale
5．有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是坐标X，Y处画一个点）：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
7．
8．Point（x,y）方法的功能是（A ）。
（A）得到（x,y）处的颜色 （B）从点(0,0)到点（x,y）画出一套线
（C）在坐标（x,y）处画出一点 （D）以（x,y）为圆心画一个圆
9．可以通过设置Line控件的（D ）属性来绘制虚线、点线、点画线等各种样式的图形。
（C） 按钮中心到窗体左端的距离 （D） 按钮中心点到图片框左端的距离
4．形状控件Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是（ B）。
（A） 矩形 （B） △ （C）○ （D） 矩形四角为圆弧
15．语句：Circle(700,700),700,,-0.5,-2，0.8将绘制一个（C ）。
（A）圆 （B）椭圆 （C） 扇形 （D） 圆弧
16．RGB函数采用三圆色值的设置产生混合色，它的返回值的类型是（B ）。
（A）Integer （B）Long （C） Single （D） String
（A）AutoSize VB）Stretch （C）Appearance （D） AutoRedraw
25．对画出的图形进行颜色填充设置，应改使用的属性是（A ）。
（A）Fillcolor （B）BackStyle （C）FillStyle （D）BorerStyle
（A）默认坐标系 （B）标准坐标系
（C）用户自定义坐标系 （D）二维坐标系
22．下列叙述错误的是（B ）。
（A） Scale方法用来定义新的坐标系
（B） 窗体默认坐标原点在窗体的左下角
（C） ScaleLeft和ScaleTop属性可以改变系统的原点位置
End Sub
运行时，单击窗体按钮上显示（A ）。
（A） 一个未填充的矩形 （B）一条直线
（C） 一个填满了颜色的矩形 （D）无任何图形
（D） ScaleWidth和ScaleHeight属性可以改变坐标系的原点位置
23．在Visual Basic中，默认坐标原点是在窗体的（ A）位置。
（A）左上角 （B）底部 （C）中心 （D）右下角底部
24．要使图像框可以自动调整大小以适应图形的大小，则需要设置属性（B ）。
13．下面选项中，能绘制椭圆的语句是（ C）。
（A） Circle(1000,1000),500,RGB(255,0,0),0.5
（B） Circle(1000,1000),500,RGB(255,0,0),,0.5
（C） Circle(1000,1000),500,RGB(255,0,0),,,0.5
（A） Form_KeyPress() （B）Text1_LostFocus()
（C） Text1_Click() （D） Text1_Change()
3．若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指（B ）。
（A） 按钮左端到窗体左端的距离 （B）方法是（A ）。
（A）Circle （B）Pset （C） Line （D）三者都不是
20．使用Line方法画矩形，必须在命令中使用的关键字是（ B ）。
（A）A （B）B （C） E （D）F
21．当Scale方法不带参数时，则采取坐标系的形式是（A ）。
（D） Microsoft Windows Common Controls-3 6.0
18．设CurrentX=300，Current=400，执行命令“Line（150,250）－（350,500），，B”后，CurrentX=（ D）。
（A）100 （B）200 （C） 950 （D） 350
17．若要添加Multimedia控件到工具箱上，可通过选择菜单“工程|部件|控件”选项卡，然后选择（A ）。
（A） Microsoft Multimedia Control 6.0
（B） Microsoft Windows Common Controls 6.0
（C） Microsoft Windows Common Controls-2 6.0
第9章
一、单选题
1． 窗体上有两个名称分别为Text1、Text2的文本框。Text1 的KeyUp事件过程如下:
Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)
Dim c As String
c = UCase(Chr(KeyCode))
（C） Shape1.Shape=0 （D）Shape1.FillStyle=0
32．窗体上有一个命令按钮Command1，编写下列事件过程：
Private Sub Command1_Click()
a=100：b=150：c=2000：d=2000
Cls
Line(a,b)-(c,d),vbBlue,B