循环结构实验报告.docVIP

《VB语言程序设计》实验报告 实验名称：循环结构程序设计实验 姓 名：____赵婷婷_____________ 学 号：_____3130541027____________ 专业班号：_____营销131____________ 教师签字：_________________ 一、实验目的及要求 1. 掌握for语句的使用； 2. 掌握DO语句的各种形式的使用； 3. 掌握循环条件设置； 4. 实验独立完成，提交实验报告。 二、实验设备及环境 1．PC机一台； 2．Visual Basic 6.0企业版。 三、实验内容 1.设计程序，求出所有水仙花数。（如果一个三位整数等于它的各位数字的立方和，则此数称为水仙花数，如153=1^3+5^3+3^3） 2.在文本框中指定一个初始值，从该值开始，找出100个不能被7整除的自然数，并显示在列表框中。 3.在窗体上建立一个列表框List1和一个“显示”命令按钮COM1。列表框中已有5个列表项“表项1”——“表项5”。程序运行后，可通过多次单击选中多了列表项。单击“显示”按钮，在窗体上输出左右选中的列表项。 四、实验步骤 题1： （1）用户界面设计 （2）设置对象属性 对象属性属性值说明FormCaptionForm1关键程序代码 Private Sub Form_Load() Show Dim a As Integer, b As Integer, c As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If a b c = a ^ 3 + b ^ 3 + c ^ 3 Then Print a b c End If Next c Next b Next a End Sub （4）运行结果 题2： 用户界面设计 （2）设置对象属性 对象属性属性值说明Text1textList1list（list)FormcaptionForm1关键程序代码 Private Sub Form_Click() Dim a As String a = Text1.Text Do While List1.ListCount 100 If a Mod 7 0 Then List1.AddItem a End If a = a + 1 Loop End Sub （4）运行结果 题3： （1）用户界面设计 （2）设置对象属性 对象属性属性值说明FormcaptionForm1Command1captionCommand1List1list(list)（3）关键程序代码 Private Sub Command1_Click() For i = 0 To 4 If List1.Selected(i) = True Then Print List1.List(i) End If Next i End Sub 运行结果 五、实验总结 对于第一题来说，主要是循环结构和选择结构的穿插运用。第一个问题：For语句用next结尾，刚开始是nexta,b,c.但是实际上应该是nextc,b,a。第二个问题:先是end if，后再nexta,b,c。因为先有for语句。第三个问题：必须要有show 才能显示出来。 对于第二题来说，do while语句和if语句的穿插运用。也是用时最长的一道题。基础知识不牢固，问题1：do while后面跟的是循环条件。而不是执行语句的条件。主要就在循环条件那卡住了。问题2：刚开始应该分析清楚条件，思路理清。 对于第三题。简单的list属性。记清楚属性值。For语句和if语句综合运用。和第一题差不多。不过对于多选问题还是有点模糊。 这次做题时间长的很。但仔细看过去，确实是基础不扎实。功夫没有下够。正是因为这次做题的小崩溃激发了我学好vb的决心。只是时间问题。