ດ້ວຍການກຳນົດ ແລ້ວ Array ເປັນຕົວປ່ຽນໜື່ງ ທີ່ມີຊື່ດຽວ ແຕ່ມັນສະແດງເຖິງຫລາຍຄ່າທີ່ຕ່າງກັນ ເມື່ອເຮົາທຳງານກັບ ໜື່ງລາຍການ ເຮົາສາມາດໃຊ້ໄດ້ໜື່ງຕົວປ່ຽນ ເຖິງຢ່າງໄດ ກໍ່ຕາມ ຖ້າເຮົາມີຫລາຍລາຍການ ເຮົາຕ້ອງປະກາດຕົວປ່ຽນເປັນ ແບບ Array ແທນ
1. Array ໜຶ່ງມິຕີ
| Student Name | Name(1) | Name(2) | Name(3) | Name(4) |
2. Array ສອງມິຕີ
| Name(1,1) | Name(1,2) | Name(1,3) | Name(1,4) |
| Name(2,1) | Name(2,2) | Name(2,3) | Name(2,4) |
| Name(3,1) | Name(3,2) | Name(3,3) | Name(3,4) |
3. ການປະກາດ Array ໜຶ່ງມິຕີ
ແບບໂຄ້ດ:
Dim arrayName(subscript) as dataType
ຕົວຢ່າງ:
Dim CusName(10) as String
| CusName(1) | CusName(2) | CusName(3) | CusName(4) | CusName(5) |
| CusName(6) | CusName(7) | CusName(8) | CusName(9) | CusName(10) |
Dim arrayName(lowerbound To upperbound) As dataType
ຕົວຢ່າງ:
Dim Count(100 to 500) as Integer
ຫມາຍວ່າ ເລີ່ມ ຈາກ Count(100) ສິ້ນສຸດ Count(500)
ຕົວຢ່າງ ໂປຣແກຣມ
Dim studentName(1 to 10) As String
Dim num As Integer
Private Sub addName()
For num = 1 To 10
studentName(num) = InputBox("Enter the student name","Enter Name", "", 1500, 4500)
If studentName(num)<>"" Then
Form1.Print studentName(num)
Else
End
End If
Next
End Sub
4. ການປະກາດ Array ສອງມິຕີ
ແບບໂຄ້ດ
Dim ArrayName(Sub1,Sub2) as dataType
ຕົວຢ່າງ
Dim StuGames(1 to 4,7 to 12 ) As Integer
| Year | 7 | 8 | 9 | 10 | 11 | 12 |
|---|---|---|---|---|---|---|
| Football | StuGames(1,7) | StuGames(1,8) | StuGames(1,9) | StuGames(1,10) | StuGames(1,11) | StuGames(1,12) |
| Basketball | StuGames(2,7) | StuGames(2,8) | StuGames(2,9) | StuGames(2,10) | StuGames(2,11) | StuGames(2,12) |
| Tennis | StuGames(3,7) | StuGames(3,8) | StuGames(3,9) | StuGames(3,10) | StuGames(3,11) | StuGames(3,12) |
| Hockey | StuGames(4,7) | StuGames(4,8) | StuGames(4,9) | StuGames(4,10) | StuGames(4,11) | StuGames(4,12) |
ຕົວຢ່າງໂປຣແກຮມ:
Private Sub cmdAdd_Click()
Dim prod, mth As Integer ' prod is product and mth is month
Dim saleVol(1 To 4, 1 To 6) As Integer
Const j = 1
listVolume.AddItem vbTab & "January" & vbTab & "February" & vbTab & "March" _
& vbTab & "Apr" & vbTab & "May" & vbTab & "June"
listVolume.AddItem vbTab & "____________________________________________"
For prod = 1 To 4
For mth = 1 To 6
saleVol(prod, mth) = InputBox("Enter the sale volume for" & " " & "product" & " " & prod & " " & "month" & " " & mth)
Next mth
Next prod
For i = 1 To 4
listVolume.AddItem "Product" & "" & i & vbTab & saleVol(i, j) & vbTab & saleVol(i, j + 1) & vbTab & saleVol(i, j + 2) _
& vbTab & saleVol(i, j + 3) & vbTab & saleVol(i, j + 4) & vbTab & saleVol(i, j + 5)
Next i
End Sub
ຜົນໄດ້ຮັບ:
Image does not exist: https://image.ibb.co/ctDnDk/vb6arrayfig16_1.jpg
5. Array ແບບ Dynamic
ແບບໂຄ້ດ
Dim myArray()
ເມື່ອເວລາ Run time ເຮົາຈະລະບຸຂະໜາດຂອງ Array ອີກ ດ້ວຍການໃຊ້ ReDim
ReDim myArray(1 to n)
ຕົວຢ່າງ
Private Sub cmd_display_Click()
Dim myArray() As Integer
Dim i, n As Integer
n = InputBox("Enter the upper bound of array")
List1.Clear
For i = 1 To n
ReDim myArray(i)
myArray(i) = i ^ 2
List1.AddItem myArray(i)
Next
End Sub
ຜົນໄດ້ຮັບ
Image does not exist: https://image.ibb.co/cdBw65/vb6arrayfig16_2.jpg
