题目
输入x,计算y=x^2+sh(x).要求编写一个通用函数过程,求双曲正弦函数的值;sh(x)=(EXP(x)-EXP(-x))/2 vb语言
提问时间:2021-03-31
答案
Option Explicit
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = Val(InputBox("输入X!"))
y = f(x)
Print y
End Sub
Private Function f(ByVal x As Single) As Single
Sh = x ^ 2 + (Exp(x) - Exp(-x)) / 2
End Function
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = Val(InputBox("输入X!"))
y = f(x)
Print y
End Sub
Private Function f(ByVal x As Single) As Single
Sh = x ^ 2 + (Exp(x) - Exp(-x)) / 2
End Function
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1西游记1~7回概括
- 2“日”加一笔,变成另一个字.如(白,目,田,电,旧,旦,甲,由,申).请问第十个字是什么?
- 3多项式1/4x³y+1/2x²y+1/3x²y²+2是______次______项式
- 4羟醛缩合的产物如何脱水.
- 5正比例函数图像与一次函数图像交于点(3,4),两图像与y轴围成三角形面积为15/2,求两函数解析式
- 6600克盐水中,盐与水的质量比是3:17.
- 7已知集合A={X丨X2-2X=0},B={X丨X2-2(a+1)X+a2=0},若AUB=A,求实数a的取值范围
- 8P4图6.5亚洲地理分区(东西南北亚、中亚、东南亚),其中濒临印度洋的亚渊国家有哪些?
- 9将一支盛满氯气的试管倒置在水槽中,在日光长时间照射后,试管中最终剩余气体的体积约占试管容积的
- 10how often do you have a burger的答案
热门考点
- 1谁能给我说30种肉食动物?30种食草动物?40种杂食动物?
- 2小朋友们分苹果,每人分18个,还多出2个,每人分20个,就有一位小朋友没分到苹果.问:共有多少个小朋友?多少个苹果?
- 3如何理解”只要春风吹到的地方/到处是青青的野草”
- 4研究液体温度升高时吸收热量的多少与哪些因素有关
- 5已知y=根号3-x+根号x-3 -2,求y的x次方的立方根
- 6用排水法收集NO气体正确步骤是...
- 7举例说明频数,频率在生活中的运用
- 8一个以万为单位的一位小数,省略万后面的尾数约10万,这个数在()至()之间?
- 9一个圆柱形铁桶的底面直径是10厘米,高4厘米,圆柱的表面积等于它的侧面积加上().侧面积是()平方厘米
- 10几句英语的造句(高一水平) 急