好吧问答库 > 请帮我写点vb6.0代码，窗体包含一组单选按钮、一组复选框。。。题目接下、、、

请帮我写点vb6.0代码，窗体包含一组单选按钮、一组复选框。。。题目接下、、、

单选按钮包括粗体、斜体、粗斜体；复选框包括删除线和下划线。程序运行后，文本框中德设计受单选按钮，复选框的控制。会写的帮忙写一下白谢谢啦O(∩_∩)O哈哈~、、、

2026年09月28日 13:59

有2个网友回答

网友（1）：

新建三个单选按钮,三个为一个控件数组(即同名)第一个是粗体,第二个是斜体,第三个是粗斜体
新建两个复选框,两个为一个数组,第一个是下划线,每二个是删除线
代码如下:
Option Explicit

Private Sub Check1_Click(Index As Integer)
Text1.Font.Underline = Check1(0).Value
Text1.Font.Strikethrough = Check1(1).Value
End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.Font.Bold = True
Text1.Font.Italic = False
Case 1
Text1.Font.Bold = False
Text1.Font.Italic = True
Case 2
Text1.Font.Bold = True
Text1.Font.Italic = True
End Select
End Sub

网友（2）：

用两个if语句