VB计算下式的和，变量x与n的数值用输入对话框输入
计算下式的和，变量x与n的数值用输入对话框输入。
s=x/2!-x/3!+x/4!+....+(-1)^n+1 x/(n+1)!
-----------------------------
着急求此题目的答案！
会的谢谢！
Private Sub Command1_Click()
Dim x As Integer, n As Integer
Dim s As Single, i As Integer
x = InputBox("请输入x：")
n = InputBox("请输入n：")
For i = 1 To n
s = s + (-1) ^ (i + 1) * x / jc(i + 1)
Next
Print Format(s, "0.#######")
End Sub
Private Function jc(ByVal i As Integer) As Long
If i < 0 Then Exit Function
If i = 0 Then
jc = 1
Else
jc = jc(i - 1) * i
End If
End Function本回答被提问者采纳
VB计算下式的和,变量x与n的数值用输入对话框输入
Option Explicit Private Sub Command1_Click()Dim x As Integer, n As Integer Dim s As Single, i As Integer x = InputBox("请输入x：")n = InputBox("请输入n：")For i = 1 To n s = s + (-1) ^ (i + 1) * x \/ jc(i + 1)Next Print Format(s, "0.###")End ...
java编程 计算下式的和,变量x与n从键盘输入。
import java.util.Scanner;public class Test { public static void main(String[] args) { int n, x;Scanner in = new Scanner(System.in);n = in.nextInt();x = in.nextInt();double s = 0;int j;long f;for (int i = 1; i <= n; i++) { f = 1;for (j = 2; j ...
...并分别调用,其中X和n的值有用户给定,用VB方法
x=inputbox("输入X")msgbox mcase(d,x)function mcase(d,x)for n=1 to d if n=1 then j=x+1 else j=j+x^n end if next mcase=j end function
用VB编程计算1-2+3-4+5-6…±n的值,n由文本框输入
Private Sub Form_Click()Dim n As Integer Dim sum As Integer sum = 0 n = Val(InputBox("输入一个整数："))sum = 0 For i = 1 To n '此处修改 sum = sum + (-1) ^ (i + 1) * i '此处修改 Next i Print sum End Sub ...
怎样用vb编程计算从键盘上输入任意个数,求其总和、平均值
text1用来录入数据, 因为是任意个数,用很多文本框是不方便的,程序设计是使用","来分隔数字,你可以输入任意多个数字,然后按钮command1后,就可以显示总和及平均值.Private Sub Command1_Click()If Len(Text1) = 0 Then Exit Sub If InStr(Text1, ",") < 2 Then Exit Sub Dim a, sumn%, i...
怎样使用VB编写有加减乘除功能的计算器?
设计VB计算器需要定义变量如x, n1和n2用于储存数值。使用strn1和strn2储存输入的数值。使用firstN和pointflag标志变量来区分数字和小数点。初始化时将firstN设为真，pointflag设为否，runsign设为0，signflag设为否。当点击数字按钮（0到9）时，如果firstN为真，则直接将数字添加到strn1。否则，将...
怎样用VB编写过程,计算1!+2!+3!+。。。+N!,N值由用户输入
楼上的好像错了，做了小改动！如下：Private Sub Command1_Click()Dim i As Integer Dim n As Integer Dim ans as integer Dim y As Integer=1 n = InputBox("请输入一个正整数： ")y=1 ans=0 For i = 1 To n y = y * i ans=ans+y Next i Print ans End Sub ...
vb 编写程序 输入3个数 求和和平均数
代码如下：Sub Form_Click()a = InputBox(w输入第一个数"> a — Val(a)b = InputBox(w输人第二个数") b = Val(b)c = InputBox("输人第三个数 c = VaKc)d = InputBox(w输人第四个数"） d = Val(d)sum = a + b+ c + d aver = sum \/ 4 ...
用VB在窗体上输出如下图形,其中第一行的起始字母和终止字母由用户从键...
E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J K L M N O P Q R S T U ...
VB程序设计题:编写程序,计算N!的值(N为键盘输入的一个整数)
Private Sub Command1_Click()Dim XX As Double, YY As IntegerXX = 1YY = Val(InputBox("请输入N的值", "输入", 0))If YY > 170 ThenMsgBox "你输入的值太大，最大只能计算170的阶乘值！"YY = 170End IfFor I = 1 To YYXX = XX * INext IText1.Text = YY & " 的阶乘 = ...
