Vb中的语句

Question

某校录取新生的标准下限为：六门课均及格，或虽有一门课不及格但在50分以上且平均成绩达到60分以上。
大家帮我看一下这句话用VB怎么写！！谢谢！！

Answer 1

函数：满足标准返回True，Mark()传包含各科成绩的数组
Function Foo(Mark() As Byte) As Boolean
Dim a As Byte, i As Byte, b As Single
For i = 0 To 5
  If Mark(i) < 60 Then a = a + 1
Next i
If a = 6 Then Foo = True: Exit Sub
If a = 5 Then
  For i = 0 To 5
    b = b + Mark(i)
  Next i
  If b / 6 > 60 Then Foo = True
End If
End Function

Answer 2

不好意思，打错了。上面代码的6行的Exit Sub应为Exit Function