vb 编程题

添加以下控件，所有属性都不必改动，直接粘贴代码即可。
Combo1,Command1,Command2,Label1,Label2,Label3,Label4,Label5,Label6,List1,Option1,Option2,Slider1,Slider2,Slider3.
代码如下。
==============================================
Dim f As StdFont, r As Integer, g As Integer, b As Integer

Sub run()
Label2.Font.Name = f.Name
Label2.ForeColor = RGB(r, g, b)
Label2.Font.Size = f.Size
End Sub
Sub Default()
Label2.Font.Name = "宋体"
Label2.Font.Size = 10
Label2.ForeColor = vbBlack
Label2.BackColor = vbButtonFace
Combo1.ListIndex = 4
Slider1.Value = 0
Slider2.Value = 0
Slider3.Value = 0
End Sub

Private Sub Combo1_Change()
On Error Resume Next
f.Size = Combo1.Text
run
End Sub

Private Sub Combo1_Click()
f.Size = Combo1.Text
run
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Default
End Sub

Private Sub Form_Load()
BorderStyle = 3
Width = 8265
Caption = "字体属性程序"
Height = 5500
Label1.Move 0, 0
Label2.Move 2400, 120
Label3.Move 0, 2640
Label4.Move 120, 3360
Label5.Move 120, 3720
Label6.Move 120, 4080
List1.Move 0, 240, 2295, 2400
Combo1.Move 0, 2880, 2295
Slider1.Move 480, 3360, 5535, 375
Slider2.Move 480, 3720, 5535, 375
Slider3.Move 480, 4080, 5535, 375
Command1.Move 5160, 4560, 1095, 375
Command2.Move 6600, 4560, 1095, 375
Option1.Move 6120, 3240, 1815, 495
Option2.Move 6120, 3840, 1815, 495
Set f = New StdFont
Dim i As Integer
Label1.Caption = "字体："
Label1.AutoSize = True
Label2.Caption = "示例文字" & vbCrLf & "Example Text"
Label3.Caption = "字号："
Label3.AutoSize = True
Label4.Caption = "红"
Label4.AutoSize = True
Label5.Caption = "绿"
Label5.AutoSize = True
Label6.Caption = "蓝"
Label6.AutoSize = True
Command1.Caption = "确定"
Command2.Caption = "取消"
Option1.Caption = "设置红色底纹"
Option2.Caption = "取消底纹"
Combo1.AddItem 2
Combo1.AddItem 4
Combo1.AddItem 6
Combo1.AddItem 8
Combo1.AddItem 10
Combo1.AddItem 12
Combo1.AddItem 14
Combo1.AddItem 16
Combo1.AddItem 18
Combo1.AddItem 20
Combo1.AddItem 24
Combo1.AddItem 28
Combo1.AddItem 36
Combo1.AddItem 72
Label2.AutoSize = True
Slider1.Min = 0
Slider1.Max = 255
Slider1.TickFrequency = 10
Slider2.Min = 0
Slider2.Max = 255
Slider2.TickFrequency = 10
Slider3.Min = 0
Slider3.Max = 255
Slider3.TickFrequency = 10
'Exit Sub
For i = 0 To Screen.FontCount
List1.AddItem Screen.Fonts(i)
Next
Default
End Sub

Private Sub List1_Click()
f.Name = List1.Text
run
End Sub

Private Sub Option1_Click()
Label2.BackColor = vbRed
End Sub

Private Sub Option2_Click()
Label2.BackColor = vbButtonFace
End Sub

Private Sub Slider1_Change()
r = Slider1.Value
run
End Sub

Private Sub Slider2_Change()
g = Slider2.Value
run
End Sub

Private Sub Slider3_Change()
b = Slider3.Value
run
End Sub