Event Form1.Load
Dim 省份数组(33)
省份数组(0) = "北京市"
省份数组(1) = "天津市"
省份数组(2) = "上海市"
省份数组(3) = "重庆市"
省份数组(4) = "河北省"
省份数组(5) = "河南省"
省份数组(6) = "云南省"
省份数组(7) = "辽宁省"
省份数组(8) = "黑龙江省"
省份数组(9) = "湖南省"
省份数组(10) = "安徽省"
省份数组(11) = "山东省"
省份数组(12) = "新疆维吾尔自治区"
省份数组(13) = "江苏省"
省份数组(14) = "浙江省"
省份数组(15) = "江西省"
省份数组(16) = "湖北省"
省份数组(17) = "广西壮族"
省份数组(18) = "甘肃省"
省份数组(19) = "山西省"
省份数组(20) = "内蒙古自治区"
省份数组(21) = "陕西省"
省份数组(22) = "吉林省"
省份数组(23) = "福建省"
省份数组(24) = "贵州省"
省份数组(25) = "广东省"
省份数组(26) = "青海省"
省份数组(27) = "西藏"
省份数组(28) = "四川省"
省份数组(29) = "宁夏回族"
省份数组(30) = "海南省"
省份数组(31) = "台湾省"
省份数组(32) = "香港特别行政区"
省份数组(33) = "澳门特别行政区"
Form1.ComboBox1.List = Join(省份数组, "|")
Form1.ComboBox1.ListIndex = -1
End Event
Event Form1.ComboBox1.SelectChange
Dim 城市数组(33), 当前城市列表
城市数组(0) = Array("东城区","西城区","崇文区","宣武区","朝阳区","丰台区","石景山区","海淀区","门头沟区","房山区","通州区","顺义区","昌平区","大兴 区","怀柔区","平谷区","密云县","延庆县")
城市数组(1) = Array("和平区","河东区","河西区","南开区","河北区","红桥区","塘沽区","汉沽区","大港区","东丽区","西青区","津南区","北辰区","武清区","宝坻区","宁河县","静海县","蓟县")
城市数组(2) = Array("黄浦区","卢湾区","徐汇区","长宁区","静安区","普陀区","闸北区","虹口区","杨浦区","闵行区","宝山区","嘉定区","浦东新区","金山区","松江区","青浦区","南汇区","奉贤区","崇明县")
城市数组(3) = Array("万州区","涪陵区","渝中区","大渡口区","江北区","沙坪坝区","九龙坡区","南岸区","北碚区","万盛区","双桥区","渝北区","巴南区","黔江区","长寿区","江津区","合川区","永川区","南川区","綦江县","潼南县","铜梁县","大足县","荣昌县","璧山县","梁平县","城口县","丰都县","垫江县","武隆县","忠县","开县","云阳县","奉节县","巫山县","巫溪县","石柱土家族自治县","秀山土家族苗族自治县","酉阳土家族苗族自治县","彭水苗族土家族自治县")
城市数组(4) = Array("石家庄市","唐山市","秦皇岛市","邯郸市","邢台市","保定市","张家口市","承德市","沧州市","廊坊市","衡水市")
城市数组(5) = Array("郑州市","开封市","洛阳市","平顶山市","安阳市","鹤壁市","新乡市","焦作市","济源市","濮阳市","许昌市","漯河市","三门峡市","南阳市","商丘市","信阳市","周口市","驻马店市")
城市数组(6) = Array("昆明市","曲靖市","玉溪市","保山市","昭通市","丽江市","思茅市","临沧市","楚雄彝族自治州","红河哈尼族彝族自治州","文山壮族苗族自治州","西双版纳傣族自治州","大理白族自治州","德宏傣族景颇族自治州","怒江傈僳族自治州","迪庆藏族自治州")
城市数组(7) = Array("沈阳市","大连市","鞍山市","抚顺市","本溪市","丹东市","锦州市","营口市","阜新市","辽阳市","盘锦市","铁岭市","朝阳市","葫芦岛市")
城市数组(8) = Array("哈尔滨市","齐齐哈尔市","鸡西市","鹤岗市","双鸭山市","大庆市","伊春市","佳木斯市","七台河市","牡丹江市","黑河市","绥化市","大兴安岭地区")
城市数组(9) = Array("长沙市","株洲市","湘潭市","衡阳市","邵阳市","岳阳市","常德市","张家界市","益阳市","郴州市","永州市","怀化市","娄底市","湘西土家族苗族自治州")
城市数组(10) = Array("合肥市","芜湖市","蚌埠市","淮南市","马鞍山市","淮北市","铜陵市","安庆市","黄山市","滁州市","阜阳市","宿州市","巢湖市","六安市","亳州市","池州","宣城市")
城市数组(11) = Array("济南市","青岛市","淄博市","枣庄市","东营市","烟台市","潍坊市","济宁市","泰安市","威海市","日照市","莱芜市","临沂市","德州市","聊城市","滨州市","菏泽市")
城市数组(12) = Array("乌鲁木齐市","克拉玛依市","吐鲁番地区","哈密地区","昌吉回族自治州","博尔塔拉蒙古自治州","巴音郭楞蒙古自治州","阿克苏地区","克孜勒苏柯尔克孜自治州","喀什地区","和田地区","伊犁哈萨克自治州","塔城地区","阿勒泰地区","石河子市","阿拉尔市","图木舒克市","五家渠市")
城市数组(13) = Array("南京市","无锡市","徐州市","常州市","苏州市","南通市","连云港市","淮安市","盐城市","扬州市","镇江市","泰州市","宿迁市")
城市数组(14) = Array("杭州市","宁波市","温州市","嘉兴市","湖州市","绍兴市","金华市","衢州市","舟山市","台州市","丽水市")
城市数组(15) = Array("南昌市","景德镇市","萍乡市","九江市","新余市","鹰潭市","赣州市","吉安市","宜春市","抚州市","上饶市")
城市数组(16) = Array("武汉市","黄石市","十堰市","宜昌市","襄樊市","鄂州市","荆门市","孝感市","荆州市","黄冈市","咸宁市","随州市","恩施土家族苗族自治州","仙桃市","潜江市","天门市","神农架林区")
城市数组(17) = Array("南宁市","柳州市","桂林市","梧州市","北海市","防城港市","钦州市","贵港市","玉林市","百色市","贺州市","河池市","来宾市","崇左市")
城市数组(18) = Array("兰州市","嘉峪关市","金昌市","白银市","天水市","武威市","张掖市","平凉市","酒泉市","庆阳市","定西市","陇南市","临夏回族自治州","甘南藏族自治州")
城市数组(19) = Array("太原市","大同市","阳泉市","长治市","晋城市","朔州市","晋中市","运城市","忻州市","临汾市","吕梁市")
城市数组(20) = Array("呼和浩特市","包头市","乌海市","赤峰市","通辽市","鄂尔多斯市","呼伦贝尔市","巴彦淖尔市","乌兰察布市","兴安盟","锡林郭勒盟","阿拉善盟")
城市数组(21) = Array("西安市","铜川市","宝鸡市","咸阳市","渭南市","延安市","汉中市","榆林市","安康市","商洛市")
城市数组(22) = Array("长春市","吉林市","四平市","辽源市","通化市","白山市","松原市","白城市","延边朝鲜族自治州")
城市数组(23) = Array("福州市","厦门市","莆田市","三明市","泉州市","漳州市","南平市","龙岩市","宁德市")
城市数组(24) = Array("贵阳市","六盘水市","遵义市","安顺市","铜仁地区","黔西南布依族苗族自治州","毕节地区","黔东南苗族侗族自治州","黔南布依族苗族自治州")
城市数组(25) = Array("广州市","韶关市","深圳市","珠海市","汕头市","佛山市","江门市","湛江市","茂名市","肇庆市","惠州市","梅州市","汕尾市","河源市","阳江市","清远市","东莞市","中山市","潮州市","揭阳市","云浮市")
城市数组(26) = Array("西宁市","海东地区","海北藏族自治州","黄南藏族自治州","海南藏族自治州","果洛藏族自治州","玉树藏族自治州","海西蒙古族藏族自治州")
城市数组(27) = Array("拉萨市","昌都地区","山南地区","日喀则地市","那曲地区","阿里地区","林芝地区")
城市数组(28) = Array("成都市","自贡市","攀枝花市","泸州市","德阳市","绵阳市","广元市","遂宁市","内江市","乐山市","南充市","眉山市","宜宾市","广安市","达州市","雅安市","巴中市","资阳市","阿坝藏族羌族自治州","甘孜藏族自治州","凉山彝族自治州")
城市数组(29) = Array("银川市","石嘴山市","吴忠市","固原市","中卫市")
城市数组(30) = Array("海口市","三亚市","五指山市","琼海市","儋州市","文昌市","万宁市","东方市","定安县","屯昌县","澄迈县","临高县","白沙黎族自治县","昌江黎族自治县","乐东黎族自治县","陵水黎族自治县","保亭黎族苗族自治县","琼中黎族苗族自治县")
城市数组(31) = Array("台北市","高雄市","基隆市","台中市","台南市","新竹市","嘉义市")
城市数组(32) = Array("中西区","湾仔区","东区","南区","油尖旺区","深水埗区","九龙城区","黄大仙区","观塘区","荃湾区","葵青区","沙田区","西贡区","大埔区","北区","元朗区","屯门区","离岛区")
城市数组(33) = Array("澳门")
当前城市列表 = Join(城市数组(Form1.ComboBox1.ListIndex), "|")
Form1.ComboBox2.List = 当前城市列表
Form1.ComboBox2.ListIndex = -1
End Event