vb.net求级数程序 vb求n的阶乘求和的代码

vb编程，利用级数求函数的近似值（误差

假设级数表达式为f(i),随i值vb.net求级数程序的变化而减小vb.net求级数程序，则可在循环时利用级数f(i)和f(i-1)vb.net求级数程序的差值来与10^-6比较vb.net求级数程序，当两次计算vb.net求级数程序的结果满足10^-6时输出所需的函数结果并中止循环。

cos()的级数式是？

Function zcos(ByVal rad As Double, ByVal dp As Double) As Double

'这里用zcos表示自定义的cos函数与vb内部函数区别开来

'cos(x)=1-x^2/2!+x^4/4!......+(-1)^(n+1)*x^2(n-1)/(2(n-1))!+......(n=1，2，3.....)

'另需注意x值表示的是弧度值，而不是角度值

'用于表示求解的精度

Dim n As Long, b As Long

Dim p As Double, dc As Double, mv As Double

p = 1: dc = 1: n = 1: b = 1

Do While p dp

p = Abs(dc)

b = b * -1

n = n + 1

mv = rad ^ (2 * (n - 1))

For i = 2 * (n - 1) To 2 Step -1

mv = mv / i

Next i

dc = dc + b * mv

p = Abs(p - Abs(dc))

Loop

zcos = dc

End Function

Sub main()

MsgBox Round(zcos(3.1415926 * (135 / 180), 0.000001), 6)

End Sub

你可以自行在main程序里做个窗体并输入精度值，我的代码为0.000001，你可以试试。

相关问答

Q1: 用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值

Private Sub Command1_Click()

Dim A, B, C

A = 10

B = 3

C = f(A) / (f(B) * f(A - B))

Print C

End Sub

Private Function f(n)

Dim I As Integer

f = 1

For I = 1 To n

f = f * I

Next I

End Function

Q2: VB.NET 怎样编写使用Do While 循环输出1-10的阶乘，我是新手请加上文字说明，呵呵，谢谢各位了！

首先在窗体上画两个控件vb.net求级数程序：TextBox1和Button1

TextBox1用来输入需要计算那个数的阶乘

双击Button1进入输入代码vb.net求级数程序，代码如下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim Factorial As Integer = 1 '定义一个变量用来记录阶乘的结果

Dim count As Integer '定义一个变量用来记录需要计算那个数的阶乘

Dim i As Integer = 1 '定义一个数用来循环

count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值赋值给count

Do While i = count '下面开始计算阶乘

Factorial = Factorial * i '计算阶乘

i += 1 '自增1

Loop

MessageBox.Show(Int(Val(Me.TextBox1.Text)) "的阶乘是：" Factorial, "完成", MessageBoxButtons.OK) '弹出计算结果

Catch ex As Exception '出错提示

MessageBox.Show(Err.Description, "出错了", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

Q3: 用vb求1到n的阶乘和的程序编写

用vb求1到n的阶乘和的程序：

自己编写函数代码：

Private Function jieC(Byval n As Integer) As Long

    Dim i As Integer

    Dim Fac As Long

    Fac = 1

    For i = 1 To n

        Fac = Fac * i

    Next i

    jieC = Fac

End Function

在需要求阶乘的地方，调用该函数：

例如：

Dim y As Long

y = jieC(10) '求阶乘(10)将用10调用上面的自定义函数，返回10的阶乘

Q4: VB.net中如何求出2维数组，每个维度上的值得个数

每行vb.net求级数程序的数字个数不同,vb.net求级数程序你说的这是不规则数组,解决方案如下:

Dim b As String = ""

Dim a As Integer()() = New Integer(9)() {}

a(0) = New Integer() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}

a(1) = New Integer() {0, 3, 4, 5}

a(2) = New Integer() {0, 4, 5, 6, 7}

a(3) = New Integer() {0, 6, 5, 8, 9, 1}

a(4) = New Integer() {0, 2, 5, 1, 7}

a(5) = New Integer() {0, 4, 2, 6, 7, 3}

a(6) = New Integer() {0, 4, 5, 3, 2}

a(7) = New Integer() {0, 4, 1, 6, 2, 8, 5, 3}

a(8) = New Integer() {0, 4, 9, 6, 3, 5, 7}

a(9) = New Integer() {0, 1, 5, 9, 7, 6, 2, 4, 3, 8}

For i As Integer = 0 To a.GetUpperBound(0)

b = "第" i + 1 "行有" a(i).GetUpperBound(0) + 1 "个数" vbCrLf

Next

MessageBox.Show(b)

vb.net求级数程序的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb求n的阶乘求和的代码、vb.net求级数程序的信息别忘了在本站进行查找喔。