在TXT文件中，有一组数据，求在第3个-第7个数据中，能被2整除的最大值。用VB

提问：在TXT文件中，有一组数据，求在第3个-第7个数据中，能被2整除的最大值。用VB

首先自己建文件111.txt，数据分别是12 23 44 68 95 68 47 95 10 25编写程序，求出该数据文件中，在第3个-第9个数据之间，能被2整除的最大值。

网友回答：

程序为

Private Sub Command1_Click()

  Dim i As Integer, m As Integer

  m = 0

  i = 0

  Open "d:\temp\111.txt" For Input As #1

  Do While Not EOF(1)

   Input #1, a

   i = i + 1

   If i >= 3 And i <= 9 And a Mod 2 = 0 Then

     If a > m Then m = a

   End If

  Loop

  Print m

End Sub

结果为

68