锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术工具栏

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 pdp
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，你可以试试 。
用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
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
用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的阶乘
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}

推荐阅读


上一篇：C语言定义函数比较分数大小，c语言函数比较大小

下一篇：何为虚拟机，什么是虚拟机虚拟机的用途是什么