单选按钮、复选框及框架控件实验.docVIP

上 机 报 告 课程名称 计算机程序设计基础(VB语言) 专业班级 水文1141 姓 名 何晨凤 学 号 03 上机题目 标准控件（上） 实 验 室 机房 同组人数 1 实验时间 2011年 月 日 成 绩 指导教师 赵立英、杨东 一、实验目的 1、熟练掌握Visual Basic标准控件的主要属性、方法、事件及在实际编程中的应用。 2、掌握单选按钮（OptionButton）、复选框（CheckBox）、框架（Frame）、列表框（ListBox）、组合框（ComboBox）控件的常用属性、方法、事件和基本用法。 3、通过实验进一步理解应用程序界面设计及常用控件的使用技巧。 二、实验内容 1、单选按钮、复选框和框架控件实验 设计如图所示的窗体界面，设置Text1中文本的字体、字号和字形，要求字体和字号用控件数组实现。 程序清单： Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub Private Sub Optzh_Click(Index As Integer) Text1.FontSize = Optzh(Index).Caption End Sub Private Sub Optzt_Click(Index As Integer) Text1.FontName = Optzt(Index).Caption End Sub 运行界面： 2、列边框控件实验 设计如图所示的界面，具体要求如下： 在Form_Load事件中利用AddItem方法实现对列表框添加若干项目； 选定某项目，项目内容和下标自动在Label1控件中显示； “添加”按钮，将Text1控件输入的项目添加在列表框最后； “删除”按钮，对选定的项目删除； “清除”按钮，清除列表框中所有项目。 程序清单： Private Sub Command1_Click() List1.AddItem Text1.Text End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub Command3_Click() List1.Clear End Sub Private Sub Form_Load() List1.AddItem 大学计算机基础 List1.AddItem VB程序设计 List1.AddItem C语言程序设计 List1.AddItem 数据库基础 List1.AddItem Java程序设计 End Sub Private Sub List1_Click() Label1.Caption = List1.Text 下标为: List1.ListIndex End Sub 运行界面： 3、组合框控件实验。 实验指导P119实验9-2 程序清单： Private Sub Combo1_Click() Label4.FontName = Combo1.Text End Sub Private Sub Combo2_Change() If Val(Combo2.Text) 8 Then Label4.FontSize = Val(Combo2.Text) End If End Sub Private Sub Combo2_Click() Label4.FontSize = Val(Combo2.Text) End Sub Private Sub Combo3_Click() Select Case Combo3.Text Case 常规 Label4.FontBold = False Label4.FontItalic = False