VB实验一 实验报告.docx

VB实验一 实验报告.docx

《VB实验一 实验报告.docx》由会员分享，可在线阅读，更多相关《VB实验一 实验报告.docx（11页珍藏版）》请在冰豆网上搜索。

VB实验一实验报告

实验报告一

课程

VB程序设计

实验项目

VisualBasic环境

顺序选择程序设计（4学时）

成绩

专业班级

姓名

学号

实验日期

实验目的

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

（2）掌握VisualBasic程序的开发过程，能够运行一个完整的VisualBasic程序

（3）掌握选择控制结构（If、Selectcase）语句实现程序分支

（4）掌握控制结构相关控件（单选按钮、复选框）

（5）能综合运用选择及循环控制结构解决较复杂的问题

实验内容

一、VB环境和顺序结构

【实验1】设计一个简单VB程序（10分）

它由一个窗体、一个文本框和3个命令按钮组成。

窗体的标题为"VisualBasic程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用VisualBasic6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。

实验结果：

【实验1代码】

PrivateSubCommand1_Click（）

Text1.Text="VisualBasic的程序设计示例"

Form1.Print"你好"

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""'清除文本框中的内容

Form1.Cls'清除窗体上打印的内容

EndSub

PrivateSubCommand3_Click（）

End

EndSub

【实验1典型结果】

【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。

计算公式为：

S=（a+b+c）/2，面积=sqr（s*（s-a）*（s-b）*（s-c））（20分）

程序界面如下所示

实验结果：

【实验2代码】

PrivateSubCommand1_Click（）

DimaAsInteger,b%,c%

DimsAsInteger

a=Text1.Text:

b=Text2.Text:

c=Text3.Text

s=（a+b+c）/2

Text4.Text=Sqr（s*（s-a）*（s-b）*（s-c））

EndSub

PrivateSubCommand2_Click（）

End

EndSub

【实验2典型结果】

【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分）

实验结果：

【方法1代码】

PrivateSubForm_Click（）

Dima,b,c,d,e

a=Int（Rnd*900+100）

c=Right（a,1）&Mid$（a,2,1）&Left（a,1）

Printa;Tab（20）;c

EndSub

PrivateSubForm_Load（）

Print"随机数",Tab（20）;"逆序数"

EndSub

【方法1典型结果】

【方法2代码】

PrivateSubForm_Click（）

Dima,c,b,d,e

a=Int（Rnd*900+100）

b=a\100:

c=（aMod100）\10:

d=aMod10

e=d*100+c*10+b

Printa;Tab（20）;e

EndSub

PrivateSubForm_Load（）

Print"随机数",Tab（20）;"逆序数"

EndSub

【方法2典型结果】

二、选择结构

【实验3】输入一年份，判断它是否为闰年，并显示有关信息。

判断闰年的条件为：

1.能被4整除，但不能被100整除，2.或者能被400整除（注意各个条件表达式的括号）（20分）

实验结果：

【实验3代码】

PrivateSubCommand1_Click（）

DimyearAsInteger

year=InputBox（"请输入年份"）

IfyearMod4=0AndyearMod100<>0OryearMod400=0Then

MsgBoxyear&"是闰年"

Else

MsgBoxyear&"不是闰年"

EndIf

EndSub

【实验3典型结果】

【实验4】任意输入三个数，求三个数中最大数和最小数（15分）

实验结果：

【实验4代码】

PrivateSubCommand1_Click（）

Dima%

Dimb%

Dimc%

a=Text1.Text:

b=Text2.Text:

c=Text3.Text

Ifa>bThen

Text4.Text=a:

Text5.Text=b

Else

Text4.Text=b:

Text5.Text=a

EndIf

Ifc>aThen

Text4.Text=c

Else

Text4.Text=Text4.Text

EndIf

Ifc

Text5.Text=c

Else

Text5.Text=Text5.Text

EndIf

EndSub

【实验4典型结果】

【实验5】使用Inputbox任意输入三个边长，判断是否能构成三角形，若能构成三角形，则判断该三角形是等边、等腰还是一般三角形（15分）

实验结果：

【实验5代码】PrivateSubForm_click（）

Dima%,b%,c%

a=Val（InputBox（x））:

b=Val（InputBox（x））:

c=Val（InputBox（x））

Ifa+b>cAnda+c>bAndb+c>aThen

Ifa=bAndb=cThen

Print"是等边三角形"

ElseIfa=bOrb=cOra=cThen

Print"是等腰三角形"

Else

Print"是一般三角形"

EndIf

Else

Print"不是三角形"

EndIf

EndSub

【实验5典型结果】

【选做2】求解分段函数，要求输入x的值，输出计算得到的y值（5分）

实验结果：

【选做2代码】

PrivateSubForm_Click（）

Text1.Text=Val（InputBox（"请输入一个数"））

x=Text1.Text

SelectCasex

CaseIs>=2000

Text2.Text=3*x

CaseIs<500

Text2.Text=x

CaseIs>=500,Is<1000

Text2.Text=1.5*x

CaseIs>=1000,Is<2000

Text2.Text=2*x

EndSelect

EndSub

【选做2典型结果】

实验小结

1.遇到的问题：

2.对课程的建议：