vb摇号程序

抱歉。朋友。说下，你的程序有两个错误。

一是会出现重复。

二是会发生”下标越界“。如在这里：

Private Sub Timer1_Timer()

Static i As Integer '定义I为变量

If i >200 Then i = 1当I=200时

i = i + 1会出现I=201

Label1 = a(i)下标越界

End Sub

建议多试试，修改好再考虑下一步事情。好吗？

一共有两种渠道,分别是网上申请和现场办理,分别如下：

网上申请：登陆www.bjhjyd.gov.cn网站，填写申请表，确认并获取申请进度查询编码。上网申请比较适合经常接触电脑,并且经常上网的朋友们。网上申请仅用时1分多钟，之后您的资料将会有专人进行审核,审核通过后便进入摇号阶段。

现场申请：前往以各区的办理窗口，排队领号，填写申请表，上交相关材料，获取申请进度查询编码。现场申请唯一的优势就是有专人指导您如何申请,避免了因遇到不明白问题而中断申请。相比网上申请,此种渠道更适合年纪较大或不经常上网的人群,不过耗时耗力也是此种渠道的弊端。

打开浏览器，进入【天津市小客车调控管理信息系统】主页。

如果注册过，在绿色按钮处，输入手机号，查询密码，验证码登录进入。如果是第一次打开网页，接着往下看。

点击菜单中【增量指标申请】，下拉菜单选择对应的选项。

仔细阅读【小客车总量调控管理办法】规定，下拉【身份类型】，选择对应的选项，选择好后，点击下一步按钮。

输入信息，包括姓名、性别、身份z号等详细的信息，点击下一步按钮。

核对输入是否有误，有不对，点击上一步修改，确认无误，点击“确认”。

输入联系方式等信息，点击【提交】，网上摇号汽车牌照就申请成功。

---