VB实验一 实验报告Word文件下载.docx

VB实验一 实验报告Word文件下载.docx

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

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

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

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

实验内容

一、VB环境和顺序结构

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

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

窗体的标题为"

VisualBasic程序设计示例"

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

实验结果：

【实验1代码】

PrivateSubCommand1_Click（）

Text1.Text="

VisualBasic的程序设计示例"

Form1.Print"

你好"

EndSub

PrivateSubCommand2_Click（）

"

'

清除文本框中的内容

Form1.Cls'

清除窗体上打印的内容

PrivateSubCommand3_Click（）

End

【实验1典型结果】

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

计算公式为：

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

程序界面如下所示

【实验2代码】

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））

【实验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

PrivateSubForm_Load（）

Print"

随机数"

Tab（20）;

"

逆序数"

【方法1典型结果】

【方法2代码】

Dima,c,b,d,e

b=a\100:

c=（aMod100）\10:

d=aMod10

e=d*100+c*10+b

e

【方法2典型结果】

二、选择结构

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

判断闰年的条件为：

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

【实验3代码】

DimyearAsInteger

year=InputBox（"

请输入年份"

）

IfyearMod4=0AndyearMod100<

>

0OryearMod400=0Then

MsgBoxyear&

是闰年"

Else

不是闰年"

EndIf

【实验3典型结果】

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

【实验4代码】

Dima%

Dimb%

Dimc%

Ifa>

bThen

Text4.Text=a:

Text5.Text=b

Text4.Text=b:

Text5.Text=a

Ifc>

aThen

Text4.Text=c

Text4.Text=Text4.Text

Ifc<

Text5.Text=c

Text5.Text=Text5.Text

【实验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>

Ifa=bAndb=cThen

是等边三角形"

ElseIfa=bOrb=cOra=cThen

是等腰三角形"

是一般三角形"

不是三角形"

【实验5典型结果】

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

【选做2代码】

Text1.Text=Val（InputBox（"

请输入一个数"

））

x=Text1.Text

SelectCasex

CaseIs>

=2000

Text2.Text=3*x

CaseIs<

500

Text2.Text=x

=500,Is<

1000

Text2.Text=1.5*x

=1000,Is<

2000

Text2.Text=2*x

EndSelect

【选做2典型结果】

实验小结

1.遇到的问题：

2.对课程的建议：