Question

VB 程序设计

窗体中包含一组单选按钮，一组复选框。单选按钮包括宋体和黑体；复选框包括下划线和斜体。程序运行时，用户选择一个单选框和至少一个复选框，单击“确定”按钮，对文本框中的文字进行控制、程序运行效果图如下。求程序。。。

Answer 1

代码如下
宋体单选框名称是option1
宋体单选框名称是option2
下划线复选框名称是check1
斜体复选框名称是check2
确定按钮名称是command1

Private Sub Command1_Click()
If Me.Check1.Value = 0 And Me.Check2.Value = 0 Then
MsgBox "请至少选择一个复选框"

Exit Sub
End If

If Me.Option1.Value = True Then
Me.Text1.Font = "宋体"
End If

If Me.Option2.Value = True Then
Me.Text1.Font = "黑体"
End If

If Me.Check1.Value = 1 Then
Me.Text1.FontUnderline = True
End If

If Me.Check2.Value = 1 Then
Me.Text1.FontItalic = True
End If
End Sub

Answer 2

同上