设窗体中包含一组单选按钮,一组复选框。单选按钮包括宋体,黑体和仿宋3种字体。复选框提供对下划线,

1.1 P129-(6)原题

设窗体中包含一组单选按钮，一组复选框。单选按钮包括宋体，黑体和仿宋3种字体。复选框提供对下划线，粗体，斜体等修饰效果的选择。文本框中输入文字后单击某个按钮，文本框中的文字将按所选择的选项进行设置。窗体如图5-32所示，编写程序，实现题目的要求。

1.2 解题思路

(1)因为有一组单选按钮和一组复选框，因此需要选择框架结构来实现要求。

(2)新建一个窗体，在窗体上按照题目要求，布置各个控件，并写出其各个对象的属性表。

(3)按照题目要求，编写程序。

(4)运行程序，达到题目要求后，保存文件。

1.3 对象属性表

1.4 代码及注解

Private Sub chkbold_Click ()

If chkbold.Value = 1 Then '通过if语句,来使复选框选中和不选中显示不同结果txtpassage.FontBold = True

Else

txtpassage.FontBold = False

End If

End Sub

Private Sub chkitalic_ Click ()

If chkitalic.Value = 1 Then

txtpassage.FontItalic = True

Else

txtpassage.FontItalic = False

End If

End Sub

Private Sub chkunderline_ Click ()

If chkunderline.Value = 1 Then

txtpassage.FontUnderline = True

Else: txtpassage.FontUnderline = False

End If

End Sub

Private Sub cmdexit_ Click ()

End

End Sub

Private Sub Form_Load ()

txtpassage.Text = "Visual Basic 欢迎您" '窗体载入输入文字"Visual Basic 欢迎您"

End Sub

Private Sub optfont1_ Click () txtpassage.FontName = "宋体" End Sub

Private Sub optfont2_ Click () txtpassage.FontName = "黑体" End Sub

Private Sub optfont3_ Click () txtpassage.FontName = "仿宋" End Sub

1.5 截屏图

设计界面:

运行界面1:

运行界面2:

运行界面3:

2.1 P129-(7)原题

编写加法练习程序。窗口布局如图5-33所示。

单击“计算”按钮，程序产生两个100以内的随机正整数，分别显示在两个标签中。随后，出现一个输入对话框。在对话框中输入运算结果，例如，两个随机数分别是34和35，如图5-34所示。

输入数据并确认后，将输入的结果显示在等号后边的标签中。若计算结果正确，用消息框提示“正确”，否则提示“不正确”。继续提示“是否继续计算?”，并根据提示退出程序或清空标签中所显示的内容，等待下一次操作。

2.2 解题思路

(1)按照题目要求，布置各控件，并将各对象属性表生成。

(2)编写代码，首先产生两个100以内的随机正整数，用函数x = Int(100 * Rnd)来生成，并将其在两个标签中显示出来。

(3)产生随机数的同时产生输入框，应用输入框函数InputBox("计算:" & x

& "+" & y)，此时可输入数据。

(4)通过输入框中输入数据与标签中产生的随机数之和是否一致形成判断条件，生成消息框: answer = MsgBox("正确", 64) ,answer = MsgBox("不正确", 19)。

(5)通过消息框上按钮定义，当输入数据正确时，清空文本框；不正确时，提示“是否继续输入”，连续不正确，则可连续提示“是否继续输入”，此时用一个循环语句来实现此功能。

(6)运行程序，能够满足题目要求，保存文件。

2.3 对象属性表

2.4 代码及注解

Private Sub cmdadd_Click ()

x = Int(100 * Rnd) '产生100以内的随机数

y = Int(100 * Rnd)

Label1.Caption = x

Label3.Caption = y

s = InputBox("计算:" & x & "+" & y) '生成输入框

Label5.Caption = s

If Label5.Caption = x + y Then

answer = MsgBox("正确", 64) '生成消息框,64为0+64组合Else

answer = MsgBox("不正确", 19) '生成消息框,19为3+16组合End If

If answer = 1 Then

a = MsgBox("是否清空", 4)

End If

If a = 6 Then

Label1.Caption = ""

Label3.Caption = "" '清空标签

Label5.Caption = ""

End If

If answer = 6 Then

b = MsgBox("是否继续计算", 68)

End If

Do While b = 6 '执行一个循环语句,计算不正确,使其可继续计算,直到正确循环结束