欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

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

實(shí)驗名稱(chēng)：數組應用

姓    名：    xxxx       

學(xué)    號：  3090511075    

同 組 者：_________________

專(zhuān)業(yè)班號：    管093      

實(shí)驗日期：_________________

教師簽字：_________________

一、實(shí)驗目的及要求

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

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

 3． 掌握控件數組的使用技巧。

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

Windowsp vb6.0

三、實(shí)驗內容

課后1，2,4題

四、實(shí)驗步驟

1.題1

（1）用戶(hù)界面設計（界面圖，可用截圖）

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

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

2.題1（內容同上）

（1）用戶(hù)界面設計

（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）運行結果

3.題3

 （1）用戶(hù)界面設計

 （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）運行結果

五、實(shí)驗總結

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