设计一个VB程序,初始界面如图L2101所示,程序运行时,文本框中的文字会闪烁(在加粗/不加粗之间切换),时间间隔为1秒钟,可以通过“字体”组合框设置文本框中文字的字体,通过“字号”滚动条设置文本框中字体的大小,选择“颜色”中的单选按钮Option1(采用控件数组)改变文本框中字体的颜色,选择“对齐”中的单选按钮Option2(采用控件数组)改变文本框中文字的对方方式,单击检查框Check1控制时钟开关(在时钟启用/禁用之间切换),单击命令按钮Command1退出程序,如图L2102所 示 。 (1 ) 窗体加载时,为组合框添加 “宋体”、“黑体”、“隶书”选项。 (2 ) 程序运行时,文本框中的文字会闪烁(在加粗 /不加粗之间切换),时间间隔为1秒钟。 (3 )通过“字体”组合框设置文本框中文字的字体,通过“字号”滚动条设置文本框中字体的大小。 (4 )选择“颜色”中的单选按钮Option1(采用控件数组)改变文本框中字体的颜色,选择“对齐”中的单选按钮Option2(采用控件数组)改变文本框中文字的对方方式(不能使用选择结构,只能用一条语句完成)。 (5 )单击检查框Check1控制时钟开关(在时钟启用/禁用之间切换),单击命令按钮Command1退出程序 Private Sub Check1_Click() Timer1.Enabled = End Sub Private Sub Combo1_Click() Text1.FontName = End Sub Private Sub Command1_Click() End End Sub Private Sub Form_Load() Combo1.AddItem "宋体" Combo1.AddItem "黑体" Combo1.AddItem "隶书" End Sub Private Sub HScroll1_Change() Text1.FontSize = End Sub Private Sub Option1_Click(Index As Integer) Text1.ForeColor = End Sub Private Sub Option2_Click(Index As Integer) Text1.Alignment = End Sub Private Sub Timer1_Timer() Text1.FontBold = End Sub