几道vb编程题,大哥大姐们帮帮忙啦

来源：百度知道 编辑：UC知道 时间：2024/09/28 15:08:16
3.使用梯形面积法求下面的定积分（分割为1000个小梯形）
(1/2)* ( 将sin(x)从0~π/2 积分的式子） （不能输入积分式子只好这么表示啦 =.= )
3.Private sub command1_click()
Dim h as single
Dim l1 as single, l2 as single
Dim s as single
Dim int1 as integer, n as integer
Dim a as single, b as single
S=0
A=0:b=3.1415926/2
N=___________(1)
H=___________(2)/n
For int1=1 to n
L1=sin(a+(int1-1)*h)
L2=___________(3)
S=s+(l1+l2)*h/2
Next
Text1.text=__________(4)
End sub
4有一分数数列:2/1 3/2 5/3 8/5 13/8 21/13,...... 它第n项的分子与分母分别是Fibonacci数列的第n+2项和n+1项.本程序求指定的前n项之和(n通过文本框指定）
4.Option explicit
Private sub command1_click()
Dim n as integer
N=text1.text
Text2.text=shulie(n)
End sub
Function shulie(n as integer) as single
Dim i as integer,a as single
For i =______________(1)
A = a + fib(i+2)/_________(2)
Next
Shulie =a
End function
Private function fib(n as integer) as lo

第三题：
Private Sub command1_click()
Dim h As Single
Dim l1 As Single, l2 As Single
Dim s As Single
Dim int1 As Integer, n As Integer
Dim a As Single, b As Single
s = 0
a = 0: b = 3.1415926 / 2
'N=___________(1)
n = 1000
'H=___________(2)/n
h = b / n
For int1 = 1 To n
l1 = Sin(a + (int1 - 1) * h)
'L2=___________(3)
l2 = Sin(a + int1 * h)
s = s + (l1 + l2) * h / 2
Next
'Text1.text=__________(4)
Text1.Text = s
End Sub

第四题：
Option Explicit
Private Sub command1_click()
Dim n As Integer
n = Text1.Text
Text2.Text = shulie(n)
End Sub

Function shulie(n As Integer) As Single
Dim I As Integer, a As Single
'For i =______________(1)
For I = 1 To n
'A = a + fib(i+2)/_________(2)
a = a + fib(I + 2) / fib(I + 1)
Next
shulie = a
End Function