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

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

《单选按钮复选框和框架控件实验.docx》由会员分享，可在线阅读，更多相关《单选按钮复选框和框架控件实验.docx（7页珍藏版）》请在冰豆网上搜索。

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

上机报告

课程名称计算机程序设计基础（VB语言）

专业班级水文1141

姓名何晨凤

学号03

上机题目

标准控件（上）

实验室

机房

同组人数

1

实验时间

2011年月日

成绩

指导教师

赵立英、杨东

一、实验目的

1、熟练掌握VisualBasic标准控件的主要属性、方法、事件及在实际编程中的应用。

2、掌握单选按钮（OptionButton）、复选框（CheckBox）、框架（Frame）、列表框（ListBox）、组合框（ComboBox）控件的常用属性、方法、事件和基本用法。

3、通过实验进一步理解应用程序界面设计及常用控件的使用技巧。

二、实验内容

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

设计如图所示的窗体界面，设置Text1中文本的字体、字号和字形，要求字体和字号用控件数组实现。

程序清单：

PrivateSubCheck1_Click（）

IfCheck1.Value=1Then

Text1.FontBold=True

Else

Text1.FontBold=False

EndIf

EndSub

PrivateSubCheck2_Click（）

IfCheck2.Value=1Then

Text1.FontItalic=True

Else

Text1.FontItalic=False

EndIf

EndSub

PrivateSubCheck3_Click（）

IfCheck3.Value=1Then

Text1.FontUnderline=True

Else

Text1.FontUnderline=False

EndIf

EndSub

PrivateSubOptzh_Click（IndexAsInteger）

Text1.FontSize=Optzh（Index）.Caption

EndSub

PrivateSubOptzt_Click（IndexAsInteger）

Text1.FontName=Optzt（Index）.Caption

EndSub

运行界面：

2、列边框控件实验

设计如图所示的界面，具体要求如下：

1在Form_Load事件中利用AddItem方法实现对列表框添加若干项目；

2选定某项目，项目内容和下标自动在Label1控件中显示；

3“添加”按钮，将Text1控件输入的项目添加在列表框最后；

4“删除”按钮，对选定的项目删除；

5“清除”按钮，清除列表框中所有项目。

程序清单：

PrivateSubCommand1_Click（）

List1.AddItemText1.Text

EndSub

PrivateSubCommand2_Click（）

List1.RemoveItemList1.ListIndex

EndSub

PrivateSubCommand3_Click（）

List1.Clear

EndSub

PrivateSubForm_Load（）

List1.AddItem"大学计算机基础"

List1.AddItem"VB程序设计"

List1.AddItem"C语言程序设计"

List1.AddItem"数据库基础"

List1.AddItem"Java程序设计"

EndSub

PrivateSubList1_Click（）

Label1.Caption=List1.Text&"下标为:

"&List1.ListIndex

EndSub

运行界面：

3、组合框控件实验。

实验指导P119实验9-2

程序清单：

PrivateSubCombo1_Click（）

Label4.FontName=Combo1.Text

EndSub

PrivateSubCombo2_Change（）

IfVal（Combo2.Text）>8Then

Label4.FontSize=Val（Combo2.Text）

EndIf

EndSub

PrivateSubCombo2_Click（）

Label4.FontSize=Val（Combo2.Text）

EndSub

PrivateSubCombo3_Click（）

SelectCaseCombo3.Text

Case"常规"

Label4.FontBold=False

Label4.FontItalic=False

Case"斜体"

Label4.FontBold=False

Label4.FontItalic=True

Case"粗体"

Label4.FontBold=True

Label4.FontItalic=False

Case"粗斜体"

Label4.FontBold=True

Label4.FontItalic=True

EndSelect

EndSub

运行界面：

WelcomeTo

Download!

!

!

欢迎您的下载，资料仅供参考！