菜鸟求助,怎么给数组统一算式赋值?
vb.net吧
全部回复
仅看楼主
level 1
如图我要vb.net编程计算一些东西 其中一个算式是这样的
我编的是这样的
之前已经算出X,Y的值(对应第一幅图中的X',Y')也给数组Xi和Yi每一项赋值,现在想统一给di按照图一的算式赋值,但是我编这句的时候发现sqrt(求平方根数学函数)输入时不自动识别,强行输完告诉我未声明的名称“sqrt",问题出在什么地方?求解
2016年01月03日 03点01分 1
level 1
[惊哭]是不是放大不了 我重发图
2016年01月03日 03点01分 2
level 1
2016年01月03日 03点01分 3
[惊哭]看来是被百度强行压缩了
2016年01月03日 03点01分
level 1
2016年01月03日 03点01分 4
[不高兴]我擦
2016年01月03日 03点01分
level 1
Dim X!, Y!, R!, n%, i%, di!(6), Xi!(6), Yi!(6), a%
R = Val(TextBox1.Text) : n = Val(TextBox2.Text)
Xi(0) = 8.3 : Xi(1) = 5.7 : Xi(2) = 9.9 : Xi(3) = 6.4 : Xi(4) = 10.7 : Xi(5) = 5.2 : Xi(6) = 3.3
Yi(0) = 3.1 : Yi(1) = 6.2 : Yi(2) = 2.2 : Yi(3) = 4.9 : Yi(4) = 4.9 : Yi(5) = 2.7 : Yi(6) = 5.3
X = (160 * R * 8.3 + 100 * R * 5.7 + 180 * R * 9.9 + 210 * R * 6.4 + 90 * R * 10.7 + 120 * R * 5.2 + 50 * R * 3.3) / (160 * R + 100 * R + 180 * R + 210 * R + 90 * R + 120 * R + 50 * R)
Y = (160 * R * 3.1 + 100 * R * 6.2 + 180 * R * 2.2 + 210 * R * 4.9 + 90 * R * 4.9 + 120 * R * 2.7 + 50 * R * 5.3) / (160 * R + 100 * R + 180 * R + 210 * R + 90 * R + 120 * R + 50 * R)
For a = 0 To 6
di(a) = sqrt((Xi(a) - X) * (Xi(a) - X) + (Yi(a) - Y) * (Yi(a) - Y))
Next
2016年01月03日 03点01分 5
直接复制过来了 可以看到这里sqrt是小写 没有被认为是数学函数 我哪里写错了?求解
2016年01月03日 03点01分
level 1
[委屈]没大神给菜鸟解答一下吗
2016年01月03日 03点01分 6
level 5
没看到你的程序全文,也不知道你导入数学函数没有。
2016年01月03日 03点01分 7
[委屈]的确没有导入 这个Imports语句应该加在什么地方?谢谢
2016年01月03日 04点01分
level 5
整个class的前面:
Imports System.Math
Public Class Form1
……
End Class
2016年01月03日 05点01分 8
解决了 谢谢[钱]
2016年01月03日 09点01分
1