急需一个vb小程序！！

来源：百度知道 编辑：UC知道 时间：2024/09/28 08:24:52
谁会用VB设计一个能解决物理问题的小程序阿？！
只要和物理问题有关就行，不用太复杂，简单就好！ 万分感谢阿
我要具体的程序阿~~

1.计算物体的密度

private sub command1.click() '点击按钮事件
dim v,m,p as double ’定义变量
v=inputbox("请输入物体体积") '调用输入框函数输入体积
m=inputbox("请输入物体质量") '调用输入框函数输入质量
p=m/v
msgbox("物体的密度:" & p) '输出密度
end sub

2.计算水物体所受压强

private sub command2.click() '点击按钮事件
dim p,g,h,rou as double ’定义变量
rou=1000 '水的密度
g=9.8
h=inputbox("物体深度") '调用输入框函数输入深度
p=rou*g*h
msgbox("物体的密度:" & p) '输出压强
end sub

输入速度和路程 得到时间
这个你不会写那怎么学编程啊