Question

VB操作 根据所给条件，列出逻辑表达式

请广大电脑高手踊跃发言哈~谢谢拉 !!~
A、闰年的条件是：年号（year）能被4整除，但不能被100 整除；或者能被400整除。
B、 一元两次方程ax2+bx+c=0有实根的条件为a≠0，并且b2-4ac≥0
C、 征兵的条件：男性（sex）年龄（age）在18—20岁之间，身高(size)在1.65米以上；或者女性年龄在16—18岁之间，身高在1.60以上。

Answer 1

A.year mod 4 = 0 and year mod 100 <> 0 or year mod 400 = 0
B.a <> 0 and (b * b - 4 * a * c) >= 0
C.sex = "男" and 18 <= age and age <= 20 and size >= 1.65 or sex = "女" and 16 <= age and age <= 18 and size >= 1.60

Answer 2

Private Sub command1_Click()
y = Text1.Text
If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then
Text2.Text = y & "年是闰年！"
Else: Text2.Text = y & "年是平年！"
End If
End Sub