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

1、1.1 P129-(6)原题 设窗体中包含一组单选按钮，一组复选框。单选按钮包括宋体，黑体和仿宋3种字体。复选框提供对下划线，粗体，斜体等修饰效果的选择。文本框中输入文字后单击某个按钮，文本框中的文字将按所选择的选项进行设置。窗体如图5-32所示，编写程序，实现题目的要求。1.2 解题思路(1)因为有一组单选按钮和一组复选框，因此需要选择框架结构来实现要求。(2)新建一个窗体，在窗体上按照题目要求，布置各个控件，并写出其各个对象的属性表。(3)按照题目要求，编写程序。(4)运行程序，达到题目要求后，保存文件。1.3 对象属性表对象属性设置窗体名称Form1CaptionP129-(6)文本框名

2、称txtpassageCaption置空框架1名称frafontCaption字体框架2名称fraeffectCaption效果单选按钮1名称Optfont1Caption宋体单选按钮2名称Optfont2Caption黑体单选按钮3名称Optfont3Caption仿宋复选框1名称chkunderlineCaption下划线复选框2名称chkboldCaption粗体复选框3名称chkitalicCaption斜体命令按钮名称CmdexitCaption退出1.4 代码及注解Private Sub chkbold_Click ()If chkbold.Value = 1 Then 通过if语

3、句,来使复选框选中和不选中显示不同结果txtpassage.FontBold = TrueElsetxtpassage.FontBold = FalseEnd IfEnd SubPrivate Sub chkitalic_ Click ()If chkitalic.Value = 1 Thentxtpassage.FontItalic = TrueElsetxtpassage.FontItalic = FalseEnd IfEnd SubPrivate Sub chkunderline_ Click ()If chkunderline.Value = 1 Thentxtpassage.Font

4、Underline = TrueElse: txtpassage.FontUnderline = FalseEnd IfEnd SubPrivate Sub cmdexit_ Click ()EndEnd SubPrivate Sub Form_Load ()txtpassage.Text = Visual Basic 欢迎您 窗体载入输入文字Visual Basic 欢迎您End SubPrivate Sub optfont1_ Click ()txtpassage.FontName = 宋体End SubPrivate Sub optfont2_ Click ()txtpassage.Fo

5、ntName = 黑体End SubPrivate Sub optfont3_ Click ()txtpassage.FontName = 仿宋End Sub1.5 截屏图设计界面:运行界面1:运行界面2:运行界面3:2.1 P129-(7)原题编写加法练习程序。窗口布局如图5-33所示。单击“计算”按钮，程序产生两个100以内的随机正整数，分别显示在两个标签中。随后，出现一个输入对话框。在对话框中输入运算结果，例如，两个随机数分别是34和35，如图5-34所示。输入数据并确认后，将输入的结果显示在等号后边的标签中。若计算结果正确，用消息框提示“正确”，否则提示“不正确”。继续提示“是否继续计

6、算?”，并根据提示退出程序或清空标签中所显示的内容，等待下一次操作。2.2 解题思路(1)按照题目要求，布置各控件，并将各对象属性表生成。(2)编写代码，首先产生两个100以内的随机正整数，用函数x = Int(100 * Rnd)来生成，并将其在两个标签中显示出来。(3)产生随机数的同时产生输入框，应用输入框函数InputBox(计算: & x & + & y)，此时可输入数据。(4)通过输入框中输入数据与标签中产生的随机数之和是否一致形成判断条件，生成消息框: answer = MsgBox(正确, 64) ,answer = MsgBox(不正确, 19)。(5)通过消息框上按钮定义，当

7、输入数据正确时，清空文本框；不正确时，提示“是否继续输入”，连续不正确，则可连续提示“是否继续输入”，此时用一个循环语句来实现此功能。(6)运行程序，能够满足题目要求，保存文件。2.3 对象属性表标签1(名称)Llabel1caption置空标签2(名称)Llabel2caption+标签3(名称)Llabel3caption置空标签4(名称)Llabel4caption =标签5(名称)Llabel5caption置空命令按钮1(名称)Cmdaddcaption计算命令按钮2(名称)Cmdexitcaption退出2.4 代码及注解Private Sub cmdadd_Click () x

8、= Int(100 * Rnd) 产生100以内的随机数 y = Int(100 * Rnd) Label1.Caption = x Label3.Caption = y s = InputBox(计算: & x & + & y) 生成输入框 Label5.Caption = sIf 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

9、) End If If a = 6 Then Label1.Caption = Label3.Caption = 清空标签 Label5.Caption = End If If answer = 6 Then b = MsgBox(是否继续计算, 68) End IfDo While b = 6 执行一个循环语句,计算不正确,使其可继续计算,直到正确循环结束s = InputBox(计算: & x & + & y) Label5.Caption = s If Label5.Caption = x + y Then answer = MsgBox(正确, 64) Else answer = MsgBox(不正确, 19) End If If answer = 1 Then a = MsgBox(是否清空, 4) Exit Do 正确时,循环结束 End If If a = 6 Then Label1.Caption = Label3.Caption = Label5.Caption = End If If answer = 6 Then b = MsgBox(是否继续计算, 68) End If LoopEnd SubPrivate Sub cmdexit_ Click