牛实验七 常用控件程序设计.docVIP

-+-实验七 常用控件程序设计（4个学时） 一 、实验目的 掌握单选按钮、复选按钮、框架、列表框、组合框、时钟和滚动条的属性、事件和方法。 明确常用内部控件的功能，熟练使用“属性”窗口设置属性。 掌握在常用内部控件的事件过程中编写程序代码。 二 、实验内容 1. 设计一个程序运用单选按钮、复选框和框架对文本框中文本的颜色、字号和效果进行设置。 要求：文本的颜色可以选择红色、绿色和蓝色。文本的字号可以选择12、18、24号，效果可以选择删除线和下划线。当文本框中输入文字后，单击某个按钮，文本框中的文字将按所选择的选项进行设置。 1）代码设计如下 Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1. FontUnderline= True Else Text1.FontUnderline = False End If End Sub Private Sub Option1_Click() If Option1.Value = True Then Text1.ForeColor = vbRed End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text1.ForeColor = vbBlue End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Text1.ForeColor = vbGreen End If End Sub Private Sub Option4_Click() If Option4.Value = True Then Text1.FontSize = 12 End If End Sub Private Sub Option5_Click() If Option5.Value = True Then Text1.FontSize = 18 End If End Sub Private Sub Option6_Click() If Option6.Value = True Then Text1.FontSize = 24 End If End Sub Private Sub Form_Load() Text1.FontStrikethru = False Text1.FontUnderline = False Frame1.Caption = 颜色 Frame2.Caption = 字号 Frame3.Caption = 效果 Option1.Caption = 红色 Option2.Caption = 蓝色 Option3.Caption = 绿色 Option4.Caption = 12 Option5.Caption = 18 Option6.Caption = 24 Check1.Caption = 删除 Check2.Caption = 下划 Text1.Text = 实验七 常用控件程序设计 End Sub 2）运行后的结果 （将运行结果的界面截下来粘贴在下面） 3）调试过程记录（错误情况及改正方法，不得少于三条） 代码中引号应为英文半角字符 代码应与控件名称相似 代码需输入正确 2. 编写一个为组合框中添加或删除内容的程序。 要求： 1）在组合框中输入内容后，单击“添加”按钮，如果列表框中没有该内容，则将输入内容加入到列表框中，否则不添加，另外，要求组合框中的内容能自动按字母顺序排序。 2）在列表框中选择某一选项后，单击“删除”按钮，则删除该项。 3）单击“清除’按钮，将清除列表框中所有的内容。 1）代码设计 Option Explicit Private Sub Command1_Click() Dim i%, q As Boolean For i = 0 To List1.ListCount - 1 If List1