[RESOLVED] Nee help with code

[goodgod1500]

I am new to coding, I am also having a serious issue with finishing this project. Could I please get some help.

the Galaxy Hotel asks you to write a Windows application that computes the occupancy rate of the hotel. Occupancy rate is a percentage that is equal to the number of rooms sold divided by the total number of rooms available. The hotel has seven floors. tThe user should use an Input Box function to respond to two questions about each floor: How many rooms are occupied on that floor? How many rooms on the floor are vacant? Display which floor you are asking about in each question. Display how many rooms are occupied and vacant on each floor in a List Box object. After the user has entered all the information, display the following results: the total number of rooms at the hotel, the number of occupied rooms, and the number of vacant rooms. Also display the occupancy rate as a percentage, such as 61%. Non-numeric values should not be accepted. Do not accept negative numbers. Publish the application after testing.


so far i have this for my code:

Public Class frmHotelOccupancy
 
    Private Sub btnOccupancyInformation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOccupancyInformation.Click
        ' The btnOccupancyInformation click event accepts and displays up to thirty rooms
        ' from the user, and then calculates and displays the % of occupancy.
 
        ' Declare and Initialze variables
        Dim decOccupiedRooms As Decimal
        Dim strOccupiedRooms As String
        Dim decTotalRooms As Decimal = 10
        Dim strTotalRooms As String = CStr(0)
        Dim intTotalRooms As Integer = 0
        Dim intTotalOccupied As Integer = 0
        Dim intTotalVacant As Integer = 0
        Dim intVacant As Integer = 0
        Dim decOccupancyRate As Decimal
        Dim strInputMessage As String = "Enter # of occupied rooms"
        Dim strInputHeading As String = "Occupancy Percent"
        Dim strNormalMessage As String = "Enter # of occupied rooms"
        Dim strNonNumericError As String = "ERROR - Enter a # of rooms occupied"
        Dim strNegativeError As String = "ERROR - Enter a positive # of occupied rooms"
        Dim intFloor As Integer
        For intFloor = 1 To 7
            
        Next
 
        ' Declare and intialize loop variables
        Dim strCancelClick As String = ""
        Dim intMaxNumberOfEntries As Integer = 6
        Dim intMinNumberOfEntries As Integer = 0
 
        ' This loop allows the user to enter the room information (vacany or occupied) 
        ' up to 10 rooms, and 7 floors. The loop terminates when the user has entered
        ' 10 rooms per 7 floors or clicks the Cancel button or the Close button in the InputBox.
 
        strOccupiedRooms = InputBox(strInputMessage & intTotalOccupied, strInputHeading, " ")
 
        Do Until intTotalOccupied > intMaxNumberOfEntries Or strOccupiedRooms = strCancelClick
 
            If IsNumeric(strTotalRooms) Then
                decOccupiedRooms = Convert.ToDecimal(strOccupiedRooms)
                If decOccupiedRooms > 0 Then
                    lstVacancyAndOccupancy.Items.Add(decOccupiedRooms)
                    decOccupiedRooms += decOccupancyRate
                    intTotalOccupied += 1
                    strInputMessage = strNormalMessage
                Else
                    strInputMessage = strNegativeError
                End If
            Else
                strInputMessage = strNonNumericError
            End If
 
            If intTotalOccupied <= intMaxNumberOfEntries Then
                strTotalRooms = InputBox(strInputMessage & intTotalRooms, strInputHeading, " ")
            End If
 
        Loop
 
        'Makes label visible
        lblPercentage.Visible = True
 
        ' Calculate and display pecentage of occupied rooms
        If intTotalOccupied > -1 Then
            decOccupancyRate = decOccupiedRooms / (decTotalRooms)
            lblPercentage.Text = "Percentage of rooms occupied " & _
                decOccupancyRate.ToString("F1") & "%"
        Else
            lblPercentage.Text = "No room occupancy entered"
        End If
 
        'Display the Enter Room Information button
        btnOccupancyInformation.Enabled = False
 
    End Sub