Imports System

Public Module Practice08

​

    Public Sub Main()

​

        Dim tmpStr As String = "ざっくりわかるプログラミング講座"  '一旦文字

        Dim len As Integer = GetLength(tmpStr)

        Console.WriteLine("文字数：" & len)

        Console.ReadKey()

​

    End Sub

​

    '文字列を加工して文字数を返す

    Function GetLength(text As String) As Integer

        Return text.Length

    End Function

​

End Module