VB編程，某單位招聘人員的體檢標準如下：男：身高165CM及以上，視力1.0及以上

Option Explicit

Dim MinH As Integer

Private Sub Command1_Click()

If (Val(Text1.Text) >= MinH) And (Val(Text2.Text) >= 1) Then

Text3.Text = "體檢合格"

Else

Text3.Text = "體檢未達標"

End If

End Sub

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Private Sub Option1_Click()

Option2.Value = False

MinH = 165

Command1.Enabled = True

End Sub

Private Sub Option2_Click()

Option1.Value = False

MinH = 156

Command1.Enabled = True

End Sub