VisualBasic6.0程序设计试题一与答案

1、VisualBasic6.0程序设计试题一与答案一、判断题：1、 移动框架时框架内控件也跟随移动，所以框架内各控件的Left、Top 属性值也将随之改变。（错）2VB其它位置，则需要使用自定义坐标系统（对）3、若窗体的坐标刻度为“缇Left 属性值的单位为“缇（对）4、用Scale 方法改变了窗体坐标系后，窗体的Left、Top （对）5、将容器的FillStyle 属性设置为 0 后，容器中已绘制的图形的填充样式都为实心。（错）6、语句“Shape1.FillStylevbSolid”和“Shape1.FillStyle0（对7、用ClsPicture（错）8、用Cls（错）9Picture

2、 Print 方法来显示文字（对）10、在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外（错）11、框架控件和形状控件都不能响应用户的鼠标的单击事件（错）12图片框的 Move 方法不仅可以移动图片框，而且还可以改变该图片框的大小，同也会改变该图片框控件的有关属性值。（错）13、执行语句 Pic1.Picture =”c:tempa.bmp”，可以为图片框控件Pic1 加载文名为c:tempa.bmp的图形文件。（错）14Picture 对象的AutoSize 属性值为True 时，表示该对象不管原来图片的大小，一都自动调整为控件的大小尺寸，以便能够完整地显示该图片。（错）15

3、、图片框控件与影像框控件加载图形文件的方法相同。 （对）二、选择题：1、改变控件在窗体中的左右位置应该修改控件的（）属性？（B）A. TopB. LeftC. WidthD. Right2、要改变控件的宽度，应该修改控件的（）属性？（C）A. TopB. LeftC. WidthD. Right3、重新定义图片框控件的坐标系统，可采用该图片框的（）方法？（A）A. ScaleB. ScaleXC. ScaleYD. SetFocus4、容器的ScaleMode 属性值为（）时，容器坐标系的每一个单位为一磅？（A）A. 2B. 1C. 4D. 65、改变了容器的坐标系后，该容器的（）属性值不会改

4、变？（A）A. LeftB. ScaleLeftC. ScaleTopD. ScaleWidth6、无论怎样改变图片框控件P1 的坐标系，其中心点的x，y 坐标分别为（）？（B）(P1.ScaleLeft+P1.ScaleWidth)/2、(P1.ScaleTop+P1.ScaleHeight)/2P1.ScaleLeft+P1.ScaleWidth/2、P1.ScaleTop+P1.ScaleHeight/2P1.Left+P1.Width/2、P1.Top+P1.Height/2P1.Width/2、P1.Height/27、设置图片框控件PIC1 的背景色为红色，可以执行语句（）？（B）

5、PIC1.BackColor = QBcolor(1)PIC1.BackColor = 255PIC1.BackColor = PIC1.BackColor = RGB(0,255,0)8、要使Shape 控件以实心方式填充，应该设置其（）属性？（B）A. FillColorB. FillStyleC. BackStyleD. Shape9（）不是蓝颜色的值？C）A.vbBlueB. Rgb(0,0,255)C. QBColor(12)D. &HFF00001、下列表达式中（）不是红颜色的值？C） A.vbRedB. Rgb(255,0,0)C. QBColor(1)D. （）A. FormB

6、. PictureBoxC. ShapeD. Frame12属性不会对该圆的外观产生影响。A. BackColorB. ForeColorC. DrawWidthD. DrawStyle （A）13、形状控件所显示的图形不可能是（）？（D）A.圆B. 椭圆C. 圆角正方形D. 等边三角形14、直线控件所不具有的属性是（）？（D）A. IndexB. x1C. y2D. x15、在图片框控件Picture1 上坐标（x，y）处画一个绿色点，写作（）？（D）A. Pset(x,y),Rgb(0,255,0)B. Picture1.Pset(x,y),GreenC. Pset(x,y),vbGree

7、nD. Picture1.Pset(x,y),vbGreen16、返回图片框控件P1 (a,b)处颜色值的表达式为A. P1.SetColor(a,b)B. P1.GetColor(a,b)C. P1.Pset(a,b)D. 三、程序填空题：程序运行时，无论如何调整窗体的边界，单击窗体后都以窗体的中心位置为圆心、以30 米为半径画出一个圆饼图。Private Sub Form_Load () FillStyle = 0（1） End SubPrivate Sub Form_Click ()（2）FillColor = RGB(255,0,0)Circle (0,0),30, ,3.14159*

8、2,3.14159*2/3FillColor = RGB(0,255,0)Circle (0,0),30, ,3.14159*2/3,3.14159*4/3FillColor = RGB(0,0,255)（3） End SubA. ScaleMode = 6Scale(ScaleWidth/2, ScaleHeight/2) (ScaleWidth/2, ScaleHeight/2)Form1.Scale (Width/2, Top/2) (Width/2, Top/2)Scale (Width/2, Top/2) (Width/2, Top/2)A. ScaleMode = 6ScaleMo

9、de = 1Scale(ScaleWidth/2, ScaleHeight/2) (ScaleWidth/2, ScaleHeight/2)ScaleMode = 2（3） A. Circle (0,0), 30,3.14159*4/3, 3.14159*2B. Circle(0,0),30,PI*4/3, 3.14159*2C. Circle(0,0),30,3.14159*4/3, 0D. Circle(0,0),30,3.14159*4/3, 3.14159*2答案1A（）C四、程序阅读Private Sub Form_load() imgeh.top=scaleheight/2-imgeh.height/2 imgeh.left=scalewidth/2-imgeh.width/2 imgmn.picture=loadpicture(“c:moon.ico”) imgeh.picture=loadpicture(“c:earth.ico”)End SubPrivate Static Sub Ti