Question

Question 1 and 2 ... Visual Basic

dlear the contents of the textboxes. Do not accept a negative value for any of the inputs. Your application should have a button clear and utilize a separate procedure to e an application that prompts the user to enter today's sales for five program should then display a simple bar graph comparing each 2. Creat stores. The stores sales. Create each bar in the bar grah by displaying a row of asterisks (*) in a list box. Each asterisk in a bar represents $100 in sales The following figure shows the bar chart when the sales data entered was $1000 for store # 1, $1200 for store # 2, $1800 for store # 3, $800 for store # 4, and $1900 for store # 5. Store 2: **xxx*xx**** Store 3: xxxxxxx* Store 4: **xx***x*xxx*xx***x

Answer 1

Dim intData(4) As Integer
Public Function extc(ByVal no As Integer) As String
Dim str2 As String
str2 = "*"
For a = 0 To no - 2 Step 1

str2 = str2 + " " + "*"
Next
Return str2
End Function

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' for loop execution
Dim b As Integer
Dim str As String
Dim str3, str4 As String
For a = 0 To 4 Step 1

str = "Enter store" + (a + 1).ToString + "'s Sales"
b = InputBox(str, "Today's 5 stores' sales ", "Enter sales here")
intData(a) = b
Next

Dim no As Integer
For a = 0 To 4 Step 1
no = intData(a) / 100
str3 = extc(no)
str4 = "Store " + (a + 1).ToString + " : " + str3
'Label1.Text = str4
ListBox1.Items.Add(str4)
Next
End Sub

1200

Store l: r* Store 4: a * * Store 5: r*r*

this is the code and output as u needed. if u have any query then i am here for help.

if you want full code then i will send u the zippyshare link of full program.