VB编程：自由落体位移公式为：s=gt2 /2+v0t 其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。

2016-07-08 22:00:58  分类: VB程序设计教程第4版答案刘炳文  参与: 人
自由落体位移公式为：
s=gt2 /2+v0t 
其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。设v0=4.8m/s，t=0.5s，g=9.81m/s2 ，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。

以下是此题的【VB源代码】
Private Sub Form_Click()
Const g = 9.81
v0 = InputBox("请输入VO的值")
v0 = Val(v0)
t = InputBox("请输入t的值")
t = Val(t)
s = 0.5 * (g * t ^ 2) + v0 * t
Print "位移量为："; s
End Sub

程序运行后，单击窗体，在两个输入对话框中分别输入v0和t的值（4.8和0.5），将在窗体上输出：
位移量为：3.62625

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_5.9.html

本站文章搜索：

<< 上一篇下一篇 >>

搜索

Tags列表

扫我手机登录

赞助商链接