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

實(shí)驗(yàn)名稱：數(shù)組應(yīng)用

姓    名：    xxxx       

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

同 組 者：_________________

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

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

教師簽字：_________________

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

1．掌握固定大小數(shù)組的定義及使用方法。

 2． 掌握動(dòng)態(tài)數(shù)組的定義及使用方法。

 3． 掌握控件數(shù)組的使用技巧。

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

Windowsp vb6.0

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

課后1，2,4題

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

1.題1

（1）用戶界面設(shè)計(jì)（界面圖，可用截圖）

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

    Private Sub Form_Load()

Show

    Dim A As Variant, B As Variant, C(8) As Integer

    A = Array(3, 4, 2, 1, 5, 7, 8, 11, 13)

 B = Array(10, 6, 12, 9, 13, 8, 8, 1, 16)

     For i = 0 To 8

 C(i) = A(i) + B(i)

 Print C(i);

 Next

End Sub

（3）運(yùn)行結(jié)果（界面圖）

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

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

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

   Private Sub Form_Load()

Show

Dim a(6, 6) As Integer

For i = 1 To 6

    For j = 1 To 6

If i = j Then

a(i, j) = 0

ElseIf i > j Then

     a(i, j) = 2

Else i < j

a(i, j) = 1

End If

Print a(i, j);

Next

Print

Next

End Sub

（3）運(yùn)行結(jié)果

3.題3

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

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

      Dim n As Integer

Private Sub Command1_Click()

n = n + 1

k = n Mod 3

opt(k).Value = True

End Sub

Private Sub Form_Load()

n = 1

opt(n).Value = True

End Sub

 （3）運(yùn)行結(jié)果

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

通過(guò)此次實(shí)驗(yàn)，使我掌握固定大小數(shù)組的定義及使用方法，掌握動(dòng)態(tài)數(shù)組的定義及使用方法，掌握控件數(shù)組的使用技巧。