实验七常用控件程序设计（4个学时）
一、实验目的
1. 掌握单选按钮、复选按钮、框架、列表框、组合框、时钟和滚动条的属性、事件和方法。
2. 明确常用内部控件的功能，熟练使用“属性”窗口设置属性。
3. 掌握在常用内部控件的事件过程中编写程序代码。
二、实验内容
1.设计一个程序运用单选按钮、复选框和框架对文本框中文本的颜色、字号和效果进行设置。要求：文本的颜色可以选择红色、绿色和蓝色。文本的字号可以选择12、18、24号，效果可以选择删除线和下划线。当文本框中输入文字后，单击某个按钮，文本框中的文字将按所选择的选项
进行设置。
1）代码设计如下
PrivateSub check1_click()
Ifcheck1.Value = 1 Then
Text1.FontStrikethru= True
Else:Text1.FontStrikethru = False
EndIf
EndSub
PrivateSub check2_click()
IfCheck2.Value = 1 Then
Text1.FontUnderline= True
Else:Text1.FontUnderline = False
EndIf
EndSub
PrivateSub option1_click()
Text1.FontSize= 12
EndSub
PrivateSub option2_click()
Text1.FontSize= 18
EndSub
PrivateSub option3_click()
Text1.FontSize= 24
EndSub
PrivateSub option4_click()
Text1.ForeColor= vbRed
EndSub
1
PrivateSub option5_click()
Text1.ForeColor= vbGreen
EndSub
PrivateSub option6_click()
Text1.ForeColor= vbBlue
EndSub
2）运行后的结果（将运行结果的界面截下来粘贴在下面）
3）调试过程记录（错误情况及改正方法，不得少于三条）
2
2.编写一个为组合框中添加或删除内容的程序。
要求：
1）在组合框中输入内容后，单击“添加”按钮，如果列表框中没有该内容，则将输入内容加入到列表框中，否则不添加，另外，要求组合框中的内容能自动按字母顺序排序。
2）在列表框中选择某一选项后，单击“删除”按钮，则删除该项。
3）单击“清除’按钮，将清除列表框中所有的内容。
1）代码设计
PrivateSub Command1_Click()
Dimi As Integer
Dimflag As Integer
flag= 1
Fori = 0 To Combo1.ListCount - 1
IfCombo1.Text = Combo1.List(i) Then
flag= 0
EndIf
Nexti
Ifflag = 1 Then
Combo1.AddItemCombo1.Text
Else
MsgBox("不能添加已存在的项目!")
EndIf
EndSub
PrivateSub Command2_Click()
Combo1.RemoveItemCombo1.ListIndex
EndSub
PrivateSub Command3_Click()
Combo1.Clear
EndSub
PrivateSub Form_Load()
Combo1.AddItem"商英"
Combo1.AddItem"基化"
Combo1.AddItem"高数"
Combo1.AddItem"体育"
Combo1.AddItem"西经"
Combo1.AddItem"近代史"
EndSub
3
2）运行后的结果（将运行结果的界面截下来粘贴在下面）
3）调试过程记录（错误情况及改正方法，不得少于三条）
3．设计一个选课程序。
要求：该选课的运行界面包含2个列表框，左边为已开设的课程名称，通过Form_load事件加载，当单击某课程名称后，将该课程加入到右边的列表框中，并在左边的列表框中删除该课程，当右边的课程数已满5门时，不允许再加入。
1）代码设计
PrivateSub Command1_Click()
Dimi As Integer
Dimflag As Integer
OptionExplicit
PrivateSub Form_Load()
List1.AddItem"近代史"
List1.AddItem"世纪"
List1.AddItem"商英"
List1.AddItem"体育"
4
List1.AddItem"大英"
List1.AddItem"高数"
List1.AddItem"会计"
List1.AddItem"计算机"
List1.AddItem"管理学"
List1.AddItem"西经"
EndSub
PrivateSub Label2_Click()
EndSub
PrivateSub List1_Click()
IfList2.ListCount < 5 Then
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
EndIf
EndSub
2)运行后的结果（将运行结果的界面截下来粘贴在下面）
3)调试过程记录（错误情况及改正方法，不得少于三条）
5
4.设计一个程序实现滚动字幕。
要求：在窗体上加载一幅图片，当点击“开始”按钮时，一行字幕“青岛是一座美丽的海滨城
市”将由右向左反复滚动，当点击“停止”按钮时，字幕停止，当点击“结束”时，程序结束。
1）代码设计
PrivateSub Command1_Click()
Label1.Left= Label1.Left - 50
IfLabel1.Left <= -Form1.Width Then
Label1.Left= Form1.Width
EndIf
EndSub
PrivateSub Command2_Click()
Timer1.Enabled= True
EndSub
PrivateSub Command3_Click()
Timer1.Enabled= False
EndSub
PrivateSub Command4_Click()
End
EndSub
PrivateSub Timer1_Timer()
Label1.Left= Label1.Left - 50
IfLabel1.Left <= -Form1.Width Then
Label1.Left= Form1.Width
EndIf
EndSub
2）运行后的结果（将运行结果的界面截下来粘贴在下面）
6
3）
3）调试过程记录（错误情况及改正方法，不得少于三条）
没有将Timer1.Enabled= False
7