求 1!+2!+......+20!的值。 Private Sub Form_Click() Dim i%, t!, s! s = 1 t = 1 '**********SPACE********** For i = 【1】 To 20 t = t * i '**********SPACE********** s = 【2】 '**********SPACE********** 【3】 Print s End Su
举一反三
- 下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
- 运行下列程序，单击窗体显示的结果为（ ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub
- *【程序填空】题目：编程求出1~100之间的奇数之和，偶数之积。*/ #include "stdio.h" main() { int i,s=0; /***********SPACE***********/ double 【?】; for(i=1;i<=100;i++) /***********SPACE***********/ if(【?】) t=t*i; /***********SPACE***********/ 【?】 s=s+i; /***********SPACE***********/ printf("%d,%e\n",【?】); }
- 题目：求200以内奇数之和。 #include<stdio.h> void main { /**************SPACE*************/ int i,s=【?】; /**************SPACE*************/ for(i=1;i<200;【?】) /**************SPACE*************/ s=【?】; /**************SPACE*************/ printf("s=【?】 ",s); }
- 执行下列程序后，输出的结果是 Option Base 1 Private Sub Form_Click() Dim arr, s As Integer s = 0 arr = Array(2, 4, 6, 8, 10, 12, 14, 16, 18, 20) For i = 1 To 10 Step 2 If arr(i) Mod 3 = 0 Then s = s + arr(i) End If Next i Print s End Su A: 20 B: 22 C: 24 D: 26 E: 28 F: 其它都不对