vb程序设计实例

vb程序设计实例,第1张

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的拦扒过程中不断地得到提高。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12508619.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-26
下一篇 2023-05-26

发表评论

登录后才能评论

评论列表(0条)

保存