VB程序设计 1、 编程计算S=1/1!+1/2!+1/3!+…..+1/n!,n的值通过inputbox从键盘输入,计算结果在窗体上输

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/02 19:32:28
VB程序设计 1、 编程计算S=1/1!+1/2!+1/3!+…..+1/n!,n的值通过inputbox从键盘输入,计算结果在窗体上输

VB程序设计 1、 编程计算S=1/1!+1/2!+1/3!+…..+1/n!,n的值通过inputbox从键盘输入,计算结果在窗体上输
VB程序设计 1、 编程计算S=1/1!+1/2!+1/3!+…..+1/n!,n的值通过inputbox从键盘输入,计算结果在窗体上输

VB程序设计 1、 编程计算S=1/1!+1/2!+1/3!+…..+1/n!,n的值通过inputbox从键盘输入,计算结果在窗体上输
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim sum1 As Long, sum2 As Long
n=inputbox("请输入n的值")
sum1 = 0
sum3=1
For i = 1 To n
sum2 = 1
For j = 1 To i
sum2 = sum2 * j
sum3=sum2^(-1)
Next j
sum1 = sum1 + sum3
Next i
Label1.Caption = Label1.Caption + Str(sum1)
End Sub
需要一个button 和一个lable,结果在lable上显示