( 10 分) 设计界面如图 1 所示一个留言板,并可设置字体及字体效果,单击“清除”按钮,清空文本框的内容,单击“退出”按钮,程序结束。(其中单选按钮、复选框及命令按钮均为控件数组) 图1 操作要求: 1. ( 2 分)创建一个“标准 EXE ”工程,将其窗体文件和工程文件分别以“ test1.frm ” 、 “ test1.vbp ”为文件名保存到“试题一 ”文件夹下。 2. ( 13 分)参照图 1 完成界面设计:按表 1 添加相关对象并设置相关属性。 表 1 对象 设置内容 窗体 form1 名称为 Form1, 标题为“留言板” ’ 1 分 文本框 Text1 多行显示且垂直滚动条 ’ 2 分 单选按钮 ( 控件数组 ) 名称为 Option1 , 标题分别为“黑体”,“幼圆”,“楷体”,“华文中宋” ‘ 4 分 复选按钮(控件数组) 名称为 Check1 ,标题分别为“加粗”,“下划线”,“斜体”,“删除线” ‘ 4 分 命令按钮(控件数组) 名称为 Command1 ,标题分别为“清除”,“退出”。 ‘ 2 分 3. 编写相应的事件: (评分标准见参考答案) ( 1 )( 5 分)单击单选按钮中任一个按钮,在文本框显示相应的字体(要求只有一句代码)( 2 )( 5 分)单击复选按钮中任一个按钮,在文本框显示字体的效果(要求用多分支选择结构 select case 语句,条件表达式用 index ) ( 3 )( 5 分)单击 “清除”命令按钮,则文本框清空;否则程序结束(用命令: end )(要求用二分支 IF 结构编写) Private Sub Check1_Click(Index As Integer) Select Case '(1) Case 0 Text1. = Not Text1.FontBold '(2) Case 1 '0.5 分 Text1.FontUnderline = Not Text1.FontUnderline Case 2 '0.5 分 Text1.FontItalic = Not Text1.FontItalic Case 3 '0.5 分 Text1.FontStrikethru = Not Text1.FontStrikethru End Select End Sub Private Sub Command1_Click(Index As Integer) If Index = 0 Then '(3) Else '(4) End If End Sub Private Sub Option1_Click(Index As Integer) Text1.FontName = '(5) End Sub