永发信息网

用VB编写一个简单公式程序

答案:6  悬赏:0  手机版
解决时间 2021-04-12 01:32
编写一个公式计算,V=0.7854L×[D+0.5L+0.005L2+0.000125L×(14-L)2×(D-10)]2÷1000。提供D,L的值能够求出V的值,急 其中公式中单独的2都是平方,不是乘
最好能在0.000125L×(14-L)2×(D-10)这部分结果保留3位有效数字
最佳答案
建一个Command1,单击按钮即可。
代码如下。
===============
Private Sub Command1_Click()
Dim D As Double, L As Double, v As Double
D = InputBox("D=?")
L = InputBox("L=?")
v = 0.7854 * L * (D + 0.5 * L + 0.005 * L ^ 2 + Round(0.000125 * L * (14 - L) ^ 2 * (D - 10), 3)) ^ 2 / 1000
Print v
End Sub
全部回答
上面的程序有问题 '给窗口加3个TEXT控件 text.text 都设为0,再加个COMMAND 控件 '付上以下程序 OK了 Private Sub Command1_Click() Dim D As Single, L As Single D = Val(Text1.Text) L = val(Text2.Text) v = 0.7854 * L * (D + 0.5 * L + 0.005 * L ^ 2 + 0.000125 * L * (14 - L) ^ 2 * (D - 10)) ^ 2 / 1000 Text3.Text = v End Sub
Private Sub Command1_Click() Dim D As Double, L,v As Double D = Text1.text L = Text2.text v = 0.7854 * L * (D + 0.5 * L + 0.005 * L ^ 2 + 0.000125 * L * (14 - L) ^ 2 * (D - 10)) ^ 2 / 1000 text3.text=v End Sub
'未作错误处理,假设你的数据都是合法的 private sub form_load() dim f, x, p, n n = inputbox("n:", , 10) x = inputbox("x:", , 5) p = x / n f = fc(n) / (fc(x) * fc((n - x))) * p ^ x * (1 - p) ^ (n - x) msgbox f unload me end sub function fc(n) dim i as long fc = 1 for i = 1 to n fc = fc * i next end function
Private Sub Command1_Click() Dim D As Double, L As Double D = Text1.text L = Text2.text v = 0.7854 * L * (D + 0.5 * L + 0.005 * L ^ 2 + Round(0.000125 * L * (14 - L) ^ 2 * (D - 10),3)) ^ 2 / 1000 Print v End Sub
Private Sub Command1_Click() Dim D As Double, L As Double D = Text1.text L = Text2.text v = 0.7854 * L * (D + 0.5 * L + 0.005 * L ^ 2 + format(0.000125 * L * (14 - L) ^ 2 * (D - 10),"0.000")) ^ 2 / 1000 Print v End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
怎么才能让进入黑名单的人不能给我发送 消息
水瓶男如何对待初恋情人
谁知道魔域白频是浪个回事哦?
3年车龄的二手东风天龙前四后八**货车大概要
DNF进不去.不重启可以再进去吗?
大舞厅地址有知道的么?有点事想过去
桃树、杏树、梨树,你不让我,我不让你,都开
如果我喜欢一个人,但她不喜欢我怎么办?
脑筋急转弯;壶、杯、盅等瓷器如积有茶垢,可
windows7的自带备份到底如何?
农历1989年07月17日是什么塔罗牌
问一个物理能量转化的问题。
群主怎么把自己的QQ好友加入自己的群,最好配
急急急!谁知道在哪里可以买到艾恩摩尔的牛奶
东升新区地址有知道的么?有点事想过去
推荐资讯
许昌至广西贺洲火车票查询
按健精灵算不算外挂?
凯立德导航版本号c3261-c7p13-3d21j0w 怎么运
高尔夫自动挡多少钱 高尔夫自动挡最新报价
丝路英雄中的旗面怎么得到呢
福利路/福源街南一路(路口)怎么去啊,有知道
本周计划怎么写,银行贷款用款计划书
中国功夫实战能力强的有哪些??
下图漫画《补》说明我们现在的小康BA. 是低水
如图所示,木块放在水平地面上,在F=8N的水平
非奇异矩阵是什么,什么是非奇异矩阵
读“大陆、海洋分布模式图”,回答小题。1.图
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?