Scribd
Upload
21 views

vb6-array-examples

Uploaded by

cyrusjhon2004
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
21 views

vb6-array-examples

Uploaded by

cyrusjhon2004
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 5

'==========================================================

' VB6 Arrays - Comprehensive Examples and Applications


'==========================================================

'----------------------------------------------------------
' 1. Basic Array Declaration and Initialization
'----------------------------------------------------------
Private Sub DemoBasicArrays()
' Fixed-size array declaration
Dim numbers(4) As Integer ' Creates array with 5 elements (0 to 4)

' Initialize array elements


numbers(0) = 10
numbers(1) = 20
numbers(2) = 30
numbers(3) = 40
numbers(4) = 50

' Dynamic array declaration


Dim dynamicArray() As String
ReDim dynamicArray(2) ' Resize to 3 elements

' Initialize dynamic array


dynamicArray(0) = "Apple"
dynamicArray(1) = "Banana"
dynamicArray(2) = "Orange"

' Print elements


Dim i As Integer
For i = 0 To UBound(numbers)
Debug.Print "numbers(" & i & ") = " & numbers(i)
Next i
End Sub

'----------------------------------------------------------
' 2. Array Operations with Control Structures
'----------------------------------------------------------
Private Sub ArrayOperations()
Dim scores(9) As Integer
Dim i As Integer

' Initialize array using For loop


For i = 0 To 9
scores(i) = Int(Rnd * 100) + 1 ' Random numbers 1-100
Next i

' Calculate average using While loop


Dim total As Long
Dim count As Integer
count = 0

While count <= UBound(scores)


total = total + scores(count)
count = count + 1
Wend

Dim average As Double


average = total / (UBound(scores) + 1)
' Find passing and failing scores using If-Else
Dim passing As Integer
Dim failing As Integer

For i = 0 To UBound(scores)
If scores(i) >= 60 Then
passing = passing + 1
Else
failing = failing + 1
End If
Next i

' Output results


Debug.Print "Class Statistics:"
Debug.Print "Average Score: " & Format(average, "0.00")
Debug.Print "Passing Students: " & passing
Debug.Print "Failing Students: " & failing
End Sub

'----------------------------------------------------------
' 3. Multi-Dimensional Arrays
'----------------------------------------------------------
Private Sub MultiDimensionalArrayDemo()
' Declare 2D array for student grades (3 students, 4 subjects)
Dim grades(2, 3) As Integer
Dim student As Integer
Dim subject As Integer

' Initialize grades using nested loops


For student = 0 To 2
For subject = 0 To 3
grades(student, subject) = Int(Rnd * 40) + 60 ' Random grades 60-100
Next subject
Next student

' Calculate student averages


For student = 0 To 2
Dim studentTotal As Integer
For subject = 0 To 3
studentTotal = studentTotal + grades(student, subject)
Next subject

Debug.Print "Student " & (student + 1) & " Average: " & _
Format(studentTotal / 4, "0.00")
Next student
End Sub

'----------------------------------------------------------
' 4. Dynamic Array Manipulation
'----------------------------------------------------------
Private Sub DynamicArrayManipulation()
Dim numbers() As Integer
Dim size As Integer
size = 5

' Initial array size


ReDim numbers(size - 1)

' Fill array


Dim i As Integer
For i = 0 To UBound(numbers)
numbers(i) = i * 2
Next i

' Grow array while preserving data


ReDim Preserve numbers(UBound(numbers) + 3)

' Fill new elements


For i = size To UBound(numbers)
numbers(i) = i * 2
Next i

' Print all elements


For i = 0 To UBound(numbers)
Debug.Print "Element " & i & ": " & numbers(i)
Next i
End Sub

'----------------------------------------------------------
' 5. Array Searching and Sorting
'----------------------------------------------------------
Private Sub ArraySearchAndSort()
Dim numbers(9) As Integer
Dim i As Integer, j As Integer

' Initialize array with random numbers


For i = 0 To 9
numbers(i) = Int(Rnd * 100) + 1
Next i

' Bubble Sort implementation


Dim temp As Integer
For i = 0 To UBound(numbers) - 1
For j = i + 1 To UBound(numbers)
If numbers(i) > numbers(j) Then
' Swap elements
temp = numbers(i)
numbers(i) = numbers(j)
numbers(j) = temp
End If
Next j
Next i

' Linear Search implementation


Dim searchValue As Integer
Dim found As Boolean
searchValue = 50

For i = 0 To UBound(numbers)
If numbers(i) = searchValue Then
found = True
Debug.Print "Value " & searchValue & " found at index " & i
Exit For
End If
Next i

If Not found Then


Debug.Print "Value " & searchValue & " not found in array"
End If
End Sub

'----------------------------------------------------------
' 6. Array Utility Functions
'----------------------------------------------------------
Private Function FindMaxValue(arr() As Integer) As Integer
Dim maxVal As Integer
Dim i As Integer

maxVal = arr(0) ' Assume first element is maximum

For i = 1 To UBound(arr)
If arr(i) > maxVal Then
maxVal = arr(i)
End If
Next i

FindMaxValue = maxVal
End Function

Private Function FindMinValue(arr() As Integer) As Integer


Dim minVal As Integer
Dim i As Integer

minVal = arr(0) ' Assume first element is minimum

For i = 1 To UBound(arr)
If arr(i) < minVal Then
minVal = arr(i)
End If
Next i

FindMinValue = minVal
End Function

'----------------------------------------------------------
' 7. Array Application Example: Simple Inventory System
'----------------------------------------------------------
Private Type Product
Name As String
Quantity As Integer
Price As Double
End Type

Private Sub InventoryManagement()


Dim inventory() As Product
ReDim inventory(4) ' Create space for 5 products

' Initialize inventory


With inventory(0)
.Name = "Laptop"
.Quantity = 10
.Price = 999.99
End With

With inventory(1)
.Name = "Mouse"
.Quantity = 50
.Price = 29.99
End With

' Add more products...

' Display inventory report


Dim i As Integer
Dim totalValue As Double

Debug.Print "Inventory Report"


Debug.Print String(50, "-")
Debug.Print "Item" & Space(15) & "Quantity" & Space(8) & "Price" & Space(8) &
"Total"
Debug.Print String(50, "-")

For i = 0 To UBound(inventory)
If inventory(i).Name <> "" Then ' Check if product exists
Dim itemTotal As Double
itemTotal = inventory(i).Quantity * inventory(i).Price
totalValue = totalValue + itemTotal

Debug.Print inventory(i).Name & Space(19 - Len(inventory(i).Name)) & _


inventory(i).Quantity & Space(16 - Len(Str$
(inventory(i).Quantity))) & _
Format(inventory(i).Price, "$#,##0.00") & Space(8) & _
Format(itemTotal, "$#,##0.00")
End If
Next i

Debug.Print String(50, "-")


Debug.Print "Total Inventory Value: " & Format(totalValue, "$#,##0.00")
End Sub

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy