Dim a(100) As Integer
Private Sub Command1_Click()
    Dim k As Integer
    Open App.Path & "\in4.dat" For Input As #1
    For k = 1 To 100
        Input #1, a(k)
    Next k
    Close #1
End Sub
Private Sub Command2_Click()
'考生编写
  ？？？
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out4.dat" For Output As #1
    Print #1, Combo1.Text; Text1.Text
    Close #1
End Sub
Function even()
    Dim s As Single, n As Integer
    s = 0
    For k = 1 To 100
        If a(k) / 2 = Fix(a(k) / 2) Then
          s = s + a(k)
          n = n + 1
        End If
    Next
    s = s / n
    even = CInt(s)
End Function
Function odd()
    Dim s As Single, n As Integer
    s = 0
    For k = 1 To 100
        If a(k) / 2 <> Fix(a(k) / 2) Then
          s = s + a(k)
          n = n + 1
        End If
    Next
    s = s / n
    odd = CInt(s)
End Function
Function all()
    Dim s As Single, n As Integer
    s = 0
    For k = 1 To 100
      s = s + a(k)
    Next
    s = s / 100
    all = CInt(s)
End Function