vb循环结构试验报告

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

 

 

 

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

 

 

 

 

姓    名：     xxxx       

学    号：   3090511075    

同 组 者：_________________

专业班号：     管093     

实验日期：_________________

教师签字：_________________

 

 

 

 

 

 

 

 

 

 

 

 

 

 

一、实验目的及要求

通过本实验使学生：要求学生掌握For…Next语句的使用方法；掌握前测型和后测型Do…Loop语句的使用方法；掌握循环嵌套的规则和使用方法；掌握列表框与组合框的使用方法。

二、实验设备及环境

Windowsp vb6.0

三、实验内容

1.    设s=1*2*3*…*n,求s不大于400000时最大的n。

2.    某4位数ABCD能够被78整除，它的前两位数字相同，后两位数字也相同，求这个数。

3.    指定一个初始值，从该数值开始，找出100个不能被7整除的自然数。要求通过文本框来接受这个初始值，找出的自然数显示在列表框中。

四、实验步骤

1.    题1

  （1）用户界面设计

 

（2）关键程序代码（指明针对哪一对象的什么事件，可用截图）

       Private Sub Form_Load()

Show

Dim n As Integer, S As Long

n = 1: S = 1

Do While S <= 400000

         n = n + 1

         S = S * n

Loop

Text1.Text = n

End Sub

（3）运行结果（界面图）

    

2.题2（内容同上）

  （1）用户界面设计

     

  （2）关键程序代码

        Private Sub Form_Load()

Dim A As Integer, B As Integer

Dim S As Integer

For A = 1 To 9

             For B = 0 To 9

              S = A * 1000 + A * 100 + B * 10 + B

             If S Mod 78 = 0 Then

             Text1.Text = S

             End If

            Next

Next

End Sub

  （3）运行结果

      

3.题3

  （1）用户界面设计

   

  （2）关键程序代码

         Private Sub Command1_Click()

Dim n As Integer, k As Integer

n = Val(Text1.Text)

k = 0

Do While k <= 100

            If n Mod 7 <> 0 Then

              k = k + 1

            List1.AddItem Str(n)

            End If

            n = n + 1

Loop

End Sub

  （3）运行结果

     

五、实验总结

    通过本次实验使我更加熟悉循环结构程序设计的一些常用语句，掌握了一些编程方法和技巧。