Dim檔案路徑AsString=System.Environment.CurrentDirectory+"\in.txt" IfNewFileInfo(檔案路徑).ExistsThen Dim開啟AsNewFileStream(檔案路徑,FileMode.Open) Dim讀取AsNewStreamReader(開啟) While(讀取.EndOfStream<>True) FileOpen(1,"d:\out.dat",OpenMode.Output) Dimcc=讀取.ReadLine().Split("").Select(Function(aa)IIf(Integer.Parse(aa)Mod3=0,Integer.Parse(aa),0)).ToArray() Dimhh=cc.Sum(Function(bb)bb).ToString PrintLine(1,hh) TextBox1.Text=hh EndWhile 開啟.Close() EndIf
Dim檔案路徑AsString=System.Environment.CurrentDirectory+"\in.txt" IfNewFileInfo(檔案路徑).ExistsThen Dim開啟AsNewFileStream(檔案路徑,FileMode.Open) Dim讀取AsNewStreamReader(開啟) While(讀取.EndOfStream<>True) FileOpen(1,"d:\out.dat",OpenMode.Output) Dimcc=讀取.ReadLine().Split("").Select(Function(aa)IIf(Integer.Parse(aa)Mod3=0,Integer.Parse(aa),0)).ToArray() Dimhh=cc.Sum(Function(bb)bb).ToString PrintLine(1,hh) TextBox1.Text=hh EndWhile 開啟.Close() EndIf