想自学vb编程，求几个好一点的网站

50分！！一定要是精选的哦，随便找的请绕道……

追问：来自手机问问酷睿2双核T8300 2.4G 2.0G内存 80G硬盘 15.4寸超大宽屏 内置无线 2小时待机 DVD光驱=1520元

答案：http://www.enet.com.cn/eschool/video/vb 很入门的；做
http://wenku.zhaoxi.net/view/8db7a14cf7ec4afe04a1df76.html VB做为一门入门级，之所以那好用，那很大方面得益于能调用大量现在WINDOWS API；
http://wenku.zhaoxi.net/view/3120784de518964bcf847cc7.html?from=rec&pos=0&weight=296&lastweight=101&count=5 高级编程；
以上为百度文库的；
http://msdn.itellyou.cn/ 下载官方自CSDN包；
 
http://forum.csdn.net/BList/VB/UnClosedList csdn,做开发不了解这个网站
当然以上都VB 6。0;；注：vb用于小软件的开发有很大的便利；做更多的事：从工具要升级VB 2008,可以的再用.net；
最后：语言每个都在更新；所要掌拨软件的实质，得去了解数据结构，算法；51cto里数据结构自学；80课的很不错；
 
这个 http://download.chinaitlab.com/special/vbebook.htm
一 
Private Sub Text1_Change()
If Val(Text1.Text) < 60 Then Label1.Caption = "不及格"
If Val(Text1.Text) >= 60 Then Label1.Caption = "及格"
If Val(Text1.Text) >= 80 Then Label1.Caption = "良好"
If Val(Text1.Text) >= 90 Then Label1.Caption = "优秀"
End Sub
二 
Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If A = 0 Then
MsgBox "A不得为0"
ElseIf B * B - 4 * A * C >= 0 Then
X = "X2=" 

上一个：vb编程 找出所有3-5位数中的升序数
下一个：VB编程中的列表框怎样制作多列文字！