VB累加题.doc

VB累加题练习练习题1。 累加求和程序设计： 1. S = 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 2. S = 1 + 2 + 3 + 4 + 98 + 99 + 100 要求初值为1，终值为1003. S = 1 + 2 + 3 + 4 + 98 + 99 + 100 要求初值为100，终值为1 4. S = 1 + 3 + 5 + 7 + 95 + 97 + 99 5. S = 12 + 22 + 32 + 42 + 52 + 62 + 72 + 82 + 92 + 102 6. S = 13 + 23 + 33 + 43 + 53 + 63 + 73 + 83 + 93 + 103 7. S = 1 + 1/2 + 1/3 + 1/4 + 1/5 + 1/6 + 1/7 + 1/8 + 1/9 + 1/10（保留两位小数）8. S = （1+2）+（2+3）+ （3+4）+ （4+5）+(8+9)+(9+10) 9. S = 1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10 10. S = 1/(1+2）+1/(2+3）+ 1/(3+4）+ +1/(8+9)+1/(9+10)+1/(10+11) 11. S = 1 - 2 + 3 - 4 + - 98 + 99 -100 12. S = 1+(1*2)+(1*2*3)+(1*2*3*4)+(1*2*3*4*5*6*7*8*9*10)练习题2。 找出1到300以内所有能同时被3、5、7整除的正整数。要求每行打印1个数。练习题3。 找出100到500以内所有的数，该数被3除为0、被5除余1、被7除余2。要求按分区格式打印输出。练习题4. 找出100到200以内所有的数， 该数能同时被5和7整除，或者被23整除余1，并用N记录满足该条件的数的个数。要求按紧凑格式打印输出。练习题5。找出100到500以内所有能同时被3、5、7整除的正整数，并用变量N记录有多少个数。练习题6。 找出100到500之间第1个能同时被3、5、7整除的正整数。练习题7。 找出100到500之间第2个能同时被3、5、7整除的正整数。练习题8。 计算 S = 1 + 2 + 3 + 4 + + n + （n+1）+（n+2）+ 在累加过程中，求当S的值首次大于3000时候的n值是多少。练习题9。 计算 S = 1 + 2 + 3 + 4 + + n + （n+1）+（n+2）+ 在累加过程中，求当S的值不大于1000时候的最大n值是多少。练习题10。 计算 S = 1 + 2 + 3 + 4 + + 98 + 99+100 要求打印显示每次循环得到的S值，并按每行6个数打印输出。练习题11。 任意输入一个正整数，判断该数是否为素数。一个数为素数的条件是：该数只能被1和它自身整除。方法： 输入一个数n，然后用2至n-1的循环数整除n，只要发现能有一次被整除，就不是素数。参考答案：练习题1。 1. 55 2. 5050 3. 5050 4. 2500 5. 385 6. 3025 7. 2.93（保留两位小数） 8. 99 9. 3628800 10. 1.18 11. -50 12. 4037913练习题2。 105 210练习题3。 156 261 366 471练习题4. 105 116 139 140 162 175 185 n = 7练习题5。105 210 315 420 n=4练习题6。 N=1 105练习题7。 N=2 210练习题8。 S= 3003 n = 77练习题9。 S= 990 n = 44练习题10。 略参考代码：练习题1。 累加求和程序设计： 1、参考代码Private Sub Form_Click()s = 0For i = 1 To 10 s = s + iNext iPrint sEnd Sub2、参考代码Private Sub Form_Click()s = 0For i = 1 To 100 s = s + iNext iPrint sEnd Sub3、参考代码Private Sub Form_Click()s = 0For i = 100 To 1 Step -1 s = s + iNext iPrint sEnd Sub4、参考代码Private Sub Form_Click()s = 0For i = 1 To 99 Step 2 s = s + iNext iPrint sEnd Sub5、参考代码Private Sub Form_Click()s = 0For i = 1 To 10 Step 1 s = s + i 2Next iPrint sEnd Sub6、参考代码Private Sub Form_Click()s = 0For i = 1 To 10 Step 1 s = s + i 3Next iPrint sEnd Sub7、参考代码Private Sub Form_Click()s = 0For i = 1 To 10 Step 1 s = s + 1 / iNext iPrint Int(s * 100 + 0.5) / 100End Sub8、参考代码Private Sub Form_Click()s = 0For i = 1 To 9 Step 1 s = s + (i + (i + 1)Next iPrint sEnd Sub9、参考代码Private Sub Form_Click()s = 1For i = 1 To 10 Step 1 s = s * iNext iPrint sEnd Sub10、参考代码Private Sub Form_Click()s = 0For i = 1 To 10 Step 1 s = s + 1 / (i + (i + 1)Next iPrint Format(s, .#)End Sub11、参考代码Private Sub Form_Click()s1 = 0For i = 1 To 99 Step 2 s1 = s1 + iNext is2 = 0For i = 2 To 100 Step 2 s2 = s2 + iNext is = s1 - s2Print sEnd Sub12、参考代码Private Sub Form_Click()s = 0p = 1For i = 1 To 10 Step 1 p = p * i s = s + pNext iPrint sEnd Sub练习题2参考答案：Private Sub Form_Click()For i = 1 To 300 Step 1 If i Mod 3 = 0 And i Mod 5 = 0 And i Mod 7 = 0 Then Print iNext iEnd Sub练习题3参考答案：Private Sub Form_Click()For i = 100 To 500 Step 1 If i Mod 3 = 0 And i Mod 5 = 1 And i Mod 7 = 2 Then Print i,Next iEnd Sub练习题4参考答案：Private Sub Form_Click()n = 0For i = 100 To 200 Step 1 If i Mod 5 = 0 And i Mod 7 = 0 Or i Mod 23 = 1 Then Print i; n = n + 1 End IfNext iPrintPrint n=; nEnd Sub练习题5参考答案：Private Sub Form_Click()n = 0For i = 100 To 500 Step 1 If i Mod 3 = 0 And i Mod 5 = 0 And i Mod 7 = 0 Then Print i; n = n + 1 End IfNext iPrintPrint n=; nEnd Sub练习题6参考答案：Private Sub Form_Click()n = 0For i = 100 To 500 Step 1 If i Mod 3 = 0 And i Mod 5 = 0 And i Mod 7 = 0 Then n = n + 1 If n = 1 Then Print n=; n, i Exit For End If End IfNext iEnd Sub练习题7参考答案：Private Sub Form_Click()n = 0For i = 100 To 500 Step 1 If i Mod 3 = 0 And i Mod 5 = 0 And i Mod 7 = 0 Then n = n + 1 If n = 2 Then Print n=; n, i Exit For End If End IfNex