VB实验报告4.docx

VB实验报告4.docx

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

VB实验报告4

台州学院

《VB程序设计》实验报告

实验四：

循环结构程序设计

班级：

11物理

学号：

1130010009

姓名：

廖建旭

实验日期：

2012.03.30

一、实验目的和要求

1．掌握For语句的使用；

2．掌握Do{While|Until}…Loop与Do…Loop{While|Until}两种形式的使用；

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

4．熟练掌握循环条件设置及循环的控制方法。

二、实验主要仪器和设备

计算机一台，WindowsXP操作系统，VisualBasic环境。

三、实验内容

实验4.1编写过程Commandl_Click，显示对话框输入n（n>0），循环n次，每次随机产生一个两位数，求出其中的偶数之和，并在标签框Label1上显示。

实验4.2编写过程Commandl_Click，用InputBox函数输入10个学生的成绩，统计后依次用标签控件Labell～Labe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。

实验4.3编制事件程序Command1_Click，执行该过程时输入n，并计算下列表达式的值，然后将计算结果在文本框控件Text1中显示。

实验4.4打印出所有的水仙花数，所谓水仙花数是指一个三位数，其各位数字立方和等于该数。

例如，153是一水仙花数，因为

。

实验4.5用

近似公式求

值，当

时不再累加。

实验4.6（选做）一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。

现给定一个两位的正整数，请找到另一个两位的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23。

四、实验原始纪录

实验4.1

程序的界面设计。

程序代码。

PrivateSubCommand1_Click（）

Dima,b,iAsInteger

Randomize

n=InputBox（"请输入n:

"）

Fori=1Ton

a=Int（Rnd*90）+10

IfaMod2=0Then

Printa:

b=b+a

EndIf

Nexti

Label1.Caption=b

EndSub

实验4.2

程序的界面设计。

程序代码。

PrivateSubCommand1_Click（）

Dima,b,c,n,iAsInteger

a=0:

b=0:

c=0

Fori=1To10

n=InputBox（"请输入成绩"）

Ifn>100Orn<0Then

Print"第"&i&"次输入有误"

Else

Ifn>=85Then

a=a+1

Else

Ifn>=60Then

b=b+1

Else

c=c+1

EndIf

EndIf

EndIf

Nexti

Label1.Caption="优秀"&a&"人"

Label2.Caption="通过"&b&"人"

Label3.Caption="未通过"&c&"人"

EndSub

实验4.3

程序的界面设计。

程序代码。

PrivateSubCommand1_Click（）

Dima,b,i,nAsInteger

DimsAsDouble

s=1

n=InputBox（"请输入n:

"）

Ifn=1Then

Text1.Text=1

Else

Fori=2Ton

a=i:

b=（i+1）*（i+2）

s=s+a/b

Nexti

EndIf

Text1.Text=s

EndSub

实验4.4

程序的界面设计。

程序代码。

PrivateSubCommand1_Click（）

Dima,b,c,i,mAsInteger

m=o

Fori=100To999

a=Left（i,1）

b=Mid（i,2,1）

c=Right（i,1）

If（a^3）+（b^3）+（c^3）=iThen

Printi:

m=m+1

EndIf

Nexti

Print"哈哈水仙花就只有这么多，，，几个呢？

？

答：

"&m;"个"

EndSub

实验4.5

程序的界面设计。

程序代码。

PrivateSubCommand1_Click（）

DimiAsInteger,mAsSingle

Do

i=i+1

m=m+1/i^2

LoopUntil1/i^2<10^-5

PrintSqr（6*m）

EndSub

实验4.6（选做）

程序的界面设计。

程序代码。

PrivateSubCommand1_Click（）

Dima,b,m,n,x,y,d,f,zAsInteger

Forb=11To99

d=Left（b,1）

f=Right（b,1）

n=10*f+d

Fora=11To99

x=Left（a,1）

y=Right（a,1）

m=10*y+x

Ifa+b=m+nAndaMod10<>0And_

bMod10<>0AndmMod10<>0And_

nMod10<>0Then

Printb;a;n;m

EndIf

Nexta

Nextb

EndSub

五、实验结果及分析

实验4.1运行结果。

实验4.2运行结果。

实验4.3运行结果。

实验4.4运行结果。

实验4.5运行结果。

实验4.6运行结果。

（选做）

六、实验总结与思考（主要写一些在实验过程中，遇到的问题、所犯的错误，以及是如何发现纠正的。

大约100至200字左右。

）

感觉vb学到现在有了质的变化了，因为有了循环语句之后难得的题目就必定接踵而至。

不过没有关系，毕竟马上就要二级考试了，就当做是考前练兵也好的。

不过，复杂的程序也有有意思的成分，比如把跟同学开玩笑什么的都加到程序里，就会让略显无聊的实验变得有趣不少。