vb程序设计实例

Private Sub Form_Activate()

'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288

Dim x As Double

x = Val(InputBox(""))

Print "①存一次5年期,5年后到期的本息合计"ss(x, 5, x5)

Print "②存一次3年期，一次2年期,5年后到期的本息合计"ss(ss(x, 3, x3), 2, x2)

Print "③存郑蚂一次3年期，两次1年喊橡埋期,5年后到期的本息合计"ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④存两次2年期，一次1年期,5年后到期的本息合计"ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print "⑤存一次2年期，三次1年期,5年后到期的本如碰息合计"ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥存五次1年期,5年后到期的本息合计"ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a * c * b

End Function

Private Sub Form_Load()

AutoRedraw = True

End Sub

计算机的多媒体技术已经广泛普及, 对于一般的用户来说, 采用可视化编程工具是的选择, VB程序设计语言就是其中一个典型的代表。Visual Basic是Microsoft Windows的编程语言。Visual Basic是在一个集成开发环境（IDE）中创建的，IDE使得程序员可以方便地创建、运行和调试Visual Basic程序。Visual Basic是世界上使用最广泛的快速应用程序开发语言。为提高大家学习VB的兴趣，在这里，我们以一个简单的加法程序来体验一下VB的强大功能。

首先我们启动VB，在出现"新建工程"对话框后，选择"标准EXE"，单击"打开"按钮，即进入如下图的VB开发环境。

第一步：单击工具箱中的"TextBox(文本框)"图标 ，移动鼠标指针到窗体Form1上，这时鼠标指针变成了"+"形状。拖出3个并排的有一点间距的方框出来，里面有text1、text2、text3的字样，分别选中它们，按鼠标退格键删除这些字样。再单击"Label(标签)"图标A，在刚才的3个方框之间拖2个标签框，分别键入加号"+"和等于号"="，最后单击"Command（命令按钮）"图标 ，在窗体的下方拖出一个按钮出来，拖出一个带有Command1字样的按钮，直接写上"计算"二字。如图所示：

第二步：双击"计算"按钮，会出现如下的代码窗口：

在Private Sub Command1_Click()和End Sub之间写上如下代码：

M = Val (Text1.Text)

N = Val (Text2.Text)

K = Val (Text3.Text)

If m + n = k Then

Label1.Caption = "正确！"

Else

Label1.Caption = "错误！"

End If

第三步：关闭代码窗口，点"运行"---"启动"。在文本框中分别填写2、5、7，再点"计算"按钮，看窗体上出现什么文字，关闭Forml，再"启动"，填写3、5、7后"计算"，看窗体上出现什么文字。这时你会发现，在输入第一次数据时，会显示正确！在输入第二次数据时，会显示错误！

第四步：最后，我们来保存这个程序：首先点按"文件"----"生成工程"----选择保存地点为"C：\",文件名为"jiafa"----"确定"。再到"C：\"中去，找到这个"jiafa"文件，我们可以从它的后缀名中得知，这是个不依赖VB程序可以独立运行的可执行程序。运行一下，很有成就感吧。

短短四步，我们就可以编制出一个简单的加法简租昌程序，可见，软件的编制并不是那么神秘，只要你肯专心学习，一定会取得非凡成就型物的。以上程序已在vb6.0调试通过。以上所讲的只是VB的一些基本 *** 作，仅取抛砖引玉的作用，希望各位VB高手能提出更多更好的方法，让我们在学习VB的拦扒过程中不断地得到提高。

---