Question

用VB编写用单选钮和复选框设置文本框的字体的程序

要求：
选择“字体”、“字号”和“效果”后，单击“确定”，文本框的文字设置为所选格式；单击“结束”，程序终止。

Answer 1

'结束按钮
Private Sub Cmdend_Click()
End
End Sub
'确定按钮
Private Sub Cmdok_Click()
If Chksize.Value = 1 Then
Txtshow.FontSize = 32
Else
End If
If Chkfont.Value = 1 Then
Txtshow.FontName = "隶书"
End If
If Chkstyle.Value = 1 Then
Txtshow.FontUnderline = True
Else
Txtshow.FontUnderline = False
End If
End Sub

以此类推