Визуальное базовое преобразование целых чисел массива (x) в количество x одного символа - PullRequest
0 голосов
/ 31 марта 2012

Мне было поручено создать консольный сценарий Visual Basic, который 5 раз подряд запрашивает у пользователя ввод числа в массив (цифры продаж в тысячах). Затем вы отображаете эти результаты в виде некой подсчетной диаграммы.

Например, для данных: продажи (10,7,12,5,15) Вывод будет

2008:++++++++++

2009:+++++++

2010:++++++++++++

2011:+++++

2012:+++++++++++++++

Пока для кода у меня есть:

Module Module1

Sub Main()

    Dim sales(4) As Integer
    Dim index As Integer
    Dim year As Integer


    For index = 0 To 4
        Console.Write("Enter your sales numbers (in thousands): ")
        sales(index) = Console.ReadLine()
    Next

    year = 2007

    For index = 0 To 4
        year = (year + 1)

--- НЕ УВЕРЕН О КОДЕ ЗДЕСЬ ---

        Console.WriteLine(year & ": " & ????????)
    Next

    Console.ReadLine()
End Sub

End Module

Я просто неуверен в том, как изменить целочисленное значение из массива на определенное количество одного символа.

Ответы [ 2 ]

3 голосов
/ 01 апреля 2012
For Each i As Integer In Sales
    Console.WriteLine(New String("+"c, i))
Next i
1 голос
/ 31 марта 2012

Не было бы достаточно добавить для отображения несколько раз "-"?

Примерно так:

For index = 0 To 4
    year = (year + 1)
    Console.Write(year & ": ")

    ' Display as much "-" as there are sales
    For s = 1 to sales(index)
        Console.Write("-")
    Next s

    Console.WriteLine("") 'Next line
Next index
...