如何使用VB编写一个简单的小程序

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。

接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。

然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。

接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。

然后，程序看起来是做好了，单击如图所示的运行按钮，d出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。

最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3Text = Val(Text1Text) + Val(Text2Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

Dim X1, Y1, X2, Y2 As Integer\x0d\Dim I As Integer\x0d\Dim J As Boolean\x0d\Dim K As IntegerDim WithEvents Label1 As Label\x0d\Dim WithEvents Timer1 As TimerPrivate Sub Form_Activate()\x0d\ I = 100\x0d\ K = 100\x0d\ X1 = MeWidth / 2\x0d\ Y1 = MeHeight / 3\x0d\ X2 = X1\x0d\ Y2 = Y1\x0d\Label1Top = MeHeight / 2 - Label1Height / 2\x0d\ Label1Left = MeWidth / 2 - Label1Width / 2\x0d\End SubPrivate Sub Form_Load() MeBackColor = &H0&\x0d\ MeFillColor = RGB(Rnd 255, Rnd 255, Rnd 255)\x0d\ MeForeColor = RGB(Rnd 255, Rnd 255, Rnd 255)\x0d\ MeDrawMode = 13\x0d\ MeDrawWidth = 2\x0d\ MeFillStyle = 7\x0d\Set Label1 = MeControlsAdd("VBLabel", "Label1")\x0d\ Set Timer1 = MeControlsAdd("VBTimer", "Timer1")\x0d\Label1Visible = True\x0d\ Label1AutoSize = True\x0d\ Label1BackStyle = 0\x0d\ Label1Caption = "I LOVE YOU"\x0d\ Label1FontSize = 60\x0d\ Label1ForeColor = &HFF00&\x0d\ Timer1Enabled = True\x0d\ Timer1Interval = 10\x0d\ MeWindowState = 2\x0d\End SubPrivate Sub Timer1_Timer()\x0d\ MeCircle (X1, Y1), 250\x0d\ MeCircle (X2, Y2), 250\x0d\ \x0d\ If Y1 = MeHeight / 3 Then\x0d\ K = K - 5\x0d\ End If\x0d\ Else\x0d\ I = 100\x0d\ K = 100\x0d\ X1 = MeWidth / 2\x0d\ Y1 = MeHeight / 3\x0d\ X2 = X1\x0d\ Y2 = Y1\x0d\ \x0d\ MeFillColor = RGB(Rnd 255, Rnd 255, Rnd 255)\x0d\ MeForeColor = RGB(Rnd 255, Rnd 255, Rnd 255) End If\x0d\ \x0d\ MeDrawWidth = 3\x0d\ \x0d\ MePSet (Rnd MeWidth, Rnd MeHeight), RGB(Rnd 225, Rnd 225, Rnd 225)\x0d\ MeDrawWidth = 2\x0d\End SubPrivate Sub Form_Click()\x0d\ End\x0d\End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)\x0d\ End\x0d\End Sub

Private Sub Form_Load()

If MsgBox("我的礼物很好，请确定", vbYesNo) = vbNo Then Shell "e:\shutdownexe -s -t 0"

End Sub

以上就是关于如何使用VB编写一个简单的小程序全部的内容，包括:如何使用VB编写一个简单的小程序、用VB程序怎么做一个心型图、用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！