Hi, I'm new to the forums
I'm at a loss on a programming challenge I have. The application prompts a user to enter sales for 5 stores, then display the result in a list box.
The problem I'm having is that the challenge requires the results to be displayed in the list box as a row of asterisks with each asterisk representing $100 of that stores sales.
So, if store 1 sold $500 worth of product, the list box should look like:
Store 1: *****
Here is my code. I'm absolutely stuck here. I'm not looking for the solution, only help in getting that solution
Dim intSales1 As Integer 'Day 1 Sales
Dim intSales2 As Integer 'Day 2 Sales
Dim intSales3 As Integer 'Day 3 Sales
Dim intSales4 As Integer 'Day 4 Sales
Dim intSales5 As Integer 'Day 5 Sales
Dim ast As String = "*"
Dim count As Integer
intSales1 = InputBox("Enter the sales for store one", "Enter Sales")
intSales2 = InputBox("Enter the sales for store two", "Enter Sales")
intSales3 = InputBox("Enter the sales for store three", "Enter Sales")
intSales4 = InputBox("Enter the sales for store four", "Enter Sales")
intSales5 = InputBox("Enter the sales for store five", "Enter Sales")
If Not IsNumeric(intSales1) Then
MessageBox.Show("Please enter a number.")
ElseIf intSales1 < 0 Then
MessageBox.Show("Negative numbers are not acceptable. That manager is FIRED!")
lstSales.Items.Add("Store 1: " & ast)
I know the code is incomplete, I just need to make store 1 sales output properly, then I can copy the code for the rest of the days.