VB程序设计基础 申石磊 答案(7)

Image1.Picture = LoadPicture(\图片\\p1.JPG\ Image2.Picture = LoadPicture(\图片\\p2.JPG\ End If End Sub

Private Sub Form_Load()

Image1.Picture = LoadPicture(\图片\\p1.JPG\ Image2.Picture = LoadPicture(\图片\\p2.JPG\ End Sub 7-3

Private Sub Timer1_Timer()

Form1.Picture = Image3.Picture Image3.Picture = Image2.Picture Image2.Picture = Image1.Picture Image1.Picture = Form1.Picture End Sub 7-4

Private Sub Form_Load() Timer1.Enabled = False End Sub

Private Sub Timer1_Timer()

If Image2.Top >= -Image2.Height Then Image2.Top = Image2.Top - 100

Else

Image2.Top = -Image2.Height End If End Sub 7-5

Private Sub Form_Load() HScroll1.Min = 0

HScroll1.Max = Image1.Width Image1.Width = 0 End Sub

Private Sub HScroll1_Scroll() Image1.Width = HScroll1

Label1 = \当前图片宽度：\alue End Sub 7-6

Private Sub Command1_Click()

For i = ProgressBar1.Min To ProgressBar1.Max ProgressBar1.Value = i (For j = 1 To 20000 Next j) （延时） Next i End Sub

7-7

Private Sub Command1_Click() a = IIf(Option1, \男\女\ b = IIf(Option3, \硕士\博士\ c = IIf(Check1, \音乐\ d = IIf(Check2, \演讲\ e = IIf(Check3, \体育\ f = IIf(Check4, \集邮\

Text2 = \姓名:\ext1.Text & \性别:\& \学历:\特长:\\ End Sub

Private Sub Command2_Click() Text1 = \ Text2 = \

Text1.SetFocus End Sub 7-8

Private Sub Form_Load() Combo1.AddItem \河南省\ Combo1.AddItem \开封市\ Combo1.AddItem \河南大学\

Combo1.AddItem \金明校区\

Combo1.AddItem \环境与规划学院\ Combo1.AddItem \级\

Combo1.AddItem \地理科学专业\ Combo1.AddItem \刘彬\ Combo1.AddItem \毕业于\ Combo1.AddItem \湖南省\ Combo1.AddItem \衡山县\ Combo1.AddItem \第二中学\ Combo1.AddItem \班\ End Sub

Private Sub Combo1_Click() List1.AddItem Combo1.Text End Sub

Private Sub List1_DblClick()

List1.RemoveItem List1.ListIndex End Sub 8-1

Dim x As Single, y As Single Private Sub Pt1_Click() Pt1.Scale (0, 100)-(100, 0) Pt1.DrawWidth = 2

For x = 0 To 100 Step 0.02 Pt1.PSet (x, 2), vbRed Next x

For y = 0 To 100 Step 0.02 Pt1.PSet (2, y), vbRed Next y

Pt1.CurrentX = 2 Pt1.CurrentY = 5 Pt1.Print \ End Sub 8-2

Private Sub P1_Click() P1.Scale (0, 100)-(100, 0) P1.FillStyle = 7 P1.DrawWidth = 5 P1.FillColor = vbGreen

P1.Line (10, 90)-(90, 10), vbRed, B End Sub 8-3

Private Sub Form_click()

Scale (-100, 100)-(100, -100) Line (-100, 0)-(100, 0)