重心法选址.doc

文档介绍：精品范文模板 可修改删除
免责声明：图文来源于网络搜集，版权归原作者所以
若侵犯了您的合法权益，请作者与本上传人联系，我们将及时更正删除。
撰写人：___________日 期：___________
= ""

Exit Sub
ElseIf Val() < 0 Then
MsgBox "运输费率应为正数，否则无实际意义！"
= ""

Exit Sub
End If
If = "" Then
MsgBox "X0-横坐标不允许为空"

Exit Sub
ElseIf IsNumeric() = False Then
MsgBox "X0-横坐标必须为数值型数据！"
= ""

Exit Sub
精品范文模板 可修改删除

免责声明：图文来源于网络搜集，版权归原作者所以
若侵犯了您的合法权益，请作者与本上传人联系，我们将及时更正删除。
End If
If = "" Then
MsgBox "Y0-纵坐标不允许为空"

Exit Sub
ElseIf IsNumeric() = False Then
MsgBox "Y0-纵坐标必须为数值型数据！"
= ""

Exit Sub
End If
If = "" Then
MsgBox "精度不允许为空"

Exit Sub
ElseIf IsNumeric() = False Then
MsgBox "精度应为数值型数据！"
= ""

Exit Sub
ElseIf Val() < 0 Then
MsgBox "精度应为正数，否则无实际意义！"
= ""

Exit Sub
End If

For i = 1 To
If = Val((i - 1)) And = Val((i - 1)) Then
MsgBox "与第" & i & "输入坐标值相同，请重新输入"
= ""