什么时候能穿3件橙装:怎么VB编程?

先去书店弄本VB的教程。。。
还有看你想学到什么水平 了，
要是只想学着玩。就没必要买太好的书
但是要想学好就得找个班。好好学下了

www.ibook8.com 宁波电大 黄文 视频讲座
www.vbgood.com vb权威网站 （内有论坛有很多源码下载）
慢慢享受吧。：）

初学的话强烈建议下载视屏教程来看，这样连老师出的错和调试过程都看在眼里，而且绝对比看书有趣～～
不过如果你已经有一定的基础，那就会觉得视屏教程有很多废话，又不好拉过去…………这个蛮痛苦的～～
还有学程序一定一定得买本教材来看，越详细的越好～～
VB的教材五花八门，但其实都差不多，不会选的话就选本写着“基础”或“入门”的吧，要厚一些的，最好有截图～～
关键还是多做练习哟～～

买开天辟地4，编程入门篇，有VC，VB和VFP，要什么有什么。
实例1：
VERSION 6.00
Begin VB.Form form1
Caption = "第一个VB程序"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
DrawStyle = 6 'Inside Solid
DrawWidth = 2
LinkTopic = "Form1"
ScaleHeight = 213
ScaleMode = 3 'Pixel
ScaleWidth = 312
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "别点我，我和上面按钮一样"
Height = 615
Left = 840
TabIndex = 2
Top = 2040
Width = 2895
End
Begin VB.CommandButton Command1
Caption = "点我呀，有胆你就点我"
Height = 615
Left = 840
TabIndex = 1
Top = 1080
Width = 2895
End
Begin VB.Label Label1
Caption = "这是我的第一个VB程序"
Height = 255
Left = 1320
TabIndex = 0
Top = 600
Width = 1935
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
MsgBox ("你的性格是不受威胁，坚强不屈，有这股拚劲儿，你一定能学好VB")
End Sub

Private Sub Command2_Click()
MsgBox ("你的好奇心很强，喜欢尝试各种事物，有这种精神，你一定能学好VB")
End Sub
实例2：
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00C0C0C0&
Caption = "计算器"
ClientHeight = 915
ClientLeft = 5565
ClientTop = 4875
ClientWidth = 3360
LinkTopic = "Form1"
ScaleHeight = 915
ScaleWidth = 3360
Begin VB.TextBox OutputText
BackColor = &H00FFFFFF&
Height = 300
Left = 2400
Locked = -1 'True
TabIndex = 3
Top = 75
Width = 800
End
Begin VB.CommandButton RunCommand
BackColor = &H00000000&
Caption = "计算"
Height = 375
Left = 360
TabIndex = 2
Top = 480
Width = 2700
End
Begin VB.TextBox InputText2
BackColor = &H00FFFFFF&
Height = 300
Left = 1300
TabIndex = 1
Top = 75
Width = 800
End
Begin VB.TextBox InputText1
BackColor = &H00FFFFFF&
Height = 300
Left = 200
TabIndex = 0
Top = 75
Width = 800
End
Begin VB.Label EqualLabel
BackColor = &H00C0C0C0&
Caption = "="
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 2205
TabIndex = 5
Top = 120
Width = 195
End
Begin VB.Label SymbelLabel
BackColor = &H00C0C0C0&
Caption = "*"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 1095
TabIndex = 4
Top = 120
Width = 195
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub RunCommand_Click()
Dim Number1, Number2, Result As Single '变量声明
Number1 = Val(InputText1.Text)
Number2 = Val(InputText2.Text) '获取计算数据
Result = Number1 * Number2 '乘法运算
OutputText.Text = Result '结果显示

End Sub
希望对你学VB有帮助。