VB,计算S=1!+2!+3!+4!+5!的程序.
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/06 11:32:24
VB,计算S=1!+2!+3!+4!+5!的程序.
Private Sub Command1_Click()
Dim i As Double
Dim n As Double
Dim sum As Double
sum = 0
If Not IsNumeric(Text1.Text) Then '判断是否为数字,不是数字就弹出对话框并对出过程
Call msg '调用已经写好的过程
Exit Sub
End If
n = Text1.Text
If n < 1 Then '判断是否小于1 ,如果小于1就调用已经定义好的过程弹出对话框
Call msg
Exit Sub
End If
For n = 1 To n '求1!到n!阶乘循环n次
sum = sum + func(n) '调用求第n数的的阶乘的函数,计算前1!+n!的和
Next n
MsgBox "1!+2!+3!+.+n!为" & sum, vbInformation, "结果"
End Sub
'求第n个数的阶乘函数
Function func(n As Double) As Double
Dim i As Double
Dim jc As Double
jc = 1
For i = 1 To n
jc = jc * i
Next i
func = jc
End Function
'弹出对话框
Sub msg()
MsgBox "你输入数据不正确", vbInformation, "提示"
End Sub
把文本框中填写5就可以得到答案
Dim i As Double
Dim n As Double
Dim sum As Double
sum = 0
If Not IsNumeric(Text1.Text) Then '判断是否为数字,不是数字就弹出对话框并对出过程
Call msg '调用已经写好的过程
Exit Sub
End If
n = Text1.Text
If n < 1 Then '判断是否小于1 ,如果小于1就调用已经定义好的过程弹出对话框
Call msg
Exit Sub
End If
For n = 1 To n '求1!到n!阶乘循环n次
sum = sum + func(n) '调用求第n数的的阶乘的函数,计算前1!+n!的和
Next n
MsgBox "1!+2!+3!+.+n!为" & sum, vbInformation, "结果"
End Sub
'求第n个数的阶乘函数
Function func(n As Double) As Double
Dim i As Double
Dim jc As Double
jc = 1
For i = 1 To n
jc = jc * i
Next i
func = jc
End Function
'弹出对话框
Sub msg()
MsgBox "你输入数据不正确", vbInformation, "提示"
End Sub
把文本框中填写5就可以得到答案
VB,计算S=1!+2!+3!+4!+5!的程序.
用VB程序写出计算s=1!+2!+3!+…+50!的值.
vb编一个计算1+2+3+4+...+100=的程序
用VB编写函数过程,计算s=1+1/2+1/3+…+1/100.运行程序时,单击窗体,输出上述计算结果的值.
编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码
利用VB设计一个程序:输入一个大于10的正整数n,计算sum=1+3+5+…(2n+1),编写程序输出计算结果sum
VB程序题1.求S=1+3+5+7+---+99的值.
求s=1-1/2+1/3-1/4+..+1/99-1/100的值 用vb程序编写
VB程序输入整数N,计算前N项和S=1+(1+2)+(1+2+3)+(1+2+3+4)+….
vb程序编码,计算表达式s=-x+2x^2/3!-4x^4/5!+6x^8/7!-…,x属于[1,2],要求计算精度为第
求1!+2!+3!+4!+5!+6!+7!+8!+9!+10!的值,vb程序是n=1,s=0 For i=1 to 10
用VB编写程序.计算1+2+3+.+100