vb编写公式

哦啦啦 2024-05-28 02:11:34

最佳回答

private sub command1_click()dim s() as double, n() as doubledim lxx as double, lyy as double, lxy as double, r as doubledim i as integer, n1 as integeron error goto ern1 = 3for i = 0 to n1 - 1 redim preserve s(i) s(i) = cdbl(inputbox("请输入s(" & i + 1 & ")"))nextfor i = 0 to n1 - 1 redim preserve n(i) n(i) = cdbl(inputbox("请输入n(" & i + 1 & ")"))nextlxx = sum_logs2(s()) - sum_log(s()) ^ 2 / n1lyy = sum_logs2(n()) - sum_log(n()) ^ 2 / n1lxy = sum_s_n_log(s(), n()) - sum_log(s()) * sum_log(n()) / n1r = lxy / sqr(lxx * lyy)msgbox "r=" & format(r, "0.00000")er:end subprivate function sum_log(s() as double) as doubledim i as integer, s1 as doublefor i = lbound(s) to ubound(s) s1 = s1 + log(s(i)) / log(10)nextsum_log = s1end functionprivate function sum_logs2(s() as double) as doubledim i as integer, s1 as doublefor i = lbound(s) to ubound(s) s1 = s1 + log(s(i) ^ 2) / log(10)nextsum_log2 = s1end functionprivate function sum_s_n_log(s() as double, n() as double) as doubledim i as integer, s1 as doublefor i = lbound(s) to ubound(s) s1 = s1 + log(s(i)) * log(n(i)) / log(10) ^ 2nextsum_s_n_log = s1end function 20210311

汇率兑换计算器

兑换金额：

持有货币：

兑换货币：

兑换结果：

类似问答

股票指标公式编写
- 2024-05-28 15:42:47
- 提问者: 未知
首先说明一下,通达信默认不会一下显示1500根k这么多k线,所以如果你不把初始显示k线数量调大计算是不对的,但要是用于选股公式是没有任何影响的. dif:=ema(c,12)-ema(c,26);dea:=ema(dif,9);jx:=barslast(cross(dif,dea));sx:=barslast(cross(dea,dif));zf:=if(sx=0,ref(c,jx)/c-1,0)...
编写通达信指标公式
- 2024-05-28 18:54:29
- 提问者: 未知
a:=ma(c,5);b:=ma(c,46);(a-b)/b>0.8;
通达信公式编写
- 2024-05-28 07:40:37
- 提问者: 未知
算术函数if（逻辑判断）语句相当于我们平时所说的”如果.那么。if-根据条件求不同的值.用法:if(x,a,b)若x不为0则返回a,否则返回b 例如:if(close>open,high,low)表示该周期...
博易**公式编写
- 2024-05-28 11:37:48
- 提问者: 未知
点y,然后输入6 6分钟图, 不知道你要计算什么
vb编程
- 2024-05-28 21:41:31
- 提问者: 未知
第二windows系统中未安装vb编程环境则需通过vb的package&deployment 向导生成安装包(安装程序)来进行安装注册,方能运行,特别要注意,所开发的vb的exe文件最好再无vb编程环境...
通达信选股公式编写
- 2024-05-28 01:35:50
- 提问者: 未知
m:=55; n:=34; lc:=ref(close,1); rsi:=((sma(max((close - lc),0),3,1) / sma(abs((close - lc)),3,1)) * 100); ff:=ema(close,3); ma15:=ema(close,21); var1:=if(year>=2038 and month>=1,0,1); var2:=ref(...
通达信公式编写
- 2024-05-28 15:15:36
- 提问者: 未知
第一个公式：ref(hhv(c,22),1)/ref(c,23)>1.5 and c/ref(hhv(c,22),1)<0.8;测试通过!第二个公式：ref(hhv(c,22),1)/ref(c,23)>1.5 and c/xs.ldn>1 and c/xs.ldn<1.05;测试通过!提示：第二个公式回调的是ldn之上一个5%的区域，这样选股会稍多一些，以便抓住更多...
股票函数公式编写
- 2024-05-28 04:08:36
- 提问者: 未知
between/ **入通达信，说有未知字串符，求高手帮忙，到底哪里出了问题？量比:=dyna**(17);涨幅:=(dyna**(7)-dyna**(3))*100/dyna**(3);现换手:=dyna**(9)*100/...
编写一个vb程序
- 2024-05-28 14:29:40
- 提问者: 未知
随机产生20个学生的成绩，按降序排列后打印输出。然后统计各分数段人数，即0-59,60-69,70-79,80-89,90-100，然后显示统计结果。最后计算出平均分和方差d，并显示。...
编写一个vb程序
- 2024-05-28 01:22:28
- 提问者: 未知
在d盘创建一个txt文本文件，名字是fenshu。并在文本文件里面写入分数以英文格式的逗号“,”隔开。如87,76,46,99,100,63创建好之后就可以运行这段代码了。不过不明白的是你是要只统计59分的还是59分及以下，99分那个也是的。我下面写的是包括统计59分及以下的，如果是只统计某一个数，就和100分的那个是一样的。dim m,a(6) as integeropen "d:\f...

vb编写公式

房贷计算器-九子财经 | 备案号： 桂ICP备19010581号-1 商务联系 企鹅：2790-680461

房贷计算器-九子财经 | 备案号：桂ICP备19010581号-1 商务联系企鹅：2790-680461