private function Q (x as single) as single
dim v as single
select case x
x < = 0 : v = (1+x*x)/sqr(1+X^4)
x > 0 : v = (2X+SIN(X)*SIN(X))/(2+X)
end select
q = v
end function
z(x)同上写法
VB中是否有幂函数我不知道，不过应该有。各大编程语言里面都有POW这个函数，如果VB里面没有可以自己编一个，如果幂是非整数就有点麻烦。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024