急！！！vb编程:编写利用组合框对文字的字体和大小进行设置的程序

Question

编写利用组合框对文本的字体和大小进行设置的程序，界面如图。要求：左边一个简单的组合框，项目内容位“宋体”，“黑体”和“楷体-GB2312”：右边一个简单的组合框，对文本框的文字大小进行设置，字号为12、14、16直到72号，文本框中文字为“心想事成”

Answer 1

Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub
Private Sub Combo2_Click()
Text1.FontSize = Val(Combo2.Text)
End Sub
Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "黑体"
Combo1.AddItem "楷体_GB2312"
Combo1.Text = "宋体"
For i = 12 To 72 Step 2
Combo2.AddItem Str(i)
Next i
Combo2.Text = "12"
End Sub