《VB语言程序设计》实验报告
实验名称：循环结构程序设计实验
姓名：____赵婷婷_____________学号：_____3130541027____________专业班号：_____营销131____________教师签字：_________________
f一、实验目的及要求1掌握for语句的使用；2掌握DO语句的各种形式的使用；3掌握循环条件设置；4实验独立完成，提交实验报告。二、实验设备及环境1．PC机一台；2．VisualBasic60企业版。三、实验内容
1设计程序，求出所有水仙花数。（如果一个三位整数等于它的各位数字的立方和，则此数称为水仙花数，如153135333）
2在文本框中指定一个初始值，从该值开始，找出100个不能被7整除的自然数，并显示在列表框中。
3在窗体上建立一个列表框List1和一个“显示”命令按钮COM1。列表框中已有5个列表项“表项1”“表项5”。程序运行后，可通过多次单击选中多了列表项。单击“显示”按钮，在窗体上输出左右选中的列表项。四、实验步骤
题1：（1）用户界面设计
f（2）设置对象属性
对象
属性
Form
Captio
Form1
（3）关键程序代码
PrivateSubForm_LoadShowDimaAsI
tegerbAsI
tegercAsI
tegerFora1To9Forb0To9
Forc0To9Ifabca3b3c3The
Pri
tabcE
dIfNextcNextb
NextaE
dSub
属性值
（4）运行结果
说明
题2：（1）用户界面设计
f（2）设置对象属性
对象
属性
Text1
text
List1
list
（list
Form
captio
Form1
（3）关键程序代码
PrivateSubForm_Click
DimaAsStri
g
aText1Text
DoWhileList1ListCou
t100
IfaMod70The

List1AddItema
E
dIf
aa1
Loop
E
dSub
属性值
说明
f（4）运行结果
题3：（1）用户界面设计
f（2）设置对象属性
对象
属性
属性值
Form
captio
Form1
Comma
d1captio
Comma
d1
List1
list
list
（3）关键程序代码
PrivateSubComma
d1_ClickFori0To4IfList1SelectediTrueThe
Pri
tList1ListiE
dIfNextiE
dSub
（4）运行结果
说明
五、实验总结
f对于第一题来说，主要是循环结构和选择结构的穿插运用。第一个问题：For语句用
ext结尾，刚开始是
extabc但是实际上应该是
extcba。第二个问题先是e
dif，后再
extabc。因为先有for语句。第三个问题：必须要有show才能显示出来。
对于第二题来说，dowhile语句和if语句的穿插运用。也是用时最长的一道题。基础知识不牢固，问题1：dowhile后面跟的是循环条件。而不是执行语句的条件。主要就在循环条件那卡住了。问题2：刚开始应该分析清楚条件，思路理清。
对于第三题。简单的list属性。记清楚属性值。For语句和if语句综合运用。和第一题差不多。不r