2024年vb实验四 实验报告 - .doc

实验报告四

課程

VB程序设计

试验项目

VB过程与函数设计(6課時)

成绩

专业班级

姓名

学号

试验曰期

试验目的

（1）掌握Function过程和Sub过程的定义与调用

（2）理解参数按址传递和按值传递的本质

（3）理解变量和过程的作用域

（4）能纯熟运用Function过程和Sub过程处理实际问題、简化程序

试验内容

【试验1】编写Sub子程序实現计算n！。程序界面如下图所示。（5分）

掌握Sub过程的定义及使用

试验成果：

【试验1代码】

DimnAsInteger,sAsLong

PrivateSubCommand1_Click()

n=Val(Text1.Text)

Callf(s,n)

Text2.Text=s

EndSub

Subf(mAsLong,nAsInteger)

DimiAsInteger

m=1

Fori=2Ton

m=m*i

Nexti

EndSub

PrivateSubCommand3_Click()

End

EndSub

【试验1经典成果】

【试验2】编写Function函数过程实現计算n！。程序界面如下图所示。（5分）

掌握Function过程的定义及使用

试验成果：

【试验2代码】

DimnAsInteger,sAsLong

PrivateSubCommand1_Click()

n=Val(Text1.Text)

s=f(n)

Text2.Text=s

EndSub

Functionf(nAsInteger)

DimiAsInteger

m=1

Fori=2Ton

m=m*i

Nexti

f=m

EndFunction

PrivateSubCommand2_Click()

End

EndSub

【试验2经典成果】

【试验3】分别编写按地址传递互换、按值传递互换两个数的过程子程序代码swap1（）和swap2（）。程序界面设计如下图所示。（10分）

掌握Sub过程参数传递措施

试验成果：

【试验3代码】

SubSwap1(x%,y%)

t=x:x=y:y=t

EndSub

SubSwap2(ByValx%,ByValy%)

t=x:x=y:y=t

EndSub

PrivateSubCommand1_Click()

Dima%,b%

a=10:b=20

Print按地址互换前的各值為:;a=;a;b=;b

Swap1a,b传址

Print按地址互换后的各值為:;a=;a;b=;b

EndSub

PrivateSubCommand2_Click()

Dima%,b%

a=10:b=20

Print按值互换前的各值為:;a=;a;b=;b

Swap2a,b传值

Print按值互换后的各值為:;a=;a;b=;b

EndSub

【试验3经典成果】

【试验4】中国好声音歌手大赛共n名选手参与决赛，m位评委参与评分，评分原则：去掉两个最高分和两个最低分后来取平均分。编写程序实現如下规定：（10分）

①每位选手演唱完毕，当场显示参赛选手的编号及各位评委的评分和最终得分。

②决赛結束后，显示各参赛选手的名次、编号和成绩。

③用子程序sub过程实現。

程序界面设计如下图所示。

掌握Sub过程中数组作為参数传递的措施

试验成果：

【试验4代码】

OptionBase1

Dimp()AsSingle,x()AsString,a()AsSingle

PrivateSubCommand1_Click()

DimbAsSingle,mAsInteger,spAsString

n=Val(InputBox(输入参与比赛歌手人数:))

m=Val(InputBox(输入评委人数:))

ReDimp(m),x(n),a(n)

Fori=1Ton

x(i)=Val(InputBox(输入选手编号:))

sp=

Forj=1Tom

p(j)=Val(InputBox(输入选手得分:))

sp=spp(j)

Nextj

Label2.Caption=x(i)

Label4.Captio