求一道VB程序题的解法

来源：百度知道 编辑：UC知道 时间：2024/05/23 01:27:02
用户在文本中框中输入一段文字，然后按需要单击各复选框，用以改变文本的字体，字形，颜色及大小。
复选框里有宋体，斜体，16点（16点是字体的大小），紫色
代码提示：Private Sub ChkItalic_Click()
if ChkItalic.value=1 then
Txtpassge.fontitalic=-1
Else
Txtpassge.fontitalic=0
end if end sub
还有另一个程序界面，程序运行后，单击“显示”按钮，文本框会显示一行文字，其字体，
和程序事先设定。用户可以在3个框架中分别选择字体，大小和颜色，
然后单击“显示”按钮，此时文本框中的文字的字体，大小和颜色会发生变化。
这个第2个程序界面上有：一个文本框，，一个命令按钮，Frame1字体这个框架里有宋体，
隶书，幼圆。frame2大小这个框架里有14点，18点，22点，frame3颜色这个框架里有蓝色，紫色，
绿色。
这个俩个程序题高分，给都答对的人。
谢谢 VB妮可，发现这个题好象很费事，代码有一点多。为此在加分。第2个运行出错，子程序或函数未定义，Private Sub Form_Load()
OptFont出错。我的界面有1个文本框text1,1个按钮command1, 3个frame(框架), 我是把代码里面清空整个复制你的代码运行的。怎么回事？

第1个题: 4个复选框和一个文本框:

Private Sub Check1_Click()
Text1.Font = IIf(Text1.Font = "黑体", "宋体", "黑体")
Text1.SetFocus
End Sub

Private Sub Check2_Click()
Text1.FontItalic = IIf(Text1.FontItalic = -1, 0, -1)
Text1.SetFocus
End Sub

Private Sub Check3_Click()
Text1.FontSize = IIf(Text1.FontSize = 9, 16, 9)
Text1.SetFocus
End Sub

Private Sub Check4_Click()
Text1.ForeColor = IIf(Text1.ForeColor = &H0&, &HC000C0, &H0&)
Text1.SetFocus
End Sub

Private Sub Form_Load()
Text1.Font = "黑体"
Text1.ForeColor = &H0&
Check1.Caption = "宋体"
Check2.Caption = "斜体"
Check3.Caption = "16点"
Check4.Caption = "紫色"
End Sub

第2个题: 新建工程,1个文本框text1,1个按钮command1, 3个frame(框架), 每个框架里3个opt(数组形式),名称分别为:
OptFont(0),OptFont(1),OptFont(2)

OptFontSize(0)
OptFontSize(1)
Op