《VB程序设计》实验单元一.docx

《VB程序设计》实验单元一.docx

《《VB程序设计》实验单元一.docx》由会员分享，可在线阅读，更多相关《《VB程序设计》实验单元一.docx（20页珍藏版）》请在冰点文库上搜索。

《VB程序设计》实验单元一

《VB程序设计》实验单元一

实验报告

专业班级：

姓名学号指导教师：

王自强完成时间：

2015年3月21日星期六

实验一VB环境和可视化编程基础

一、实验目的

1了解VisualBasic的安装

2掌握启动与退出VisualBasic

3掌握建立、编辑和运行一个简单应用程序的全过程

4掌握基本控件的使用

二、实验环境

VB6.0

三、实验内容

1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

提示：

对窗口编写两个事件：

Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。

对文本框计数：

Text1=Val（text1）+1。

四、实验步骤

1、绘制Label1的caption输入“你单击窗体的次数：

”

2、绘制text。

编程为：

PrivateSubForm_Click（）

Text1.Text=Val（Text1.Text）+1

EndSub

PrivateSubForm_Load（）

Text1.Text=""

EndSub

3、text的fontsize设置为“一号”

五、实验结果

《VB程序设计》实验单元一

实验报告

专业班级：

网媒1403班姓名凌紫怡学号201424050320指导教师：

王自强完成时间：

2015年3月21日星期六

实验一VB环境和可视化编程基础

二、实验目的

1了解VisualBasic的安装

2掌握启动与退出VisualBasic

3掌握建立、编辑和运行一个简单应用程序的全过程

4掌握基本控件的使用

二、实验环境

VB6.0

三、实验内容

2、命令按钮、字号、内容和格式的复制练习。

按钮1：

使得Text1中的文本按要求改变。

按钮2：

将Text1中选定的文本复制到Text2.

控件名

属性

Form1

Caption=”实验2”

Label1

复制文本

Label2

输入文本

Text1

Text=“VB功能强大，但要下功夫学习才能学好。

”

Text2

Text=””

Command1

Caption=”隶书25磅”

Command2

Caption=”复制=>”

四、实验步骤

1、label1的caption输入“复制效果”；label2的caption输入“输入文本”。

2、绘制两个text。

PrivateSubText1_Click（）

Text1.Text="VB功能强大，但要下功夫学习才能学好。

"

EndSub

PrivateSubText2_click（）

Text2.Text=""

EndSub

3、以及两个Command。

Command1的caption输入“隶书25磅”；Command2的caption输入“复制=>”。

PrivateSubCommand1_Click（）

Text1.FontName="隶书"

Text1.FontSize="25"

EndSub

PrivateSubCommand2_Click（）

Text2.Text=Text1.SelText

Text2.FontName=Text1.FontName

Text2.FontSize=Text1.FontSize

EndSub

五、实验结果

实验二VB语言基础和顺序结构

一、实验目的

1、掌握正确书写表达式、赋值语句的规则

2、掌握常用函数的使用

3、掌握InputBox与MsgBox的使用

4、掌握Print和Format的使用

二、实验环境

VB6.0

三、实验内容

1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。

四、实验步骤

1、绘制一个label，caption为r。

2、绘制四个text，编写程序代码为：

PrivateSubText1_Change（）

Text2.Text=""

Text3.Text=""

Text4.Text=""

EndSub

3、绘制三个command，command1的caption为“圆的面积”；command2的caption为“圆的周长”；command3的caption为“圆的体积”。

编写程序代码为：

PrivateSubCommand1_Click（）

a=3.14

Text2.Text=a*Text1.Text*Text1.Text

EndSub

PrivateSubCommand2_Click（）

a=3.14

Text3.Text=2*a*Text1.Text

EndSub

PrivateSubCommand3_Click（）

a=3.14

Text4.Text=4/3*a*Text1.Text*Text1.Text*Text1.Text

EndSub

五、实验结果

实验二VB语言基础和顺序结构

一、实验目的

1、掌握正确书写表达式、赋值语句的规则

2、掌握常用函数的使用

3、掌握InputBox与MsgBox的使用

4、掌握Print和Format的使用

二、实验环境

VB6.0

三、实验内容

2、随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。

例如735,输出537.

提示：

利用“Mod”和“\”将一个3位数分离出3个1位数，然后连接成一个逆序的3位数。

四、实验步骤

1、绘制一个text，并编写程序代码：

PrivateSubText1_Change（）

Label1=""

EndSub

2、绘制一个label，label的borderstyle属性为1-fixedsingle

3、绘制两个command，command1的caption命名为“产生”；command2的caption命名为“逆序”

并且编写程序为：

PrivateSubCommand1_Click（）

Text1.Text=Int（Rnd*900+100）

EndSub

PrivateSubCommand2_Click（）

Dimx%,x1%,x2%,x3%

x=Val（Text1.Text）

x1=xMod10

x2=（xMod100）\10

x3=x\100

Label1=x1*100+x2*10+x3

EndSub

五、实验结果

实验三选择结构

一、实验目的

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

2、掌握单分支与双分支条件语句的使用。

3、掌握多分支条件语句的使用。

4、掌握情况语句的使用及其与多分支条件语句之间的区别。

二、实验环境

VB6.0

三、实验内容

1、输入3个整数，输出最大的数。

四、实验步骤

1、绘制一个label，它的caption是“输入三个整数”

2、绘制四个text，并且编写程序代码为

PrivateSubForm_Load（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

EndSub

3、绘制两个command，command1的caption为“输出最大值”并且编写程序代码为

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

y=Val（Text2.Text）

z=Val（Text3.Text）

Ifx>yAndx>zThen

Text4.Text=x

ElseIfy>zThen

Text4.Text=y

Else

Text4.Text=z

EndIf

EndSub

Command2的caption为“清空”，并且编写程序为

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

EndSub

五、实验结果

三、实验内容

2、输出150-200的能被7但不能被3整除的数。

四、实验步骤

1、绘制一个command，它的caption为“输出150-200的能被7但不能被3整除的数”

2、command1的程序代码为

PrivateSubCommand1_Click（）

DimaAsInteger

Fora=150To200

IfaMod7=0AndaMod3>0ThenPrinta

Nexta

EndSub

五、实验结果

三、实验内容

3、输入一个三位数，判断是否为水仙数。

水仙数的特点：

个位数、十位数和百位数的立方和等于该数自身的数。

四、实验步骤

1、绘制一个command，它的caption为“判断是否为‘水仙数’”

2、command1的程序代码为

PrivateSubCommand1_Click（）

DimaAsSingle

a=InputBox（"输入一个三位数，判断其是否为水仙数","输入三位数"）

Dimb,c,d

b=aMod10

c=（aMod100）\10

d=a\100

Ifb^3+c^3+d^3=aThen

Print"是"

Else

Print"否"

EndIf

EndSub

五、实验结果

实验四循环结构

一、实验目的

1、掌握For语句的使用。

2、掌握Do语句的各种形式的使用。

3、掌握如何控制循环条件，防止死循环或不循环。

二、实验环境

VB6.0

三、实验内容

1.一个富翁试图与陌生人做一笔换钱生意，换钱规则为：

陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分……，富翁每天给陌生人的前是前一天的两倍，直到满一个月。

分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？

四、实验步骤

1、绘制一个command，它的caption为“计算”，程序代码为

PrivateSubCommand1_Click（）

a=100000

s1=a*30

Print"陌生人给富人的钱是：

";s1

n=0.01

s2=0

Fork=1To30

s2=s2+n

n=2*n

Nextk

Print"富人给陌生人的钱是：

";s2

EndSub

五、实验结果

实验四循环结构

一、实验目的

4、掌握For语句的使用。

5、掌握Do语句的各种形式的使用。

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

二、实验环境

VB6.0

三、实验内容

2.用计算机安排考试日程。

期末某专业在周一至周六的六天要考a,b,c三门课，考试顺序为先考a,然后考b,最后考c,规定一天只能考一门。

且c课只能安排在周五或周六考。

编写程序安排考试日程，要求列出满足条件的所有方案。

四、实验步骤

1、绘制一个command，它的caption设为“安排考试日程”，并且程序编写为：

Fori=1To6

Forj=1To6

Forl=5To6

Ifi

Nextl

Nextj

Nexti

五、实验结果