Question

用vb计算x的平方的定积分

Answer 1

利用极限原来，累加起来即可。

矩形法 

分成100个矩形累加计算

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a As Single, b As Single, s As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
For i = 0 To 100
s = s + (a + i * (b - a) / 100) ^ 2 * (b - a) / 100
's = s + (a + i * (b - a) / 100) * (b - a) / 100
Next
Print s
End Sub

 梯形法

分成100个梯形累加计算，也可以自己设定，不要超过32767，整型变量的范围，如果不够，可以把n定义为long.

Private Sub Command2_Click()
Dim i As Integer
Dim a As Single, b As Single, n As Integer, s As Single
Dim x As Single, y As Single, h As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
n = Val(Text3.Text)
For i = 1 To n
h = (b - a) / n
x = (a + (i - 1) * (b - a) / n) ^ 2
y = (a + (i) * (b - a) / n) ^ 2
s = s + (x + y) * h / 2
Next
Print s
End Sub

Answer 2

血管神经性头痛,由于紧张压力或精神受刺激等引起的神经功能失调造成的头痛,使神经放松可促使病情好转,用泰必利配合中药号调理,症状很快改善

主要是血管舒缩功能障碍,建议中药调节,希望尽快治疗,

关键是防止精神紧张保证休息时间和质量,戒烟酒.防止受凉感冒等诱因.建议你看看当地神经内科医生,在他们指导下服用：血俯逐瘀口服液.加上西比灵 尼莫地平 丹参片 苯妥因钠 羊角冲剂一般都会见效.

这血管性头痛关键是防止精神紧张保证休息时间和质量,戒烟酒.防止受凉感冒等诱因.建议你看看当地神经内科医生,在他们指导下服用：血俯逐瘀口服液.加上西比灵 尼莫地平 丹参片 苯妥因钠 羊角冲剂一般都会见效.