vb1 8习题参第六章解答

第六章习题解答

一、判断题

1.√ 2.× 3.√ 4.× 5.√ 6.× 7.× 8.√ 9.√ 10.√

二、选择题

1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B

11.A 12.B 13.B 14.C 15.C

三、填空题

1．Circle(ScaleLeft+ScaleWidth/2,ScaleTop+ScaleHeight/2),8002．LoadPicture 3．AutoSize、Stretch、False、false 4．选中、属性

5．形状、矩形 6．Picture1.Picture=LoadPicture("c:\windows\cloud.bmp")

7．框、其他控件 8．缇、ScaleMord 9．颜色

10．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比

四、程序阅读题

逆时针转动绘制红色直线，其轨迹形成一个圆

在窗体上随机的位置、用随机的颜色、半径绘制100个空心的圆

在框内绘制多个蓝色边框的矩形，填充样式在“实心”、“透明”间交替变换。

在框内绘制一个内接椭圆，红色边框、蓝色填充。

五、程序填空题

题1.(1)List2.AddItemStr(i) (2)Shape1.Shape (3)List2.ListIndex

题2.(1)1 (2)B (3)-Step(80,0) (4)P1.DrawStyle

题3.(1)0 (2)ScaleWidth/2 (3)ScaleHeight/ScaleWidth

题4.(1)Long (2)P1.Point(a,b) (3)P2.ScaleWidth-a

六、程序设计题

题1．程序代码如下

PrivateSubForm_Load()DimiAsByteList1.Clear

Fori=1To7:List1.AddItemi:NextiEndSub

PrivateSubForm_MouseMove(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)

Label1.Caption=X:Label2.Caption=YEndSub

PrivateSubList1_Click()Form1.ScaleMode=List1.Text

1

EndSub

题2．程序代码如下

Dimx1AsSingle,y1AsSinglePrivateSubForm_Load()

Form1.ScaleMode=3:Form1.ForeColor=RGB(255,0,0)

Form1.FillColor=RGB(0,0,255):Form1.FillStyle=0EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)

x1=X:y1=Y

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)

Line(x1,y1)-(X,Y),,B

EndSub

题3．程序代码如下

PrivateSubForm_Click()DimrAsSingle

Form1.ScaleMode=6:Form1.FillStyle=0

IfForm1.ScaleHeight<=Form1.ScaleWidthThenr=Form1.ScaleHeight/3

Else

r=Form1.ScaleWidth/3EndIf

Form1.DrawWidth=2:Form1.FillColor=vbBlueForm1.Circle(Form1.ScaleLeft+Form1.ScaleWidth/2,_

Form1.ScaleTop+Form1.ScaleHeight/2),r,vbYellowEndSub

题4．程序代码如下

PrivateSubCommand1_Click()

DimxAsSingle,yAsSingle,cAsLong,rAsByte,gAsByte,bAsBytePicture1.ScaleMode=3

Forx=Picture1.ScaleLeftToPicture1.ScaleLeft+Picture1.ScaleWidthFory=Picture1.ScaleTopToPicture1.ScaleTop+Picture1.ScaleHeight

c=Picture1.Point(x,y)

Ifc>=0Then

r=cMod256:g=(c\256)Mod256:b=(c\256\256)Mod256Picture1.PSet(x,y),RGB(r/2,g/3,b/4)

EndIf

NextyNextx

EndSub

题5．程序代码如下DimxAsInteger

PrivateSubForm_Load()

P1.Width=P1.Height:P1.ScaleMode=3:P1.Scale(-10,10)-(10,-10)P1.DrawWidth=2:x=90:Timer1.Enabled=False

EndSub

PrivateSubCommand1_Click()Timer1.Enabled=True

EndSub

PrivateSubTime