我想学VB编程该从哪里入手呢？

我现在想学习VB编程，但是不知道该从哪里入手好。还请高手指点指点！

答案：初学者之路的vb课程不错的，你去学学 http://www.cxzzl.com.cn/cxzzlschool/index.asp?boardid=56
一个简单的计算器：代码 '定义变量 Dim optiontag, a1, k '数字0 Private Sub cmd0_Click() txt1 = txt1 & 0 End Sub '数字1 Private Sub cmd1_Click() txt1 = txt1 & 1 End Sub '数字2 Private Sub cmd2_Click() txt1 = txt1 & 2 End Sub '数字3 Private Sub cmd3_Click() txt1 = txt1 & 3 End Sub '数字4 Private Sub cmd4_Click() txt1 = txt1 & 4 End Sub '数字5 Private Sub cmd5_Click() txt1 = txt1 & 5 End Sub '数字6 Private Sub cmd6_Click() txt1 = txt1 & 6 End Sub '数字7 Private Sub cmd7_Click() txt1 = txt1 & 7 End Sub '数字8 Private Sub cmd8_Click() txt1 = txt1 & 8 End Sub '数字9 Private Sub cmd9_Click() txt1 = txt1 & 9 End Sub '+号 Private Sub cmdadd_Click() a1 = txt1 txt1 = "" optiontag = 1 End Sub '*号 Private Sub cmdche_Click() a1 = txt1 txt1 = "" optiontag = 3 End Sub '/号 Private Sub cmdchu_Click() a1 = txt1 txt1 = "" optiontag = 4 End Sub '清除 Private Sub cmdclear_Click() txt1 = "" End Sub '结果 Private Sub cmdjie_Click() '判断文本框是否有数字输入 If txt1 = "" Then k = MsgBox("请输入数据！", vbOKOnly, "信息提示") End If '计算部分 Select Case optiontag Case 1 txt1.Text = Val(a1) + Val(txt1.Text) Case 2 txt1.Text = Val(a1) - Val(txt1.Text) Case 3 txt1.Text = Val(a1) * Val(txt1.Text) Case 4 '判断分母不能为0 If txt1.Text = "0" Then k = MsgBox("分母不能为0！", vbOKOnly, "信息提示") txt1.SetFocus Else txt1.Text = Val(a1) / Val(txt1.Text) End If End Select End Sub '-号 Private Sub cmdsub_Click() a1 = txt1 txt1 = "" optiontag = 2 End Sub 窗体如下： 
找本vb编程入门  按着上边的所有实例 做一遍基本vb就差不多了
学VB是易学难精，学完了也没太多用处，还要连接数据库。做个恶作剧倒是很容易。
找一般VB可视化程序设计的书，自己在家仔细的看1个月，看的同时再找一些成品的VB程序，结合书中的基本知识就差不多了。你基本学会了，但是只是皮毛，如果想学的精，确是很那，个人感觉Vb的用处不大。

上一个：我想学VC/VB，从头学起
下一个：计算机编程c与vb