2012版vb例題和習(xí)題答案參考答案

1、第四節(jié)習(xí)題解答一、判斷題1.2.3.4.5.6.7.8.9.10.二、選擇題1C11.A2B12.B3C13.B4A14.C5A15.C6C7A8C9C10B三、填空題1Circle(ScaleLeft + ScaleWidth/2, ScaleTop +ScaleHeight/2),8002Loicture3AutoSize、Stretch、False、false4選中、屬性5形狀、矩形6Picture1.Picture=Loicture(c:windowscloud.bmp)7框、其他控件8緹、ScaleMord9顏色10顏色、圓弧起點(diǎn)處轉(zhuǎn)角、圓弧終點(diǎn)處轉(zhuǎn)角、橢圓縱軸與橫軸長度之比四、程序

2、閱讀題1.2.3.4.逆時(shí)針轉(zhuǎn)動(dòng)繪制紅色直線，其軌跡形成一個(gè)圓在窗體上隨機(jī)的位置、用隨機(jī)的顏色、半徑繪制 100 個(gè)空心的圓在在框內(nèi)繪制多個(gè)藍(lán)色邊框的矩形，填充樣式在“實(shí)心”、“透明”間交替變換?？騼?nèi)繪制一個(gè)內(nèi)接橢圓，紅色邊框、藍(lán)色填充。五、程序填空題題 1.題 2.題 3.題 4.(1)(1)(1)(1)List2.AddItem Str(i)(2) Sh1.ShList2.ListIndexP1.DrawStyle10Long(2)(2)(2)B(3) -Step(80, 0)ScaleWidth / 2(3) ScaleHeight / ScaleWidth(3) P2.ScaleWid

3、th - aP1.Po(a, b)六、程序設(shè)計(jì)題題 1程序代碼如下Private Sub Form_Load() Dim i As Byte List1.ClearFor i = 1 To 7: List1.AddItem i:End SubNext iPrivate Sub Form_MouseMove(Button AsShift Aseger, X As Single, Yeger, _As Single)Label1.Caption = X: Label2.Caption = Y End SubPrivate Sub List1_Click()Form1.ScaleMode = Lis

4、t1.TextEnd Sub題 2程序代碼如下Dim x1 As Single, y1 As Single Private Sub Form_Load()Form1.ScaleMode = 3: Form1.ForeColor = RGB(255, 0, 0)Form1.FillColor = RGB(0, 0, 255): Form1.FillStyle End SubPrivate Sub Form_MouseDown(Button Aseger, _= 0Shift As x1 = X: y1 = YEnd Subeger, X As Single, Y As Single)Privat

5、e Sub Form_MouseUp(Button Aseger, _Shift Aseger, X As Single, Y As Single)Line (x1, y1)-(X, Y), , BEnd Sub題 3程序代碼如下Private Sub Form_Click() Dim r As SingleForm1.ScaleMode = 6: Form1.FillStyle = 0If Form1.ScaleHeight = 0 Thenr = c Mod 256: g = (c256) Mod 256: b = (c256256) Mod 256 Picture1.PSet (x, y

6、), RGB(r/2, g/3, b/4)End IfNext y Next xEnd Sub題 5程序代碼如下Dim x AsegerPrivate Sub Form_Load()P1.Width = P1.Height: P1.ScaleMode = 3: P1.Scale(-10, 10)-(10, -10)P1.DrawWidth = End SubPrivate Sub Timer1.EnabledEnd Sub2: x = 90: Timer1.Enabled = Falsed1_Click()= TruePrivate Sub Timer1_Timer()P1.PSet (8*Cos(x*3.1