一、背景
1、我现在在沅陵农村,打算回家,家在无锡,身份证是无锡的
2、无锡的家距离老家沅陵1300公里
3、无锡检查站规则:凡从湖北、浙江、广东、河南、湖南、安徽、江西七省来锡人员一律劝返
4、沅陵检查站规则:外地人一律劝返
二、源码
Public Sub 我要回家()
Dim i As Long
i = 0
100 If 无锡检查口("湖南", "江苏") = "劝返" Then
i = i + 1
If MsgBox("已开 【" & 1300 * i & "】 公里!" + vbNewLine + "无锡不准下高速,你打算原路返回 【沅陵】 吗?", _
vbExclamation + vbYesNo + vbDefaultButton2, "下一步打算怎么办?") = vbYes Then
'高速调头去沅陵
i = i + 1
If 湖南沅陵检查口("江苏") = "劝返" Then
If MsgBox("已开 【" & 1300 * i & "】 公里!" + vbNewLine + "沅陵不准下高速,你打算原路返回 【无锡】 吗?", _
vbExclamation + vbYesNo + vbDefaultButton2, "下一步打算怎么办?") = vbYes Then
GoTo 100
Else
MsgBox "已开 【" & 1300 * i & "】 公里!" + vbNewLine + "心好累!把家安在高速服务区!", vbCritical, "回家之路"
Exit Sub
End If
End If
Else
MsgBox "已开 【" & 1300 * i & "】 公里!" + vbNewLine + "心好累!把家安在高速服务区", vbCritical, "回家之路"
Exit Sub
End If
End If
End Sub
Public Function 无锡检查口(问你从哪里来 As String, 身份证哪里的 As String) As String
'凡从湖北、浙江、广东、河南、湖南、安徽、江西七省来锡人员一律劝返
'年前去湖南老家过春节,现在回无锡,开车1300公里
'到了无锡检查口,工作人员问从哪来
Select Case 问你从哪里来
Case "湖北"
无锡检查口 = "劝返" '高速调头回去
Case "浙江"
无锡检查口 = "劝返" '高速调头回去
Case "广东"
无锡检查口 = "劝返" '高速调头回去
Case "河南"
无锡检查口 = "劝返" '高速调头回去
Case "湖南"
无锡检查口 = "劝返" '高速调头回去
Case "安徽"
无锡检查口 = "劝返" '高速调头回去
Case "江西"
无锡检查口 = "劝返" '高速调头回去
End Select
'开车1300公里终于到了湖南老家检查口,工作人员请你出示身份证
If 身份证哪里的 = "江苏" Then
无锡检查口 = "劝返" '凡是外地人,劝返
End If
End Function
Public Function 湖南沅陵检查口(身份证哪里的 As String) As String
'凡是外地人,劝返
'从无锡开车1300公里终于到了湖南老家沅陵检查口,工作人员请你出示身份证
If 身份证哪里的 = "江苏" Then
湖南沅陵检查口 = "劝返"
End If
End Function
三、示例下载
单击此下载示例