Question

用VB编程，

编写程序，实现设置文本框内文本 字体、大小、颜色 的功能，要求用到框架、控件数组和单选按钮实现颜色的设置，列表框实现字体的设置，组合框实现大小的设置。

Answer 1

画几个控件吧：

文本框：Text1
框架：Frame1
单选按钮数组：Option(0~3)
列表框：List1
组合框：Combo1

设置属性：

Option(0)的Caption属性设为“红”
Option(1)的Caption属性设为“黄”
Option(2)的Caption属性设为“绿”
Option(3)的Caption属性设为“蓝”

List1的List属性设为“宋体（换行）黑体（换行）楷体_GB2312”
Combo1的List属性设为“10（换行）20（换行）30”

加代码吧：
Private Sub Combo1_Click()
Text1.FontSize = Combo1.Text
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Combo1_Click
End Sub

Private Sub List1_Click()
Text1.Font = List1.Text
End Sub

Private Sub Option_Click(Index As Integer)
Select Case Index
Case 0
Text1.ForeColor = vbRed
Case 1
Text1.ForeColor = vbYellow
Case 2
Text1.ForeColor = vbGreen
Case 3
Text1.ForeColor = vbBlue
End Select
End Sub

Answer 2

这个太简单了