循环结构实验报告.pdfVIP

《VB语言程序设计》实验报告

实验名称：循环结构程序设计实验

姓名：____赵婷婷_____________

学号：_____3130541027____________

专业班号：_____营销131____________

教师签字：_________________

一、实验目的及要求

1.掌握for语句的使用；

2.掌握DO语句的各种形式的使用；

3.掌握循环条件设置；

4.实验独立完成，提交实验报告。

二、实验设备及环境

1．PC机一台；

2．VisualBasic6.0企业版。

三、实验内容

1.设计程序，求出所有水仙花数。（如果一个三位整数等于它的各位数字的

立方和，则此数称为水仙花数，如153=1^3+5^3+3^3）

2.在文本框中指定一个初始值，从该值开始，找出100个不能被7整除的自

然数，并显示在列表框中。

3.在窗体上建立一个列表框List1和一个“显示”命令按钮COM1。列表框

中已有5个列表项“表项1”——“表项5”。程序运行后，可通过多次单击选中

多了列表项。单击“显示”按钮，在窗体上输出左右选中的列表项。

四、实验步骤

题1：

（1）用户界面设计

（2）设置对象属性

对象属性属性值说明

FormCaptionForm1

（3）关键程序代码

PrivateSubForm_Load()

Show

DimaAsInteger,bAsInteger,cAsInteger

Fora=1To9

Forb=0To9

Forc=0To9

Ifabc=a^3+b^3+c^3Then

Printabc

EndIf

Nextc

Nextb

Nexta

EndSub

（4）运行结果

题2：

（1）用户界面设计

（2）设置对象属性

对象属性属性值说明

Text1text

List1list（list)

FormcaptionForm1

（3）关键程序代码

PrivateSubForm_Click()

DimaAsString

a=Text1.Text

DoWhileList1.ListCount100

IfaMod70Then

List1.AddItema

EndIf

a=a+1

Loop

EndSub

（4）运行结果

题3：

（1）用户界面设计

（2）设置对象属性

对象属性属性值说明

FormcaptionForm1

Command1captionCommand1

List1list(list)

（3）关键程序代码

PrivateSubCommand1_Click()

Fori=0To4

IfList1.Selected(i)=TrueThen

PrintList1.List(i)

EndIf

Nexti

EndSub

（4）运行结果

五、实验总结

对于第一题来说，主要是循环结构和选择结构的穿插运用。第一个问题：For

语句用next结尾，刚开始是nexta,b,c.但是实际上应该是nextc,b,a