テキストファイルinを作成します.txtは、いくつかの正の整数を入力し、真ん中をスペースで区切って保存します.フォームにコマンドボタンとラベルボックスを追加し、コマンドボタンをクリックするとin.txtファイルに格納されている3で割り切れるすべての数の和がラベルボックスに表示されます


テキストファイルinを作成します.txtは、いくつかの正の整数を入力し、真ん中をスペースで区切って保存します.フォームにコマンドボタンとラベルボックスを追加し、コマンドボタンをクリックするとin.txtファイルに格納3で割り切れるすべての数の和をラベルボックスに表示し、これとCディスクルートディレクトリのoutに格納する.datファイルにあります.

        Dim      As String = System.Environment.CurrentDirectory + "\in.txt"
        If New FileInfo(    ).Exists Then
            Dim    As New FileStream(    , FileMode.Open)
            Dim    As New StreamReader(  )
            While (  .EndOfStream <> True)
                FileOpen(1, "d:\out.dat", OpenMode.Output)
                Dim cc =   .ReadLine().Split(" ").Select(Function(aa) IIf(Integer.Parse(aa) Mod 3 = 0, Integer.Parse(aa), 0)).ToArray()
                Dim hh = cc.Sum(Function(bb) bb).ToString
                PrintLine(1, hh)
                TextBox1.Text = hh
            End While
              .Close()
        End If