stuff

Option Explicit

    Private STR_Names(1 To 10) As String
    Private STR_Passwords(1 To 10) As String
Private Sub Form_Load()

    Dim STR_UserName As String
    Dim STR_UserPassword As String

    Dim INT_NumOfTriesPassword As Integer
    Dim INT_NumOfTriesUsername As Integer

    Dim INT_NameFoundIndex As Integer
    Dim INT_PasswordFoundIndex As Integer
    Dim INT_LoopIndex As Integer

    Dim BLN_Found As Boolean
    BLN_Found = False

    STR_Names(1) = "Alice"
    STR_Names(2) = "Bill"
    STR_Names(3) = "Carol"
    STR_Names(4) = "Dave"
    STR_Names(5) = "Elizabeth"
    STR_Names(6) = "Fletcher"
    STR_Names(7) = "Gina"
    STR_Names(8) = "Henry"
    STR_Names(9) = "Isabelle"
    STR_Names(10) = "Jacob"

    STR_Passwords(1) = "Apple"
    STR_Passwords(2) = "Blueberry"
    STR_Passwords(3) = "Cranberry"
    STR_Passwords(4) = "Durian"
    STR_Passwords(5) = "Elderberry"
    STR_Passwords(6) = "Fig"
    STR_Passwords(7) = "Grape"
    STR_Passwords(8) = "Huckleberry"
    STR_Passwords(9) = "Imbe"
    STR_Passwords(10) = "Jackfruit"

    Do While BLN_Found = False And INT_NumOfTriesPassword < 3

        STR_UserName = UCase(InputBox("Please enter your username", "Enter password"))
        INT_NumOfTriesUsername = INT_NumOfTriesUsername + 1

        For INT_LoopIndex = 1 To UBound(STR_Names)
            If STR_UserName = UCase(STR_Names(INT_LoopIndex)) Then
                MsgBox "Username accepted.", vbOKOnly, "Correct username."
                INT_NameFoundIndex = INT_LoopIndex
                BLN_Found = True
                Exit For
            ElseIf INT_NumOfTriesUsername = 3 And INT_LoopIndex = UBound(STR_Names) Then
                MsgBox "Wrong username. You have made three unsuccessful attempts. The program will now close.", vbOKOnly, "Exit program"
                End
            ElseIf INT_LoopIndex = UBound(STR_Names) Then
                MsgBox "Wrong Username. Try again."
            End If

        Next INT_LoopIndex

    Loop

    BLN_Found = False

    Do While BLN_Found = False And INT_NumOfTriesPassword < 3
        STR_UserPassword = UCase(InputBox("Please enter your password", "Enter password"))
        INT_NumOfTriesPassword = INT_NumOfTriesPassword + 1

        If STR_UserPassword = UCase(STR_Passwords(INT_NameFoundIndex)) Then
            MsgBox "Password Accepted.", vbOKOnly, "Correct password."
            Exit Do
        ElseIf INT_NumOfTriesPassword < 3 Then
            MsgBox "Wrong password. You have made three unsuccessful attempts. The program will now close."
            End
        End If

    Loop

End Sub

____________________________________________________________________________________________________

Option Explicit
    Dim INT_Numbers(1 To 10) As Integer
Private Sub CMD_GenerateArray_Click()

    Dim INT_Loop As Integer
        For INT_Loop = LBound(INT_Numbers) To UBound(INT_Numbers)
            INT_Numbers(INT_Loop) = RndInt(0, 99)
        Next INT_Loop
        For INT_Loop = LBound(INT_Numbers) To UBound(INT_Numbers)
            LST_Array.AddItem INT_Numbers(INT_Loop)
        Next INT_Loop

End Sub
Private Sub CMD_Reset_Click()

    Dim INT_LoopIndex As Integer

    For INT_LoopIndex = LBound(INT_Numbers) To UBound(INT_Numbers)
        INT_Numbers(INT_LoopIndex) = vbEmpty
    Next INT_LoopIndex
        LST_Array.Clear

End Sub
Private Sub Form_Load()

    Randomize

End Sub
Private Sub CMD_Max_Click()

    Dim INT_Index As Integer
    Dim INT_MaxNumber As Integer

    INT_Index = 1
    INT_MaxNumber = INT_Numbers(INT_Index)

    Do While INT_Index <= UBound(INT_Numbers)
        If INT_MaxNumber < INT_Numbers(INT_Index) Then
            INT_MaxNumber = INT_Numbers(INT_Index)
        End If
        INT_Index = INT_Index + 1
    Loop

    LBL_Answer.Caption = "Max Number = " & INT_MaxNumber

End Sub
Private Sub CMD_Min_Click()

    Dim INT_Index As Integer
    Dim INT_MinNumber As Integer

    INT_Index = 1
    INT_MinNumber = INT_Numbers(INT_Index)

    Do While INT_Index <= UBound(INT_Numbers)
        If INT_MinNumber > INT_Numbers(INT_Index) Then
            INT_MinNumber = INT_Numbers(INT_Index)
        End If
            INT_Index = INT_Index + 1
    Loop

    LBL_Answer.Caption = "Min Number = " & INT_MinNumber

End Sub
Function RndInt(ByVal INT_LowNum As Integer, ByVal INT_HighNum As Integer) As Integer

    RndInt = Int((INT_HighNum - INT_LowNum + 1) * Rnd + INT_LowNum)

End Function
Private Sub CMD_Done_Click()

    Unload Me

End Sub
___________________________________________________________________________________________________________

Option Explicit
Private Sub Form_Load()

    Randomize

End Sub
Private Sub CMD_CreateArray_Click()

    Dim INT_Size As Integer
    Dim INT_Numbers() As Integer

    INT_Size = TXT_Size.Text

    Call CreateArray(INT_Numbers(), 1, INT_Size)
    Call DisplayArray(INT_Numbers(), LST_Array)

End Sub
Sub CreateArray(ByRef INT_Array() As Integer, ByVal INT_LowerLimit As Integer, ByVal INT_UpperLimit As Integer)

    Dim INT_Loop As Integer

    ReDim INT_Array(INT_LowerLimit To INT_UpperLimit)

    For INT_Loop = INT_LowerLimit To INT_UpperLimit
        INT_Array(INT_Loop) = RndInt(1, 99)
    Next INT_Loop

End Sub
Sub DisplayArray(ByRef INT_Array() As Integer, ByRef LST_List As ListBox)

    Dim INT_Loop As Integer

    For INT_Loop = LBound(INT_Array) To UBound(INT_Array)
        LST_List.AddItem INT_Loop & vbTab & INT_Array(INT_Loop)
    Next INT_Loop

End Sub
Function RndInt(ByVal INT_LowNum As Integer, ByVal int_highnum As Integer) As Integer

    RndInt = Int((int_highnum - INT_LowNum + 1) * Rnd + INT_LowNum)

End Function
Private Sub CMD_Exit_Click()
    Unload Me
End Sub


________________________________________________________________________________________________________

Option Explicit
Private Sub Form_Load()

Randomize

Dim INT_Numbers() As Integer
Dim INT_EvenNumbers() As Integer
Dim INT_OddNumbers() As Integer

Call FillArray(INT_Numbers(), 1, 10)
Call DisplayArray(INT_Numbers(), LST_Array)
Call EvenNumbers(INT_Numbers(), INT_EvenNumbers(), LST_Array)
Call OddNumbers(INT_Numbers(), INT_OddNumbers(), LST_Array)

End Sub
Sub FillArray(ByRef INT_Array() As Integer, ByVal INT_LowerLimit As Integer, ByVal INT_UpperLimit As Integer)

    Dim INT_Loop As Integer

    ReDim INT_Array(INT_LowerLimit To INT_UpperLimit)

    For INT_Loop = INT_LowerLimit To INT_UpperLimit
        INT_Array(INT_Loop) = RndInt(1, 99)
    Next INT_Loop

End Sub
Sub DisplayArray(ByRef INT_Array() As Integer, ByRef LST_List As ListBox)

    Dim INT_Loop As Integer

    For INT_Loop = LBound(INT_Array) To UBound(INT_Array)
        LST_List.AddItem INT_Loop & vbTab & INT_Array(INT_Loop)
    Next INT_Loop

End Sub

Sub EvenNumbers(ByRef INT_Array() As Integer, ByRef INT_EvenNumbers() As Integer, LST_List As ListBox)

    Dim INT_ArrayIndex As Integer
    Dim INT_EvenArrayIndex As Integer

    INT_EvenArrayIndex = 0
    INT_ArrayIndex = 1

    Do While INT_ArrayIndex <= UBound(INT_Array)
        If INT_Array(INT_ArrayIndex) Mod 2 = 0 Then
            If INT_EvenArrayIndex = 0 Then
                ReDim INT_EvenNumbers(INT_EvenArrayIndex)
            Else
                ReDim Preserve INT_EvenNumbers(INT_EvenArrayIndex)
            End If
            INT_EvenNumbers(INT_EvenArrayIndex) = INT_Array(INT_ArrayIndex)
            INT_EvenArrayIndex = INT_EvenArrayIndex + 1
        End If
        INT_ArrayIndex = INT_ArrayIndex + 1
    Loop

    LST_List.AddItem "Even numbers in the array"
    For INT_EvenArrayIndex = LBound(INT_EvenNumbers) To UBound(INT_EvenNumbers)
        LST_List.AddItem INT_EvenNumbers(INT_EvenArrayIndex)
    Next INT_EvenArrayIndex

End Sub
Sub OddNumbers(ByRef INT_Array() As Integer, ByRef INT_OddNumbers() As Integer, LST_List As ListBox)

    Dim INT_ArrayIndex As Integer
    Dim INT_OddArrayIndex As Integer

    INT_OddArrayIndex = 0
    INT_ArrayIndex = 1

    Do While INT_ArrayIndex <= UBound(INT_Array)
        If INT_Array(INT_ArrayIndex) Mod 2 = 0 Then
            If INT_OddArrayIndex = 0 Then
                ReDim INT_OddNumbers(INT_OddArrayIndex)
            Else
                ReDim Preserve INT_OddNumbers(INT_OddArrayIndex)
            End If
            INT_OddNumbers(INT_OddArrayIndex) = INT_Array(INT_ArrayIndex)
            INT_OddArrayIndex = INT_OddArrayIndex + 1
        End If
        INT_ArrayIndex = INT_ArrayIndex + 1
    Loop

    LST_List.AddItem "Odd numbers in the array"
    For INT_OddArrayIndex = LBound(INT_OddNumbers) To UBound(INT_OddNumbers)
        LST_List.AddItem INT_OddNumbers(INT_OddArrayIndex)
    Next INT_OddArrayIndex

End Sub
Function RndInt(ByVal INT_LowNum As Integer, ByVal INT_HighNum As Integer) As Integer

    RndInt = Int((INT_HighNum - INT_LowNum + 1) * Rnd + INT_LowNum)

End Function
Private Sub CMD_Done_Click()

    Unload Me

End Sub


________________________________________________________________________________________________________


Option Explicit
Private Sub Form_Load()

    Dim INT_ScoreCard(1 To 4, 1 To 18) As Integer
    Dim LNG_Row As Long
    Dim LNG_Col As Long
    Dim STR_RowScore As String

    Randomize

    Call Reset

    For LNG_Col = LBound(INT_ScoreCard, 2) To UBound(INT_ScoreCard, 2)
        For LNG_Row = LBound(INT_ScoreCard, 1) To UBound(INT_ScoreCard, 1)
            INT_ScoreCard(LNG_Row, LNG_Col) = Int(9 * Rnd + 1)
        Next LNG_Row
    Next LNG_Col

    Call DisplayScorecard(INT_ScoreCard())
    Call CalculateWinners(INT_ScoreCard())

End Sub
Private Sub Reset()

    Dim INT_Row As Integer

    For INT_Row = 1 To 4
        LBL_PlayerScore(INT_Row).Caption = ""
    Next INT_Row

    LST_Scores.Clear

End Sub
Private Sub DisplayScorecard(ByRef INT_ScoreCard() As Integer)

    Dim LNG_Row As Long
    Dim LNG_Col As Long
    Dim STR_RowScore As String

    LST_Scores.AddItem vbTab & "Hole 1" & vbTab & "Hole 2" & vbTab & "Hole 3" & vbTab & "Hole 4" & vbTab & "Hole 5" & vbTab & "Hole 6" & vbTab & "Hole 7" & vbTab & "Hole 8" & vbTab & "Hole 9" & vbTab & "Hole 10" & vbTab & "Hole 11" & vbTab & "Hole 12" & vbTab & "Hole 13" & vbTab & "Hole 14" & vbTab & "Hole 15" & vbTab & "Hole 16" & vbTab & "Hole 17" & vbTab & "Hole 18"

    For LNG_Row = LBound(INT_ScoreCard, 1) To UBound(INT_ScoreCard, 1)
        STR_RowScore = ""
        For LNG_Col = LBound(INT_ScoreCard, 2) To UBound(INT_ScoreCard, 2)
            STR_RowScore = STR_RowScore & INT_ScoreCard(LNG_Row, LNG_Col) & vbTab
        Next LNG_Col
        LST_Scores.AddItem "Player " & LNG_Row & vbTab & STR_RowScore
    Next LNG_Row

End Sub
Private Sub CalculateWinners(ByRef INT_ScoreCard() As Integer)

    Dim LNG_Row As Long
    Dim LNG_Col As Long
    Dim INT_LowScore As Integer
    Dim INT_WinnerRow As Integer

    For LNG_Col = LBound(INT_ScoreCard, 2) To UBound(INT_ScoreCard, 2)
        INT_LowScore = 9
        For LNG_Row = LBound(INT_ScoreCard, 1) To UBound(INT_ScoreCard, 1)
            If INT_LowScore > INT_ScoreCard(LNG_Row, LNG_Col) Then
                INT_LowScore = INT_ScoreCard(LNG_Row, LNG_Col)
                INT_WinnerRow = LNG_Row
            End If
        Next LNG_Row
        LBL_PlayerScore(INT_WinnerRow).Caption = LBL_PlayerScore(INT_WinnerRow).Caption & Space(2) & "Hole " & LNG_Col
    Next LNG_Col

End Sub
Private Sub CMD_Exit_Click()

    Unload Me

End Sub

_______________________________________________________________________________________________