可视化程序设计实验报告.docx

可视化程序设计实验报告.docx

《可视化程序设计实验报告.docx》由会员分享，可在线阅读，更多相关《可视化程序设计实验报告.docx（46页珍藏版）》请在冰豆网上搜索。

可视化程序设计实验报告

XI`ANTECHNOLOGICALUNIVERSITY

实验报告

实验课程名称可视化程序设计

专业：

信息管理与信息系统

成绩：

2015年4月20日

西安工业大学实验报告

专业

信息管理与信息系统

班级

130513

姓名

贾丹丹

学号

130513117

实验课程

可视化程序设计

指导教师

姬浩

实验日期

2015年3月22日

同实验者

实验项目

熟悉VB的开发环境，程序设计的基本步骤

实验设备及器材

硬件：

IBMPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

软件：

操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。

一、实验目的

（1）熟悉VisualBasic6.0集成开发环境。

（2）学习怎样启动和退出VB

（3）掌握开发一个简单程序的基本步骤。

（4）掌握简单代码的编写。

二、实验内容

（1）启动和退出VB

（2）开发一个简单程序。

（3）将VisualBasic工程编译生成可执行文件。

三、实验步骤、数据记录及处理

1、启动和退出VB

<1>进入VB集成开发环境

要进入VB应用程序，首先要运行VB的集成开发环境。

启动VB的方法如下：

[方法1]

◇单击任务栏上的“开始”按钮；

◇选择“程序”文件夹，接着选取“MicrosoftVisualBasic6.0中文版”文件夹，再选取“MicrosoftVisualBasic6.0中文版”项，如图1-1所示；

图1-1启动VB的方法1

◇单击鼠标左键。

[方法2]

◇单击任务栏上的“开始”按钮；

◇选择“程序”文件夹；

◇使用“Windows资源按理器”查找VB可执行文件VB6.exe；

◇双击图标。

[方法3]

◇在桌面创建一个VB快捷键；

◇双击该快捷键。

VB启动后，出现VB6.0的“新建工程”对话框（图１-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到VB集成开发环境的界面，如图1-3所示。

有的系统启动后可直接进入图1-3所示的界面。

图1-2VB6.0的“新建工程”对话框

图1-3VB的集成开发环境窗口

<2>退出VB方法：

（1）单击主窗口右上角的“关闭”按钮。

（2）执行“文件”菜单中的“退出”命令。

（3）按Alt+Q键。

2、开发一个简单程序

要求：

新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。

实验步骤：

（1）新建工程

在桌面上双击MicrosoftVisualBasic6.0快捷方式图标，系统进入VisualBasic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。

单击“打开”按钮，VisualBasic6.0进入设计模式。

如图1－4所示。

图1－4“新建工程”对话框

单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。

（2）设计界面

在系统提供的名为Form1的窗体上进行界面设计。

单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。

初始界面如图1－5所示。

图1－5初始界面

（3）设置属性

如表1－1所示。

表1－1属性设置

对象

属性

属性值

Form1

Caption

我的第一个VB程序

Label1

Caption

设置属性后的界面如图1－6所示。

图1－6设置属性后的界面图1－7第一个程序

（4）编写程序代码

PrivateSubForm_Click（）

Label1.Caption="床前明月光"

EndSub

（5）运行程序

运行VB程序有三种方法：

①单击工具栏上的“启动”按钮；②从“运行”菜单中选择“启动”菜单项；③按F5键。

例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图1－7所示。

（6）保存程序

单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。

3、将VisualBasic工程编译生成可执行文件

单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。

退出VisualBasic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。

四、实验心得

通过这次实验，我熟悉了VisualBasic6.0集成开发环境。

能够熟练地启动和退出VB，掌握了开发一个简单程序的基本步骤和简单代码的编写。

专业

信息管理与信息系统

班级

130513

姓名

贾丹丹

学号

130513117

实验课程

可视化程序设计

指导教师

姬浩

实验日期

2015年3月22日

同实验者

实验项目

常用基本控件使用

实验设备及器材

硬件：

IBMPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

软件：

操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。

西安工业大学实验报告

一、实验目的

（1）掌握命令按钮、文本框和标签常用属性值的设置方法。

（2）学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。

（3）掌握命令按钮的主要事件的使用。

二、实验内容

（1）利用命令按钮、文本框和标签判断密码是否正确。

（2）建立应用程序，对两个文本框中输入的内容进行交换。

。

三、实验步骤、数据记录及处理

1．实验内容

要求:

在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！

”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！

请重新输入密码！

”。

步骤：

（1）设计界面

在窗体上添加两个标签、一个文本框和两个命令按钮。

初始界面如图2－1所示。

图2－1初始界面图2－2设置属性后的界面

（2）设置属性

设置属性后的界面如图2－2所示。

表2－1属性设置

对象

属性

属性值

Label1

Caption

请输入密码：

Command1

Caption

登陆

Command2

Caption

退出

Label2

Caption

Label2

BorderStyle

1-FixedSingle

Text1

Text

Text1

MaxLength

16

Text1

PasswordChar

*

Form1

Caption

登陆界面

（3）编写程序代码

PrivateSubCommand1_Click（）

IfText1.Text=“goodbaby”Then

Label2.Caption=“欢迎使用本系统！

”

Else

Label2.Caption=“密码错误！

请重新输入密码！

”

EndIf

EndSub

PrivateSubCommand2_Click（）

End

EndSub 

（4）运行程序

①在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！

”。

运行结果如图2－3所示。

图2－3输入的密码正确

②在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！

请重新输入密码！

”。

运行结果如图2－4所示。

图2－4输入的密码错误

2．实验内容

（1）设计界面

在窗体上放置两个Label控件、两个TextBox控件和三个CommandButton控件。

初

界面如图2－5所示。

图2－5初始界面图2—6属性设置后的界面

（2）属性设置

设置属性后的界面如图2－6所示。

表2－2属性设置

对象

属性名称

属性值

Form1

Caption

交换

Label1

Caption

输入第1个数

Label2

Caption

输入第2个数

Text1

Text

空

Text2

Text

空

Command1

Name

CmdChange

Caption

交换

Default

Ture

Command2

Name

CmdClear

Caption

清空

Command3

Name

CmdExit

Caption

退出

（3）编写程序代码

OptionExplicit

PrivateSubCmdChange_Click（）

DimtempAsInteger

temp=Text1.Text

Text1.Text=Text2.Text

Text2.Text=temp

EndSub

PrivateSubCmdExit_Click（）

UnloadMe

EndSub

PrivateSubCMdCLear_Click（）

Text1.Text=””

Text2.Text=””

Text1.SetFocus

EndSub

（4）运行程序

执行结果如图2-7（a）、（b）所示。

单击“清空”按钮并再数入数据，进行交换。

图2-7（a）交换前的界面图2-7（b）单击交换后的界面

四、实验心得

通过本次实验，我掌握命令按钮、文本框和标签常用属性值的设置方法，学会了使用命令按钮、文本框和标签在窗体上建立用户界面的方法并且掌握命令按钮的主要事件的使用。

西安工业大学实验报告

专业

信息管理与信息系统

班级

130513

姓名

贾丹丹

学号

130513117

实验课程

可视化程序设计

指导教师

姬浩

实验日期

2015年3月25日

同实验者

实验项目

VB控制结构

实验设备及器材

硬件：

IBMPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

软件：

操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。

一、实验目的

（1）掌握逻辑表达式的正确书写形式。

（2）掌握单分支与双分支条件语句的用法，熟悉If….Then…..Else语句。

（3）掌握选择结构中多条件，多分支程序的用法，熟悉SelectCase语句。

（4）掌握For语句的使用。

（5）掌握Do语句的使用。

（6）掌握如何控制循环条件，防止死循环或不循环。

二、实验内容

（1）编写程序，利用文本框检查用户密码。

提示：

可以用文本框的PasswordChar属性来隐蔽用户输入的字符。

提示：

设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。

（2）输入一个数字（0-6），用中英文显示星期几。

提示：

用多条件多分支选择语句SelectCase来解决。

（3）利用For循环求S=1+（1+2）+（1+2+3）＋．．．+（1+2+3+．．．+n）的值。

提示：

本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器．也可用一个循环来实现．括号内每累加一个数，就往S中累加一次。

（4）输入一个正整数，利用“当型”循环判断是否素数。

提示：

“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2～n用做除数去除n，若n不能被其中任何一个数整除，则n为素数。

三、实验步骤、数据记录及处理

<一>选择结构

1．实验内容

（1）建立用户界面。

（2）设置对象属性。

表4－1属性设置

对象

属性

属性值

说明

Frame1

Caption

请输入您的密码：

Text1

Text

清空

PasswordChar

*

只显示字符“*”

Label1

Caption

FontName

黑体

字体名称

fontSize

三号

字体大小

（3）编写事件代码。

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then'回车字符的Ascii为13

IfText1.Text="123456"Then

Label1.Caption="欢迎使用本系统！

"

Else

Label1.Caption="对不起，密码错！

"

EndIf

Text1.SelStart=0

Text1.SelLength=Len（Text1.Text）

EndIf

EndSub

（4）运行程序

程序输出界面如图4－1，图4－2所示。

图4－1验证密码正确图4－2验证密码不正确 

2．实验内容

（1）建立用户界面。

参考图4－3所示。

图4－3界面设计

（2）设置对象属性。

表4－2属性设置

对象

属性

属性值

说明

Form1

Caption

星期

Label1

Caption

输入一个数字（0-6）

Label2

Caption

空

BorderStyle

1-FixedSingle

边框样式

Command1

Caption

星期

Default

True

缺省命令按钮

Text1

Text

“”

空

（3）编写事件代码。

PrivateSubCommand1_Click（）

DimnAsInteger,mAsString

n=Val（Text1.Text）

SelectCasen

Case1

m="星期一（Monday）"

Case2

m="星期二（Tuesday）"

Case3

m="星期三（Wednesday）"

Case4

m="星期四（Thursday）"

Case5

m="星期五（Friday）"

Case6

m="星期六（Saturday）"

Case0

m="星期日（Sunday）"

CaseElse

m="重新输入"

EndSelect

Label2.Caption=m

EndSub

（4）运行结果

程序输出界面如图4－4所示。

图4－4程序运行结果

<二>循环结构

1．实验内容

（1）建立用户界面。

（2）设置对象属性。

参考图5－1所示。

图5－1属性设置图5－2程序运行结果

（3）编写事件代码。

PrivateSubCommand1_Click（）

DimnAsInteger,iAsInteger,jAsInteger,sAsLong

n=Val（Text1.Text）

j=0:

s=0

Fori=1Ton

j=j+i

s=s+j

Nexti

Label2.Caption="和数S="&Str（s）

Text1.SelLength=Len（Text1.Text）

EndSub

（4）运行程序

程序输出界面如图5－2所示。

2．实验内容

（1）建立用户界面。

参考图5－3所示。

图5－3界面设计

（2）设置对象属性。

（3）编写事件代码。

PrivateSubText1_GotFocus（）

Text1.SelStart=0

Text1.SelLength=Len（Text1.Text）

EndSub

PrivateSubCommand1_Click（）

DimnAsLong

SelectCaseVal（Text1.Text）

CaseIs<3

MsgBox"请输入一个大于2的整数",vbInformation+vbOKOnly,"注意"

CaseIs>2147483647

MsgBox"该数太大",vbInformation+vbOKOnly,"注意"

CaseElse

n=Val（Text1.Text）

s=0

i=2

DoWhilei<=Sqr（n）Ands=0

IfnModi=0Then

s=1

Else:

i=i+1

EndIf

Loop

Ifs=0Then

a="是一个素数"

Else

a="不是一个素数"

EndIf

Label1.Caption=Str（n）&a

EndSelect

Text1.SetFocus

EndSub

（4）运行程序

程序运行结果如图5－4所示。

图5－4程序运行结果

四、实验心得

通过本次实验，我掌握了逻辑表达式的正确书写形式，掌握了单分支与双分支条件语句的用法，熟悉了If….Then…..Else语句，掌握了选择结构中多条件，多分支程序的用法，熟悉SelectCase语句，掌握了For语句的使用，Do语句的使用以及如何控制循环条件，防止死循环或不循环。

西安工业大学实验报告

专业

信息管理与信息系统

班级

130513

姓名

贾丹丹

学号

130513117

实验课程

可视化程序设计

指导教师

姬浩

实验日期

2015年3月25日

同实验者

实验项目

数据的输入、输出

实验设备及器材

硬件：

IBMPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

软件：

操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。

一、实验目的

（1）掌握表达式的构成和如何求表达式的值。

（2）掌握赋值语句的使用。

（3）掌握InputBox函数的使用。

（4）掌握MsgBox语句的使用。

二、实验内容

（1）利用InputBox函数和MsgBox语句求圆的周长。

（2）利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。

三、实验步骤、数据记录及处理

1．实验内容

（1）设计界面

在窗体上添加一个命令按钮。

初始界面如图3－1所示。

图3－1初始界面图3－2设置属性后的界面

（2）设置属性

表3－1属性设置

对象

属性

属性值

Command1

Caption

计算圆的周长

Form1

Caption

InputBox和MsgBox举例

设置属性后的界面如图3－2所示。

（3）编写程序代码

PrivateSubCommand1_Click（）

Constpi=3.14159

DimrAsSingle,sAsString,s2AsString

DimzhouchangAsSingle

s=InputBox（"请输入半径","输入半径",1）

r=Val（s）

zhouchang=2*pi*r

s2="半径="+s+",圆的周长="+Str（zhouchang）

MsgBoxs2,64,"确认窗口"

EndSub 

（4）运行程序

单击工具栏上的“启动”按钮，进入运行模式。

单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图3－3所示。

（a）

（b）（c）

图3－3计算圆的周长

2．实验内容

（1）设计界面

初始界面如图3－4所示。

（2）设置属性

表3－1属性设置

对象

属性

属性值

Form1

Caption

求三角形的面积

图3-4初始界面

（3）编写程序代码

PrivateSubForm_click（）

DimaAsSingle,bAsSingle,cAsSingle

DimsAsSingle,pAsSingle

a=InputBox（"请输入三角形的边a：

","输入"）

b=InputBox（"请输入三角形的边b：

","输入"）

c=InputBox（"请输入三角形的边c：

","输入"）

If（a+b<=cOra+c<=bOrb+c<=a）Or（Abs（a-b）>=cOrAbs（a-c）>=bOrAbs（b-c）>=a）Then

MsgBox（"你输入的数据有误！

"）

Else

p=（a+b+c）/2

s=Sqr（p*（p-a）*（p-b）*（p-c））

Print"三角形的面积为：

";s

EndIf

EndSub

（4）运行程序

如图3—5（a）（b）（c）（d）所示

（a）（b）

（c）（d）

图3－5计算三角形的面积

四、实验心得

通过这次实验，我掌握了表达式的构成和如何求表达式的值，掌握了赋值语句的使用，掌握了InputBox函数的使用和MsgBox语句的使用。

西安工业大学实验报告

专业

信息管理与信息系统

班级

130513

姓名

贾丹丹

学号

130513117

实验课程

可视化程序设计

指导教师

姬浩

实验日期

2015年4月12日

同实验者

实验项目

VB数组应用

实验设备及器材

硬件：

IBMPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

软件：

操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。

一、实验目的