简单的vb程序代码(简单的vb程序代码带图片)
简单VB代码编写
首先先设计完界面（省略），然后编写一个通用的颜色函数：
sub
colorchange(r
as
integer,g
as
integer,b
as
integer)
label1.backcolor=rgb(r,g,b)
end
sub
然后双击每个水平滚动条，在里边都写这样的代码：
colorchange(cint(hs1.value),cint(hs2.value),cint(hs3.value))
大致给你一个思路，看看如何？相信自己思考会写出。
vb简单程序代码
我做的，你看看，自己修改修改吧，附件传不上，就贴代码吧，控件就几个
2个command，2个label，1个text,1个timer。直接放就行
Dim?sj?As?Integer,?jia?As?Integer,?bjia?As?Integer,?total?As?Integer
Private?Sub?Command1_Click()
Call?chou
Timer1.Enabled?=?True
Command2.Top?=?Command1.Top
Command2.Left?=?Command1.Left
Command1.Visible?=?False
Command2.Visible?=?True
End?Sub
Private?Sub?Command2_Click()
If?Val(Text1)?=?jia?+?bjia?Then
????total?=?total?+?10
Else
????total?=?total?-?10
End?If
Label2.Caption?=?"总分："?+?Str(total)
????Call?chou
????Text1?=?""
If?total??0?Then
????MsgBox?"分数低于0，GameOver！",?vbExclamation,?"游戏"
????Timer1.Enabled?=?False
????Command1.Visible?=?True
????Command2.Visible?=?False
????total?=?0
????Exit?Sub
ElseIf?total?=?100?Then
????MsgBox?"分数满100分，游戏结束！",?vbExclamation,?"游戏"
????Timer1.Enabled?=?False
????total?=?0
????Exit?Sub
End?If
sj?=?10
End?Sub
Private?Sub?Form_Load()
Timer1.Enabled?=?False
Timer1.Interval?=?1000
Me.Caption?=?"小游戏"
Command1.Caption?=?"开始"
Command2.Caption?=?"确定"
Command2.Visible?=?False
Text1?=?""
Label2.Caption?=?"总分：？"
Label1.Caption?=?"？+？"
sj?=?10
End?Sub
Sub?chou()
Randomize
jia?=?Int(Rnd(1)?*?89?+?10)
bjia?=?Int(Rnd(1)?*?89?+?10)
Label1.Caption?=?Str(jia)?+?"+"?+?CStr(bjia)?+?"=??"
Text1.SetFocus
End?Sub
Private?Sub?Timer1_Timer()
If?sj?=?0?Then
????total?=?total?-?10
????sj?=?10
????Call?chou
End?If
Me.Caption?=?"小游戏??"?+?Str(sj)?+?"秒"
sj?=?sj?-?1
End?Sub
如何使用VB编写一个简单的小程序？
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。
接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。
然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。
接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。
然后，程序看起来是做好了，单击如图所示的运行按钮，弹出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。
最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。