Private Sub Text2_Change()

来源：百度知道 编辑：UC知道 时间：2024/04/27 14:04:43
各位懂VB 的朋友请帮忙告诉我这个代码是什么意思啊！！
Private Sub Text2_Change()
'是非题分值设定
If Text2.Text = "" Then
MsgBox "输入分值", vbOKOnly, "提示"
Exit Sub
End If

Sftint = Text2.Text

If Sftint <= Zfint Then
Text3.Enabled = True
Else
Text2.Text = 0
MsgBox "错误！分值超过总分，请重新设定", vbOKOnly, "提示："
End If
End Sub

Private Sub Text2_Change()
'是非题分值设定
If Text2.Text = "" Then '如果text2的值为空，则消息框提示“输入分值”。
MsgBox "输入分值", vbOKOnly, "提示" '弹出只有“确定”按钮的消息框，其标题是“提示”。
Exit Sub
End If

Sftint = Text2.Text '如果text2的值不为空，将该值给变量Sftint

If Sftint <= Zfint Then '如果输入的值小于等于Zfint，则使能Text3
Text3.Enabled = True
Else
Text2.Text = 0 '否则使text2值为0，弹出消息框如下句所示。
MsgBox "错误！分值超过总分，请重新设定", vbOKOnly, "提示："
End If
End Sub

请注意：Sftint 和 Zfint应该事先定义！并给出Zfint的值（应该是总分的意思吧）。
回答完毕！