vb编程,偶数日限行的程序？
看不清你的图片，但是我知道日期的获取和偶数的判断。
日期的获取：day(now)
偶数的判断：a=right(day(now),1)
if a=2 or a=4 or a=6 or a=8 or a=0 then
end '结束程序
end if
[img]渭南11月30日限号吗
渭南11月30日限号5和0。渭南市公安局交通警察支队决定自2018年11月16日起，对机动车实施禁限行措施。禁限行区域：临渭区为滨河大道以西，汉马街以北，渭清路以东，渭河大街以南；高新区为石泉路以东，华山大街以北，渭清路以西，乐天大街以南所有区域路段。禁限行规定：每日7:00-20:00限行两个车牌（含临时）尾号（若尾号为英文字母，以车牌最后一位数字为准）的机动车，即星期一限行1和6，星期二限行2和7，星期三限行3和8，星期四限行4和9，星期五限行5和0。
VB程序 输入车牌号 输出确定尾号 总之做一个车辆限行查询系统
Dim t As Integer
Private Sub Command1_Click()
Select Case Weekday(Now)
Case 1
MsgBox "今天周日不限行"
Case 2
t = 1
Case 3
t = 2
Case 4
t = 3
Case 5
t = 4
Case 6
t = 5
Case 7
MsgBox "今天周六不限行"
End Select
If Right(Text1.Text, 1) = t Or Right(Text1.Text, 1) = (t + 5) Mod 10 Then
MsgBox "今日限行"
Else
MsgBox "今日不限行"
End If
End Sub