Как я могу изменить сообщение, отображаемое пользователю в массиве? - PullRequest
Новая
       52

Как я могу изменить сообщение, отображаемое пользователю в массиве?

0 голосов
/ 22 апреля 2020

Мне нужен совет. Я новичок в программировании, студент первого курса. Я хотел бы получить совет о том, как я могу улучшить следующую программу, которую я должен создать.

Мне нужно создать приложение, которое пользователь будет использовать для ввода данных о продажах за 6 месяцев для 3 провинций.

У меня есть код basi c, и он работает хорошо, все цифры продаж можно ввести, и он отображается правильно.

Однако он не очень информативен для пользователя. Я хотел бы, чтобы сообщение в поле ввода менялось каждый раз, когда пользователю необходимо ввести цифры продаж для следующей провинции.

Как мне этого добиться? 

 Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnClear.Click
    'Clear the listbox
    lstOutput.Items.Clear()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    'Close Application
    Me.Close()
End Sub

Public Sub Button2_Click(sender As Object, e As EventArgs) Handles btnEnter.Click

    'Declair Variables 
    Dim Month As Integer
    Dim Sales(6, 6) As Double
    Const j = 1
    lstOutput.Items.Add("Month" & vbTab & "Kwazulu-Natal Sales (R)" & vbTab & "Gauteng Sales (R)" _
    & vbTab & "Western Cape Sales (R)")
    lstOutput.Items.Add("__________________________________________________________________")
    For Month = 1 To 3
        For TotalSales = 1 To 6
            Sales(TotalSales, Month) = InputBox("Enter the sales figures for" & " " & "first 
      province")

        Next TotalSales
    Next Month

    For i = 1 To 6

        lstOutput.Items.Add(i & vbTab & vbTab & Sales(i, j) & vbTab & vbTab & vbTab & Sales(i, j + 1) & vbTab & vbTab & Sales(i, j + 2))

    Next i

End Sub

Любая помощь будет с благодарностью.

...