' 关于VB.net { Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言，可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大，导致VB.net对VB的向后兼容性不好，在业界引起不小的争议。 } ' VB.net与VB6.0的主要区别 { VB.Net需要在.Net Framework平台上才能执行，因此，大多的VB.Net程序员使用Visual Studio.Net作为IDE(integrated development environment-集成性的开发环境)开发.net应用程序。 VB6生成的应用程序不需要.Net Framework框架的支持。 因此，使用VB.net开发的应用程序只能在装有.Net Framework框架的系统中运行。 } ' VB.net与VB6.0的编程思想 { 网上流传的VB与VB.net差别被过分夸大。其实VB.net改善的只是完整的面向对象思想，90%语法与VB6.0保持一致。 抽象、封装、多态、继承是面向对象语言的四个基本属性。VB6.0不支持继承，而VB.NET则不然。所以，和C++一样，VB.NET也是完全面向对象的编程语言。 } ' VB.net与VB6.0的应用前景(个人观点 By 刺猬) ( 介于现在应用最为广泛WindowsXP操作系统没有预装.net framework的原因，许多VB程序员采用VB6.0开发应用程序；但现在不一样了，在未来，WindowsXP系统必将面临淘汰。继Vista以后，系统都预装了.net framework框架，由此看来，微软正在极力推崇使用.net技术。或许，.net应用程序的开发在未来会有很大的发展前景。 }
成都创新互联公司主要从事成都网站建设、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务元江县,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
求采纳
Public Class Form1
Inherits System.Windows.Forms.Form
Private City(33) As String '市 数组
Public Province(33) As String '省 数组
'初始化省市地区名
Public Function Init() As Boolean
City(0) = "东城,西城,崇文,宣武,朝阳,丰台,石景山,海淀,门头沟,房山,通州,顺义,昌平,大兴,平谷,怀柔,密云,延庆"
City(1) = "黄浦,卢湾,徐汇,长宁,静安,普陀,闸北,虹口,杨浦,闵行,宝山,嘉定,浦东,金山,松江,青浦,南汇,奉贤,崇明"
City(2) = "和平,东丽,河东,西青,河西,津南,南开,北辰,河北,武清,红挢,塘沽,汉沽,大港,宁河,静海,宝坻,蓟县"
City(3) = "万州,涪陵,渝中,大渡口,江北,沙坪坝,九龙坡,南岸,北碚,万盛,双挢,渝北,巴南,黔江,长寿,綦江,潼南,铜梁,大足,荣昌,壁山,梁平,城口,丰都,垫江,武隆,忠县,开县,云阳,奉节,巫山,巫溪,石柱,秀山,酉阳,彭水,江津,合川,永川,南川"
City(4) = "石家庄,邯郸,邢台,保定,张家口,承德,廊坊,唐山,秦皇岛,沧州,衡水"
City(5) = "太原,大同,阳泉,长治,晋城,朔州,吕梁,忻州,晋中,临汾,运城"
City(6) = "呼和浩特,包头,乌海,赤峰,呼伦贝尔盟,阿拉善盟,哲里木盟,兴安盟,乌兰察布盟,锡林郭勒盟,巴彦淖尔盟,伊克昭盟"
City(7) = "沈阳,大连,鞍山,抚顺,本溪,丹东,锦州,营口,阜新,辽阳,盘锦,铁岭,朝阳,葫芦岛"
City(8) = "长春,吉林,四平,辽源,通化,白山,松原,白城,延边"
City(9) = "哈尔滨,齐齐哈尔,牡丹江,佳木斯,大庆,绥化,鹤岗,鸡西,黑河,双鸭山,伊春,七台河,大兴安岭"
City(10) = "南京,镇江,苏州,南通,扬州,盐城,徐州,连云港,常州,无锡,宿迁,泰州,淮安"
City(11) = "杭州,宁波,温州,嘉兴,湖州,绍兴,金华,衢州,舟山,台州,丽水"
City(12) = "合肥,芜湖,蚌埠,马鞍山,淮北,铜陵,安庆,黄山,滁州,宿州,池州,淮南,巢湖,阜阳,六安,宣城,亳州"
City(13) = "福州,厦门,莆田,三明,泉州,漳州,南平,龙岩,宁德"
City(14) = "南昌市,景德镇,九江,鹰潭,萍乡,新馀,赣州,吉安,宜春,抚州,上饶"
City(15) = "济南,青岛,淄博,枣庄,东营,烟台,潍坊,济宁,泰安,威海,日照,莱芜,临沂,德州,聊城,滨州,菏泽"
City(16) = "郑州,开封,洛阳,平顶山,安阳,鹤壁,新乡,焦作,濮阳,许昌,漯河,三门峡,南阳,商丘,信阳,周口,驻马店,济源"
City(17) = "武汉,宜昌,荆州,襄樊,黄石,荆门,黄冈,十堰,恩施,潜江,天门,仙桃,随州,咸宁,孝感,鄂州"
City(18) = "长沙,常德,株洲,湘潭,衡阳,岳阳,邵阳,益阳,娄底,怀化,郴州,永州,湘西,张家界"
City(19) = "广州,深圳,珠海,汕头,东莞,中山,佛山,韶关,江门,湛江,茂名,肇庆,惠州,梅州,汕尾,河源,阳江,清远,潮州,揭阳,云浮"
City(20) = "南宁,柳州,桂林,梧州,北海,防城港,钦州,贵港,玉林,南宁地区,柳州地区,贺州,百色,河池"
City(21) = "海口,三亚"
City(22) = "成都,绵阳,德阳,自贡,攀枝花,广元,内江,乐山,南充,宜宾,广安,达川,雅安,眉山,甘孜,凉山,泸州"
City(23) = "贵阳,六盘水,遵义,安顺,铜仁,黔西南,毕节,黔东南,黔南"
City(24) = "昆明,大理,曲靖,玉溪,昭通,楚雄,红河,文山,思茅,西双版纳,保山,德宏,丽江,怒江,迪庆,临沧"
City(25) = "拉萨,日喀则,山南,林芝,昌都,阿里,那曲"
City(26) = "西安,宝鸡,咸阳,铜川,渭南,延安,榆林,汉中,安康,商洛"
City(27) = "兰州,嘉峪关,金昌,白银,天水,酒泉,张掖,武威,定西,陇南,平凉,庆阳,临夏,甘南"
City(28) = "银川,石嘴山,吴忠,固原"
City(29) = "西宁,海东,海南,海北,黄南,玉树,果洛,海西"
City(30) = "乌鲁木齐,石河子,克拉玛依,伊犁,巴音郭勒,昌吉,克孜勒苏柯尔克孜,博 尔塔拉,吐鲁番,哈密,喀什,和田,阿克苏"
City(31) = ""
City(32) = ""
City(33) = "台北,高雄,台中,台南,屏东,南投,云林,新竹,彰化,苗栗,嘉义,花莲,桃园,宜兰,基隆,台东,金门,马祖,澎湖"
Province(0) = "北京"
Province(1) = "上海"
Province(2) = "天津"
Province(3) = "重庆"
Province(4) = "河北"
Province(5) = "山西"
Province(6) = "内蒙古"
Province(7) = "辽宁"
Province(8) = "吉林"
Province(9) = "黑龙江"
Province(10) = "江苏"
Province(11) = "浙江"
Province(12) = "安徽"
Province(13) = "福建"
Province(14) = "江西"
Province(15) = "山东"
Province(16) = "河南"
Province(17) = "湖北"
Province(18) = " 湖南"
Province(19) = "广东"
Province(20) = "广西"
Province(21) = "海南"
Province(22) = "四川"
Province(23) = "贵州"
Province(24) = "云南"
Province(25) = "西藏"
Province(26) = "陕西"
Province(27) = "甘肃"
Province(28) = "宁夏"
Province(29) = "青海"
Province(30) = "新疆"
Province(31) = "香港"
Province(32) = "澳门"
Province(33) = "台湾"
End Function
'得到省相对应的市
Public Function GetCity(ByVal a As ComboBox, ByVal b As ComboBox) As Boolean
b.Items.Clear()
Dim num, x1, i
num = a.SelectedIndex
x1 = Split(City(num), ",")
For i = 0 To UBound(x1)
b.Items.Add(x1(i))
Next
End Function
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Init()
ComboBox1.Items.AddRange(Province)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
GetCity(ComboBox1, ComboBox2)
End Sub
End Class
这是典型对.net构架不理解造成的！
只要是.net编程，一定使用的是.net类库，必须是同运行版本的.net支持方可运行。而所谓的vb.net只是说编程的语言层使用的是vb语言而已。该语言在.net构架下被编译成为IL语言(MSIL,严格说来是IL的一个子集）。而上层的语言只是产生软件时所使用的一个不同语言规则而已，与IL已经没有任何相关性了。上层语言无论是C#还是VB，甚至是Java(J#)均只适应编程人员的一个策略，与整个构造没有多大的相关性。
.net的最终目的就是让不同的语言编程人员能协同工作，那么语言在其中的区别没有多大了，所有的运行核心都是由.net完成的，没有必须依赖于.net。这是没有任何疑问的。
vb.net就是.net，只是表示用VB语言人的称呼，用C#的则称其为C#.net，但不管是哪种，它是无法脱离.net的。
我觉得在特定的公司特定的系统可能VB.NET会很好用，比如在使用SAP的公司，VB.NET 就可以控制SAP做一些数据处理或分析。
注：SAP，为“System Applications and Products”的简称，是SAP公司的产品——企业管理解决方案的软件名称。
而且很多公司使用SAP，如下
广东生益科技股份公司
康佳集团股份有限公司
ABB 中国有限公司
上海先进半导体制造有限公司
深圳长科国际电子有限公司
西门子光缆有限公司成都
Sony China Ltd.
索尼精密仪器有限公司
西菱输变电设备制造有限公司
苏州日立半导体有限公司
联想电脑有限公司
上海贝尔电话设备制造有限公司
三星中国总部
深圳三星电管有限公司
天津三星电管有限公司
施耐德电气公司
深圳华为
博西扬制冷设备有限公司
中国长城计算机深圳股份有限公司
Natsteel Electronics Ltd (Shanghai)
上海贝岭股份有限公司
上海实业交通电器有限公司
汤姆逊佛山彩色显像管有限公司
天津三星电机有限公司
TriGem Computer (Shenyang) Co., Ltd
赫比（上海）电子有限公司
东莞新科电子厂
惠州三星电子
夏新电子股份有限公司
FOXCONN 宏讯电子公司
深宝电器有限公司
Canton Creative Inc.
东莞三星电机有限公司
上海亚明灯泡厂有限公司
上海港机股份有限公司
上海胜家缝纫机有限公司
比亚乔.佛山摩托车企业有限公司
上海希科水电设备有限公司
上海机床厂
上海三菱电梯有限公司
上海宝森金属加工有限公司
上海汽轮发电机有限公司
力士乐(中国)有限公司
普鲁士格*诺尔--招商局机械工程有限公司
北京哈德威四方保护与设备控制有限公司
PRIMAX 制造有限公司
上海爱德夏机械有限公司
上海克虏伯不锈钢有限公司.
夏普办公设备（常熟）有限公司
WDI(Xiamen) Plumbing Inc.
爱克发(无锡)胶片有限公司
拜尔无锡皮革化工有限公司
杜邦纤维（中国）有限公司
天津汉高洗涤剂有限公司
上海石化股份有限公司
中国化工进出口总公司
深圳芭田复合肥有限公司
博世西门子家电销售公司
中国国际贸易中心有限公司
上海锦江麦德龙购物中心有限公司
新华书店
九川物流(珠海)有限公司
上海花王有限公司
上海百安居装饰建材有限公司
Shanghai Easelink e-commerce Inc.
eneca China Investment Company Ltd
拜尔医药保健有限公司
藩阳山之内制药有限公司
齐鲁替比奥制药有限公司
拜耳（中国）有限公司
Daiichi Pharmaceutical (Beijing)
广州药业股份有限公司
武汉红桃K
深圳三九医药
上海大众
联合汽车电子有限公司
神龙汽车有限公司
一汽大众汽车有限公司
通用汽车海外公司
上海通用汽车有限公司(SGM)
上海德尔福汽车空调系统有限公司
Daimler Chrysler North East Asia
金杯通用汽车有限公司
扬州亚星客车股份有限公司
亚星-奔驰有限公司
浙江吉利汽车有限公司
桂林大宇客车有限公司
联合饼干中国有限公司广州分公司
广东乐百氏集团公司
英特儿营养乳品有限公司
大成食品（大连）有限公司
上海梅林正广和集团有限公司
秋巴秋甫斯（上海）食品有限公司
联合饼干中国有限公司上海分公司
联合饼干中国有限公司
广东健力宝集团
上海震旦家具有限公司
无锡博世西门子家电有限公司
Sony（中国）有限公司上海分公司
东莞佳力木业有限公司
上海日立电器有限公司
日立上菱电器有限公司
美时家具
杭州西泠制冷电器有限公司
南京夏普电子有限公司
上海夏普电器有限公司
美标（中国）有限公司
海尔集团公司(海尔空调)
江苏无锡小天鹅
松下万宝广州空调器压缩机有限公司
四川长虹电子集团公司
宁波中华纸业
亚洲纸浆业股份有限公司
苏州工业园亚太纸品有限公司
金光纸业（中国）投资有限公司
山西平朔安家岭煤矿
浙江省电力公司财务处
苏州工业园区华能发电责任有限公司
广西来宾希诺基发电运营维护有限公司
上海外高桥电厂
中国航空油料总公司
浙江省电力公司
安德鲁电信器材(苏州)有限公司
深圳华为
Ericsson China Company Ltd
诺基亚(中国)投资有限公司
神州数码有限公司
上海朗讯科技光钎有限公司
西门子（中国）有限公司上海分公司
上海西门子移动通信有限公司
西门子（中国）有限公司
UMAX 数据系统（苏州）
成都阿尔卡特通信系统有限公司
上海贝尔阿尔卡特股份有限公司
北京飞机维修工程有限公司
CONTINENT HYPERMARKET
SISP REPRESENTATIVE OFFICE BEIJING
顶新集团
丹佛斯(天津)有限公司
Du Pont Polyester, Ltd.
Elin Transformer Guangzhou Co.,Ltd.
广州美晨集团有限公司
广州豪雅光学有限公司
珠海华丰集团
肯纳金属(上海)有限公司
柯达电子(上海)有限公司
柳州采孚
珠海励致
浙江日发集团
欧文斯科宁(广州)有限公司
欧文斯科宁(上海)有限公司
牛津大学出版社
广州宝洁有限公司
SEW -EORODRIVE（天津）有限公司
巴斯夫(中国)有限公司
北京李宁体育用品有限公司
长青集团
广东佛山石湾鹰牌陶瓷集团
金轮集团
江裕科技园新会有限公司
Nanfang Com.Sys.Software Co.Ltd
番禺创信鞋业有限公司
普华永道咨询（上海）有限公司
深圳开发科技股份有限公司
深圳赛格三星股份有限公司
盐田国际集装箱码头有限公司
东莞Wellko鞋业
四川龙蟒集团
NPGZ
北京极地支点科技有限公司
江西亚东水泥有限公司
北京首信股份有限公司
咨询公司
大成集团
古惑在线
Kone
广州箭牌口香糖有限公司
利乐包装
上汽通用五菱
中石化
中国电信
中国远洋
青岛海信
青岛颐中
青岛狮王
青岛昌隆文具
浙江巨化集团
娃哈哈
农夫山泉
