单选按钮、复选框和框架控件实验

1、上 机 报 告课程名称 计算机程序设计基础(VB语言) 专业班级 水文1141 姓 名 何晨凤 学 号 03 上机题目标准控件（上）实 验 室机房同组人数1实验时间2011年 月 日成 绩指导教师赵立英、杨东一、实验目的1、熟练掌握Visual Basic标准控件的主要属性、方法、事件及在实际编程中的应用。2、掌握单选按钮（OptionButton）、复选框（CheckBox）、框架（Frame）、列表框（ListBox）、组合框（ComboBox）控件的常用属性、方法、事件和基本用法。3、通过实验进一步理解应用程序界面设计及常用控件的使用技巧。二、实验内容1、单选按钮、复选框和框架控件实验设

2、计如图所示的窗体界面，设置Text1中文本的字体、字号和字形，要求字体和字号用控件数组实现。程序清单：Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Cl

3、ick()If Check3.Value = 1 Then Text1.FontUnderline = TrueElse Text1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Optzh_Click(Index As Integer)Text1.FontSize = Optzh(Index).CaptionEnd SubPrivate Sub Optzt_Click(Index As Integer)Text1.FontName = Optzt(Index).CaptionEnd Sub运行界面：2、列边框控件实验 设计如图所示的界面，具体要求

4、如下： 在Form_Load事件中利用AddItem方法实现对列表框添加若干项目； 选定某项目，项目内容和下标自动在Label1控件中显示； “添加”按钮，将Text1控件输入的项目添加在列表框最后； “删除”按钮，对选定的项目删除； “清除”按钮，清除列表框中所有项目。程序清单：Private Sub Command1_Click()List1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click()List1

5、.ClearEnd SubPrivate Sub Form_Load()List1.AddItem "大学计算机基础"List1.AddItem "VB程序设计"List1.AddItem "C语言程序设计"List1.AddItem "数据库基础"List1.AddItem "Java程序设计"End SubPrivate Sub List1_Click()Label1.Caption = List1.Text & "下标为:" & List1.ListIn

6、dexEnd Sub运行界面： 3、组合框控件实验。 实验指导P119实验9-2程序清单：Private Sub Combo1_Click()Label4.FontName = Combo1.TextEnd SubPrivate Sub Combo2_Change()If Val(Combo2.Text) > 8 Then Label4.FontSize = Val(Combo2.Text)End IfEnd SubPrivate Sub Combo2_Click()Label4.FontSize = Val(Combo2.Text)End SubPrivate Sub Combo3_Click()Select Case Combo3.Text Case "常规" Label4.FontBold = False Label4.FontItalic = False Case "斜体" Label4.FontBold = False Label4.FontItalic = True Case "粗体" Label4.FontBold = True Label4.Fon