VBA计分器PPT+加分时动画(文本框)+画线

为Form1、标题为“文本框练习”的窗体上添加1个名称为Text1的文本框

基本题(1) 【解题思路】MaxLength属性设置文本框中输入的字符串长度是否有限制。默认值为0，表示该单行文本框中字符串的长度只受操作系统内存的限制；若设置为大于0的数，则表示能够输入的最大字符数目。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.162。 表3.162 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基本题(2) 【解题思路】按照题目要求设置标签和命令按钮的属性，在命令按钮的Click事件过程中，通过设置标签的FontSize属性值实现标签内容字体的放大和还原。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.163和表3.164。 表3.163 表3.164 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 2 End Sub Private Sub Command2_Click() Label1.FontSize = 12

End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】在Cmd Click 事件过程中，通过Select Case语句判断选择命令按钮数组的Index属性值，Case 0表示单击"开始"按钮，计时器Timer1和"暂停"按钮的Enabled属性为True，状态变为可用，且如果Cmd(0)的Caption属性是"开始"按钮，那么Cmd(0)的Caption属性变为"继续"，且Cmd(0)为不可用，单击"继续"按钮，则Timer1接着开始工作，"继续"按钮变为不可用，"暂停"按钮变为可用。同理Case 1表示单击"暂停"按钮，则Timer1停止工作，"暂停"按钮变为不可用，"继续"按钮变为可用；Case 2表示单击"结果"按钮，则结束程序运行。 Timer1 Timer 事件过程通过If判断语句，实现秒向分钟，分钟向小时的转换，并在三个文本框中显示出来。 【操作步骤】 步骤1：打开本题工程文件，画1个计时器timer1，设置计时器Interval属性为1000，Enabled属性设置为False。 步骤2：分析并编写程序代码。 程序提供代码 Dim t(3) As Integer Private Sub Cmd_Click(Index As Integer) ' Select Case ? Case 0 'Timer1.Enabled = ? Cmd(1)．Enabled = True If Cmd(0)．Caption = "开始" Then Cmd(0)．Caption = "继续" End If 'Cmd(0)．Enabled =? Case 1 Timer1.Enabled = False Cmd(0)．Enabled = True Cmd(1)．Enabled = False Case 2 End End Select End Sub Private Sub Timer1_Timer() t(3) = t(3) + 1 ' If t(3) = ? Then t(3) = 0 t(2) = t(2) + 1 If t(2) = 60 Then t(2) = 0

在窗体上建立一个文本框、一个图片框和三个命令按钮,把三个命令.

1、编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令 按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click 事件过程，重新在文本框中输入口令，直到输入口令正确为止。如果单击“结束”按钮，则结束程序。画出界面设计，属性列表，写出相关事件过程代码。 答：Text1 PasswordChar = "*" Command3 Caption = " 结束" Command2 Caption = " 检查口令" Command1 Caption = " 开始" Image1 Stretch = True Visible = False Label1 Caption = " 口令"

Option Explicit Dim msg As String Const password = "1234" Private Sub Command1_Click( Text1.Text = "" Image1.Visible = False Text1.SetFocus End Sub Private Sub Command2_Click( If Text1.Text = password Then Image1.Visible = True Else msg = "口令不对，请重新输入！" MsgBox msg Call Command1_Click End If End Sub Private Sub Command3_Click( End

在Form1,标题为“显示记录”的窗体上画1个名称为Text1的文本框,其初始内容为空

基础题（1) 【操作步骤】 步骤1：新建一个窗体，在窗体上创建一个文本框控件。 步骤2：在属性窗口中，设置其Text属性为空。 步骤3：在文本框下方绘制一个命令按钮Command1。 步骤4：在属性窗口中，将Caption设置为"上一条记录"。 步骤5：复制命令按钮"上一条记录"，在窗体的空白位置处粘贴对话框，单击"是"按钮，创建一个控件数组。 步骤6：再创建3个命令按钮. 步骤7：按照题目要求将复制的3个命令按钮的Caption分别设置为"下一条记录"、"第一条记录"和"最后一条记录"，并将窗体的Caption设置为"显示记录"。 步骤8：选择"上一条记录"命令按钮，通过属性窗口设置Enable为False，选择"下一条记录"命令按钮，通过属性窗口设置Default为True.。 步骤9：将文件保存至考生文件夹下，且设置窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。基础题(2) 【操作步骤】 步骤1：打开VB开发环境，新建一个窗体。 步骤2：在窗体中添加一个标签控件Lable1，在属性窗口中设置标签的Caption属性为"等级考试"，然后设置其AutoSize属性为True，设置其BorderStyle属性为1。 步骤3：然后在窗体中添加一个计时器Timer1，设置其Interval属性为0，Enabled属性为True。步骤4：打开代码窗口，编写代码如下。 Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Label1.Visible = Not Label1.Visible End Sub 步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。 简单题(1) 【操作步骤】 步骤1：打开本题工程文件。

在名称为Form1的窗体上建立一个文本框

在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。 要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。（在prog.bas 中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。 注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计算结果存入result.txt，否则没有成绩。 新建一工程，在上面放置一文本框设置其MultiLine属性为True，ScrollBars属性为True，再建立两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"），整个工程的代码如下： Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer j = 0 Open App.Path & "\in.txt" For Input As #1 For j = 1 To 100 Input #1, i(j) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next End Sub Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 100 If i(j) >= 400 And i(j) < 800 Then temp = temp + i(j) End If

PPT2013怎么制作打字机效果.doc

PPT2013怎么制作打字机效果 相信小伙伴们都知道字是怎么打出来的吧?那你们知道怎么样体现这种打字的效果吗?下面就让星辰老师告诉你，使用PPT动画，简单快捷又形象! PPT2013制作打字机效果的方法 1、切换到插入选项卡，在文本组中找到文本框，选择一种文本框类型，并在幻灯片中绘制这种文本框。 绘制文本框 2、在文本框中输入文字，并且在开始选项卡中修改它们的字体、字号以及颜色等。 输入文字并更改 3、选中文本框，在动画选项卡的高级动画组中给他添加出现动画。 添加动画 4、打开动画窗格，然后在文本框的动画下选择效果选项。 动画效果选项 5、为文本框动画添加打字音效(可更改)，然后设置动画文本按字母播放，延迟时间设置为0.2秒(一般为0.1至0.2秒)。 设置效果选项 6、大功告成，打字效果动画已经出来了

ppt2013怎样设置工具栏为显示模式 ppt2013怎样设置工具栏为显示模式 PPT2013添加工具栏的方法 首先点击菜单栏中最左边的文件 点击文件后，打开幻灯片的设置对话框，如下图所示，这里是很多设置功能的入口处，现在我们要使用的是左边列表最下面的选项 点击选项后，就打开powerpoint选项设置对话框，如下图所示，默认位于常规选项卡中，在左边的菜单列表中点击自定义功能区 点击自定义功能区后，就打开自定义功能区设置页面，如下图所示，在右边的列表中默认显示已经可以在菜单栏中显示的菜单，没有勾选的是不会显示的 勾选开发工具，在开发工具里面我们可以看到有：代码、加载项、控件等功能，这个就是我们需要的，勾选后，点击右下角的确定按钮设置完成 设置完成后，回到ppt文档中，可以看到菜单栏中已经多了一个开发工具的菜单项，在里面有各种编程会用到的工具

flash动作脚本-动态文本框、影片剪辑的拖拽、流程控制与循环语句

flash动作脚本－动态文本框、影片剪辑的拖拽、流程控制与循环语句 四、动态文本框 一、flash 中的动态文本使用方法 在flash中，文本工具提供了三种文本类型。分别是：静态文本、动态文本和输入文本。 下面讲解的内容属于动态文本的AS 编写规则。要创建一个动态文本非常简单，只需要选中文本工具，然后选择动态文本类型，然后在舞台上拖拽出所需要的动态文本框就行了 。 二、如何为动态文本赋值 当在舞台上拖拽出动态文本框之后，可以直接在里面进行文本输入或粘贴外部文本内 容。那么用AS 如何来对动态文本框赋值呢？在这里为大家介绍两种方法进行 赋值！ 1、使用动态文本的实例名字来赋值 操作步骤： （1）在舞台上创建一个动态文本框，并为这个动态文本实例起一个名字，例如abc （2）选中时间轴的第一桢，打开动作面板，输入以下脚本： abc.text = "爱国者安全网" 按下ctrl+回车就可进行测试了。从这个简单的例子可以知道，如果要用文本实例名字来进行赋值的话，必须使用以下格式：动态文本实例的名字.text=”需要赋值的内容” 2、使用变量来赋值 （1）在舞台上创建一个动态文本框，并为这个动态文本实例起一个变量名 3800hk。 （2）选中时间轴的第一桢，打开动作面板，输入以下脚本： 3800hk= "欢迎大家来到爱国者安全网学习！" 不难看出，使用变量赋值更为简单实用！赋值格式为：变量名=“赋值的内容”以上两种赋值方法如果内容过多需要换行的时候，需要使用行用回车符（“\r”即ASCII 13）分隔！ 三、如何载入外部txt 文本里的内容 当内容过多的时候，使用上面的方法并不是太好，我们可以使用下面的方法，从外部获取文本资料内容！而外部的资料内容就放在一个普通的txt（记事本）文件中。 具体操作步骤如下： 1、创建一个动态文本实例，并为这个动态文本实例起一个变量名hk 2、选中时间轴的第一桢，打开动作面板，输入以下脚本： loadVariablesNum("heiying.txt", 0);//载入外部名字叫heiying.txt 的文本文件,加载级别为0 3、现在来准备外部的heiying.txt 文本文件了。注意：要把这个文本文件和你刚才做的flash文件放在一个文件夹里！ 这个txt 文件里的资料应该按照如下格式编写：flash中动态文本变量的名字=这

如何在PPT中制作滚动文本框

如何在PPT中制作滚动文本框、嵌入FLASH文件、几何画板文件？ 一、怎样让flash嵌入到ppt中去 1、运行PowerPoint 2003，切换到要插入Flash动画的幻灯片。 2、单击“视图”菜单，在弹出的下拉菜单中单击“工具栏”，再在弹出的子菜单中单击“控件工具箱”，便出现“控件工具箱” 3、单击“控件工具箱”中的“其他控件”，弹出ActiveX控件窗口，窗口中列出了系统已经安装的所有ActiveX控件。利用键盘上的光标控制键，在控件列表中找到“Shockwave Flash Object”并单击，此时系统会自动关闭控件窗口。 4、将光标移动到PowerPoint的编辑区域中，光标变成“十”字形，按下鼠标并拖动，画出适当大小的矩形框，这个矩形区域就是播放动画的区域。 5、右单击矩形框，在出现的快捷菜单中单击“属性”，出现“属性”窗口。 6、在设置控件属性时，如你的机器中安装的是Flashplayer9以前的版本，控件属性窗口中会有一个“自定义”选项，点击“自定义中的…”会出现属性页。在这一步，影片URL(M) 中输入要插入的Flash影片的路径、名称及扩展名。并将“嵌入影片”选中，即可实现将Flash 影片嵌入PPT文档中的效果。 7、必须说明的是，如果你机器中安装的是新版的Flash控件，根本没有“自定义”选项。那也不用急，直接使用控件属性窗口设置也可完成同样效果，只是属性都是英文，不像属性页中的中文易懂。属性页中影片URL(M) 对应的是控件属性窗口中的Movie（影片）属性。“嵌入影片”选项对应的是属性窗口中的EmbedMovie（嵌入）属性。我们只需在控件属性窗口，Movie属性后输入路径、文件名及扩展名，将“EmbedMovie（嵌入）”属性设置成“True”即可。 8、放映该幻灯片，你所期待的画面就出现了。将设置好的文档保存并关闭，这样Flash就被包含到PPT文档中，成为一个文件了。我们只需拷贝这一个文件，再也不用担心Flash丢失了。 9、在PPT中实现对Flash的播放控制。如果插入的Flash动画本身不包括控制按钮，而你又想控制动画暂停或继续播放，该怎么实现呢？插入命令按钮 （1）制作(播放)按钮 在“控件工具箱”中选择“命令按钮”，在幻灯片中拖动，即可拖出一个命令按钮。调整好大小，在“属性”面板中作如下设置：“名称”中输入“cmd_play”，“Caption”中输入“播放”。双击该按钮，进入VBA编辑窗口，输入如下内容： Private Sub cmd_play_Click() ShockwaveFlash1.Playing = True End Sub （2）制作(暂停)、(前进)、(后退)、(返回)、(结束)按钮 按钮制作的方法同上。“属性”面板中分别作如下设置：暂停按钮的“名称”为“cmd_pause”，“Caption”为“暂停”；前进按钮按钮的“名称”为“cmd_forward”，“Caption”为“前进”；后退按钮的“名称”为“cmd_back”，“Caption”为“后退”；返回按钮的“名称”为“cmd_start”，“Caption”为“返回”；结束按钮的“名称”为“cmd_end”，“Caption”

【PPT实用技巧】PPT两个文本框怎么制作交互显示消失的动画

PPT两个文本框怎么制作交互显示消失的动画 PPT两个文本框怎么制作交互显示消失的动画？ppt中想要实现一个文 本框消失的同时另一个文本框出现的动画效果，该怎么制作呢？下面 我们就来看看详细的教程，需要的朋友可以参考下 一、插入两个文本框 1、新建一个ppt，插入两个文本框，并输入文字。具体操作方法：点 击上方工具栏中的“插入”，然后在“插入”下方找到并点击“文本框——横排文本框”，然后在ppt的页面中画出文本框，并输入文字。 二、设置第一个文本框的动画 1、点击上方工具栏中的“动画”，在动画工具下面就会新出现一排动 画工具，找到并点击“自定义动画”，在ppt的右侧就会出现自定义 动画栏。

2、选中第一个文本框，然后在右侧自定义动画栏中的找到“添加效果”，点击添加效果右侧的小箭头，在弹出框中选择“退出——下沉”。 3、设置好的第一个文本框的动画是：单击鼠标后，文本框一就会快速下沉消失。

三、设置第二个文本框动画 1、选中第二个文本框，然后点击右侧自定义动画栏的“添加效果”，在弹出框中选择“进入——飞入”。滑动光标选中“飞入”效果。第二个文本框的动画效果就是单击鼠标时，快速飞入。

2、比较关键的一步就是设置第一个文本框消失，同时第二个文本框进入。这一步实际上就是设置第二个文本框出现的时间。选中动画效果2，然后点击“单击时”右侧的小箭头，在下拉框里滑动光标选中“之前”。

3、设置好以后，可以看出，文本框1和文本框2的右侧都是有一个“1”，这表示，这两个文本框的动画同时进行。播放ppt，查看设置效果。 以上就是ppt文本框添加动画效果的教程，希望大家喜欢

Flash动画及课件开发

第2章常用对象的编辑 本章要点： ●在Flash MX怎样处理文字。 ●在Flash MX编辑图形对象。 ●如何使用外部图片。 ●在Flash MX中导入声音与编辑声音。 ●掌握Flash MX中元件、实例和库的概念。 ●在Flash MX中管理图层与帧。 2.1 文字的处理 在Micromedia Flash MX电影中可以按多种方式使用文字：用户可以创建文本块包含静态文本，指定其内容和显示外观；用户也可以创建动态文本或可输入的文本域，从文本域中输入动态文本；用户还可以得到各种文本的编排方式，例如从左到右排列、从右到左排列、横排、竖排；用户当然可以设置文字的字体、字号、样式、间距、颜色和对齐方式等…… 2.1.1 创建文本 Flash MX提供的文本工具位于绘图工具箱中，当用户单击选择绘图工具箱中的文本工具按钮后，在舞台某处单击鼠标，在单击位置处就会出现一个空白的字符输入框，此时用户可以在输入框中输入文字。 在文本输入框中输入文字时，我们注意到此框右上角有一个小方框，这个小方框是固定宽度文本块的调整柄，如果用鼠标左右拖动此调整柄，会改变文本块限位的宽度，如图2-1所示。 图2-1 拖动调整柄改变文本块限位的宽度 2.1.2 文本的属性设置 文本的属性包括文字的字体、字号、颜色和样式等。设置文本的不同属性可以在输入文本之前，也可以在输入文本之后。 图2-2 文本属性面板各个部分的功能

当文本框在舞台上出现后，用鼠标右键点击此框，立即弹出快捷菜单。在快捷菜单的下面选择“属性”，便可以弹出文本属性面板。文本属性面板各个部分的功能如图2-2所示。 1. 设置文本的字体、字号、样式和颜色 要在文本属性面板中选择字体、字号、样式和颜色，操作步骤如下： ①选择工具箱中的文本工具。 ②要给已有文本应用设置，可使用文本工具选择舞台上的文本块。 ③当文本块在舞台上出现后，用鼠标右键点击此框，立即弹出快捷菜单。在快捷菜单的下面选择“属性”，便可以弹出文本属性面板。 ④在文本属性面板上，单击字体右边列表栏按钮，弹出字体列表。从字体列表中选择一种字体或直接输入字体名称。 ⑤单击字号框旁边的列表栏按钮，然后拖动滑块选择一个值，也可以直接输入字号的大小。注意：无论当前电影属性中设置的单位是什么，Flash MX字号的单位总是磅。 ⑥要应用加粗或倾斜样式，可单击加粗或倾斜按钮。 ⑦要选择文本的填充颜色，可单击颜色框并执行以下操作之一： ●从颜色弹出窗口中选择一种颜色。 ●在颜色弹出窗口的文本框中输入颜色的十六进制值。 ●单击颜色弹出窗口右上角的选取颜色按钮，然后从系统调色板中选择一种颜色。 2. 设置字符间距和字符位置 字符间距将统一设置在字符之间插入的空间量。用户使用字符间距可以调整选定文本或整个文本块的间距。 字符位置可以控制文本相对于基底线的位置。对于横排文本，字符位置可以上下移动，对于竖排文本，字符位置可以左右移动。 要设置字符间距和字符位置，可以执行以下操作步骤： ①选择工具箱中的文本工具。 ②要对已存在的文本应用设置，可使用文本工具选择舞台上的文本块，然后单击鼠标右键调出快捷菜单，选择“属性”打开文本属性面板。 ③在文本属性面板中，设置以下选项： ●指定字符间距：单击字符间距栏的列表栏按钮，然后拖动滑杆选择一个值，也可以直接 输入所需要的值。 ●指定字符位置：单击字符位置选项，会呈现三种字符位置选项，这三种字符位置的含义 是：标准（Normal）是普通文本的位置；上标（Superscript）在横排文本中，是指文本位于基底线之上（对于竖排文本，是指文本位于基底线之右）；下标（Subscript）在横排文本中，是指文本位于基底线之下（对于竖排文本，是指文本位于基底线之左）。 3. 设置对齐方式、边距、缩进和行间距 对齐方式决定了段落中每行文本相对于文本块边缘的位置。横排文本相对于文本块的左右边缘对齐，竖排广西相对于文本块的上下边缘对齐。文本可对齐文本块的某一边，也可居中对齐或对齐文本块的两边。 边距将决定文本块的边框和文本段落之间的空间大小。 缩进将决定段落边距和首行开始位置之间的距离。对于横排文本，首行缩进将向右移动若干距离，对于竖排文本，首行缩进将向下移动若干距离。 行距将决定段落中相邻行之间的距离。对于竖排文本，行距将调整两个竖行之间的距离。 其实，字符的格式也可以通过“格式”选项按钮来设置，如图2-3所示。 图2-3 “格式”选项按钮

动画的基本创作流程

二维动画制作教案 熟悉获取和制作素材的方法 掌握新建和设置文档的属性 掌握导入和调整图像素材 理解什么是帧和关键帧 理解设置帧标签的作用 掌握如何创建补间动画 理解绘图纸外观和编辑多帧的作用 掌握影片的测试和发布 动画创作的通用工作流程 如何新建文档和设置文档的属性

如何导入、调整、转换图形素材 插入普通帧和关键帧并设置帧的类型 创建补间动画 绘图纸外观和编辑多帧的使用 测试和发布Flash影片 一、通用工作作流程 Flash动画的创作流程并非一成不变的，这里所说的工作流程，是指一般情况下的步骤，具有一定的通用性。创作流程大致可分为三大步骤： 素材的准备。 素材的准备直接影响到动画作品的整体效果。素材包括：图 片（图像或图形）、文字、音效和视频剪辑等。 温馨提示：素材有获取和自行制作二种方式。 如何获取素材？ 素材可以通过各种设备获取，比如图片和视频的获取可以利 用数码相机、摄像机、扫描仪等，音效的获取可以来自麦克 风、网络等。推荐使用Adobe Stock Photos来获取图像素 材，这是Adobe所提供的一个庞大的网上图片库。 如何制作素材？ 用户也可以自己定制需要的素材。除了在Flash中绘制以 外，还可以通过Photoshop、Illustrator等软件绘制或编 辑素材，而后导入到Flash中使用。Flash支持大多数的图 形/图像格式，因此用户完全可以采用自己擅长的方式和软 件来创作。至于音频的制作，Adobe Audition是非常强大

的多轨音频录制、编辑、合成软件。 动画的制作。 用户可以根据自己的想法或已经设计好的场景、情节来制作动画，在时间轴中合理地规划和编排已经准备好的素材。创作动画的手法依具体情况而定，可使用逐帧动画、动作或形状补间、时间轴特效等。必要时还可以为按钮加入音效，为场景配以背景音乐。如果希望为动画添加交互能力，使用脚本代码也是必不可少的。 动画的发布。 Flash能够发布或导出SWF、AVI、MOV、FLV等众多格式，而无需重新制作或进行任何更改。用户也可以把它打包成EXE可执行文件，这样在其他机器上播放时就不必安装任何插件。 二、新建和设置文档属性 练习：模拟客机从滑行到起飞以至降落的全过程。 练习所用到的知识点： 设置文档的属性 标题和描述：在文本框内为动画加入描述性语言和内容说明。用户就能够直接通过搜索引擎输入关键字，查找到相应的Flash文档。 匹配：该选项规定了尺寸大小的匹配方式，其中“打印机” 是匹配纸张大小。“内容”是匹配当前帧中对象的大小。 背景颜色：用来设置动画的背景颜色，单击会出现拾色器。 帧频：用来设置影片播放的速度，即每秒播放动画的帧数，

利用VB实现文本框文本的格式设置

【例2.3】设计程序实现文本框文本的格式设置。要求程序能通过一组单选按钮设置文本框的字体颜色——黑色、蓝色、红色，默认为黑色；通过另一组单选按钮设置文本框背景色——绿色、白色，默认为白色，两组单选按钮使用不同的风格；能通过复选框设置文本框的字形——粗体、斜体、下划线；文本框字号为20。运行界面如图2.11所示。 图2.11程序界面图2.12界面设计(添加控件) 图2.13界面设计(属性设置效果) 程序界面设计：如图2.12所示，向窗体上添加三个框架（Frame）、一个文本框（TextBox），在框架Frame1 、Frame2 和Frame3中分别添加三个单选按钮(OptionButton)、两个单选按钮、三个复选按钮(CheckBox)。 参照表2.4设置对象属性，效果如图2.13所示。 表2.4对象属性设置清单 Private Sub Form_Load() ‘该过程中的属性也可在属性窗口中设置 Option4.Caption = "绿" Option4.BackColor = vbGreen Option5.Caption = "白" Option5.BackColor = vbWhite Option5.V alue = True End Sub Private Sub Option1_Click() Text1.ForeColor = vbBlack End Sub Private Sub Option2_Click() Text1.ForeColor = vbBlue End Sub Private Sub Option3_Click() Text1.ForeColor = vbRed End Sub Private Sub Option4_Click()