Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > частотный словарь

Автор: pepperoni 17.5.2015, 18:25

Код


Public Function PrintTable(ByVal s3 As String) As Integer
        Dim S As String, arrC() As String = Strings.Split(s3), Dc As New Dictionary(Of String, Integer)
        For Each S In arrC
            If Dc.ContainsKey(S) Then
                Dc.Item(S) = Dc.Item(S) + 1
            Else
                Dc.Add(S, 1)
            End If
        Next
        For Each S In Dc.Keys
            Console.WriteLine(S & " : " & Dc.Item(S))
        Next
        Return PrintTable
    End Function

помогите сделать,чтобы результат выводился не в функции,а в сабе

Автор: diadiavova 17.5.2015, 22:48

Цитата(pepperoni @ 17.5.2015, 18:25

)

помогите сделать,чтобы результат выводился не в функции,а в сабе

Дык замени Function на Sub, убери тип возвращаемого функцией значения, а вместо Return выводи результат на консоль или куда там тебе надо.