《VB語言程序設(shè)計》實驗報告

實驗名稱：循環(huán)結(jié)構(gòu)程序設(shè)計

姓    名：     xxxx       

學    號：   3090511075    

同 組 者：_________________

專業(yè)班號：     管093     

實驗日期：_________________

教師簽字：_________________

一、實驗?zāi)康募耙?SPAN lang=EN-US>

通過本實驗使學生：要求學生掌握For…Next語句的使用方法；掌握前測型和后測型Do…Loop語句的使用方法；掌握循環(huán)嵌套的規(guī)則和使用方法；掌握列表框與組合框的使用方法。

二、實驗設(shè)備及環(huán)境

Windowsp vb6.0

三、實驗內(nèi)容

1.    設(shè)s=1*2*3*…*n,求s不大于400000時最大的n。

2.    某4位數(shù)ABCD能夠被78整除，它的前兩位數(shù)字相同，后兩位數(shù)字也相同，求這個數(shù)。

3.    指定一個初始值，從該數(shù)值開始，找出100個不能被7整除的自然數(shù)。要求通過文本框來接受這個初始值，找出的自然數(shù)顯示在列表框中。

四、實驗步驟

1.    題1

  （1）用戶界面設(shè)計

（2）關(guān)鍵程序代碼（指明針對哪一對象的什么事件，可用截圖）

       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）運行結(jié)果（界面圖）

2.題2（內(nèi)容同上）

  （1）用戶界面設(shè)計

  （2）關(guān)鍵程序代碼

        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）運行結(jié)果

3.題3

  （1）用戶界面設(shè)計

  （2）關(guān)鍵程序代碼

         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）運行結(jié)果

五、實驗總結(jié)

    通過本次實驗使我更加熟悉循環(huán)結(jié)構(gòu)程序設(shè)計的一些常用語句，掌握了一些編程方法和技巧。