免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

《VB語(yǔ)言程序設(shè)計(jì)》實(shí)驗(yàn)報(bào)告

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

姓    名：     xxxx       

學(xué)    號(hào)：   3090511075    

同 組 者：_________________

專業(yè)班號(hào)：     管093     

實(shí)驗(yàn)日期：_________________

教師簽字：_________________

一、實(shí)驗(yàn)?zāi)康募耙?span lang="EN-US">

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

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

Windowsp vb6.0

三、實(shí)驗(yàn)內(nèi)容

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

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

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

四、實(shí)驗(yàn)步驟

1.    題1

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

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

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

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

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

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

3.題3

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

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

五、實(shí)驗(yàn)總結(jié)

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