实验七常用控件程序设计..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() Text1.FontSize = 12 End Sub Private Sub option2_click() Text1.FontSize = 18 End Sub Private Sub option3_click() Text1.FontSize = 24 End Sub Private Sub option4_click() Text1.ForeColor = vbRed End Sub Private Sub option5_click() Text1.ForeColor = vbGreen End Sub Private Sub option6_click() Text1.ForeColor = vbBlue End Sub 2）运行后的结果 （将运行结果的界面截下来粘贴在下面） 3）调试过程记录（错误情况及改正方法，不得少于三条） 2. 编写一个为组合框中添加或删除内容的程序。 要求： 1）在组合框中输入内容后，单击“添加”按钮，如果列表框中没有该内容，则将输入内容加入到列表框中，否则不添加，另外，要求组合框中的内容能自动按字母顺序排序。 2）在列表框中选择某一选项后，单击“删除”按钮，则删除该项。 3）单击“清除’按钮，将清除列表框中所有的内容。 1）代码设计 Private Sub Command1_Click() Dim i As Integer Dim flag As Integer flag = 1 For i = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(i) Then flag = 0 End If Next i If flag = 1 Then Combo1.AddItem Combo1.Text Else MsgBox (不能添加已存在的项目!) End If End Sub Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndex End Sub Private Sub Command3_Click() Combo1.Clear End Sub Private Sub Form_Load() Combo1.AddItem 商英 Combo1.AddItem 基化 Combo1.AddItem 高数 Combo1.AddItem 体育 Combo1.AddItem 西经 Combo1.AddItem 近代史 End Sub 2）运行后的结果 （将运行结果的界面截下来粘贴在下面） 3）调试过程记录（错误情况及改正方法，不得少于三条） 3．设计一个选课程序。 要求：该选课的运行界面包含2个列表框，左边为已开设的课程名称，通过Form_load事件加载，当单击某课程名称后，将该课程加入到右边的列表框中，并在左边的列表框中删除该课程，当右边的课程数已满5门时，不允许再加入。 代码设计 Private Sub Command1_Click() Dim i As Integer Dim flag As Integer Option Explicit Private Sub Form_Load() List1.A