mir4+private+server

@贝柳5944：1.设有如下程序:Private Sub Form - Click() -
叶锦13195744774…… 本程序实际上是求1+2+3+4+5,输出s为15

@贝柳5944：java 程序改错 -
叶锦13195744774…… 1.class C{ private int i = 0; public void inc() {i++;} public void println() {system.out.println(i);}} //system改为Systemclass Run{ public static v...

@贝柳5944：急!!!在线等!!编写do循环程序,已知S=1+2+3+4...+N,找出一个最大整数N,使得S<30000.编写此程序 -
叶锦13195744774…… Private Sub Command1_Click() Do n = n + 1 s = s + n Loop until s>=30000 Print n - 1 End Sub

@贝柳5944：用下面的近似公式求Pi的近似值,直到第n项绝对值小于10~5为止. Pi/4=1 - 1/3+1/5--
叶锦13195744774…… Private Sub Command1_Click() a = 1 Do n = n + 1 m = 2 * n - 1 s = s + a * 1 / m a = -a L...

@贝柳5944：编写一个过程,用来计算输出s=1+2分之一+3分之一+4分之一+、、、、、+100分之一 -
叶锦13195744774…… 用VB示意一下,其他的差不多 private function Sadd() as single dim s as single dim x as integer for x = 1 to 100'循环累加100次 s=s+1/x next x Sadd=s sub fuction 循环结束后的s值就是一个累加的结果.可以直接引用:比如 a=Sadd() 结果应该是5.187378....

@贝柳5944：用VB编程: s=1*1!+2*2!+3*3!+4*4!+...+10*10! -
叶锦13195744774…… Private Sub CommandButton1_Click() Dim s As Double, n As Double s = 0 For i = 1 To 10 n = 1 For j = 1 To i n = n * j Next j s = s + i * n Next i Print s //print s可以换其他输出方法 End Sub

@贝柳5944：编写程序完成一道数学计算 求m=1+2+3+4+……+1000的值(要求:在窗体中输出m的值) -
叶锦13195744774…… #include main() { int i,m=0; for(i=1;i {m=m+i; i++;} printf(＂%d＂,m); }

@贝柳5944：VB中输出1! - 2!+3! - 4!+`.. - 20! -
叶锦13195744774…… Private Sub Command1_Click() s = 0 For x = 1 To 20 y = 1 For i = 1 To x y = y * i Next y = y * (-1) ^ (x + 1) s = s + y Next Text1.Text = s End Sub

@贝柳5944：用VB计算S=1+2^2+2^3+…+2^10的代码 -
叶锦13195744774…… Private Sub Command1_Click() Dim i, j, t Dim sum sum = 1 For i = 2 To 10 t = 1 For j = 1 To i t = t * 2 Next j sum = sum + t Next i Print sum End Sub

@贝柳5944：vb编程2!+4!+6!+8!+10! -
叶锦13195744774…… 这样效率最高:Private Sub Form_Load() Dim sum&,n&,i% n=1 For i=2 To 10 Step 2 n=n*i*(i-1) sum=sum+n Next MsgBox sum End Sub