vb课件vb第6章幻灯片.pptVIP

* 思考: 1. 求12+22+32+42+……+1002 2. 求13+33+53+……+n3 3. 求1-3+5-7+…+(-1)n+1(2n-1) 4. 求 5. 求 * 例: 判断以下程序段的执行结果: For i = 5 To 1 Step -1 Print i * i; Next i Print Print i 例: 判断以下程序段的执行结果:  X = 6 For K = 1 To 10 Step -2 X = X + K Next K Print K,X * 【例6-9】求 N！( N!=1×2×3×…×N) 累乘分析: 初始化: F=1 循环体: F=F × I (I=1，2，3……N) 程序: Private Sub Command1_Click() Dim N As Integer, I As Integer, F As Long N = Val(Text1.Text) F = 1 For I = 1 To N F = F * I Next I