VB程序设计 习题及答案第5章 循环结构程序设计.docVIP

第5章 循环结构程序设计 ? 5．1 试编程序，打印出自然数1到20的立方数。 【参考答案】 程序代码设计 Private Sub Form_Click() Form1.Print x, x^2 For x = 1 To 20 Form1.Print x, x ^ 2 Next x End Sub ? Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print 打印自然数1到20的立方数 Form1.Print 单击窗体开始 End Sub 程序运行结果如图5-1所示： ? 5．2 试编程序，打印出1到500之间所有偶数的和。 【参考答案】 程序代码设计 Private Sub Command1_Click() Sum = 0 For k = 1 To 500 If k Mod 2 = 0 Then Sum = Sum + k Next k Form1.Print 1到500的偶数和为：; Sum End Sub ? Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print Form1.Print 打印1到500之间所有偶数的和 Form1.Print End Sub 程序运行结果如图5-2所示： ? 5．3 试编写打印下面图案的源程序。 * * * * * * * * * * * * * * * 【参考答案】 程序代码设计 Private Sub Command1_Click() For i = 1 To 5 Form1.Print Tab(5 + i); For j = i To 5 Form1.Print *; Next j Form1.Print Next i End Sub 程序运行结果如图5-3所示： ? ? 5．4 试编写打印下面图案的源程序。 * * * * * * * * * * * * * * * * * * * * * * * * * ? 【参考答案】 程序代码设计 Private Sub Command1_Click() For i = 1 To 4 Form1.Print Tab(10 - i); For j = 1 To 2 * i - 1 Form1.Print *; Next j Form1.Print Next i For k = 3 To 1 Step -1 Form1.Print Tab(10 - k); For j = 1 To 2 * k - 1 Form1.Print *; Next j Form1.Print Next k End Sub 程序运行结果如图5-4所示： ? 5．5 编写程序，计算下面表达式的值 （1）1!+3!+5!+……+(2N+1)! 【参考答案】 程序代码设计 Private Sub Command1_Click() n = Val(InputBox(请输入N值)) Sum = 1 term = 1 For k = 3 To 2 * n + 1 Step 2 term = term * (k - 1) * k Sum = Sum + term Next k Form1.Print 1!+3!+5!+……+(2N+1)!=; Sum End Sub ? Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print 计算1!+3!+5!+……+(2N+1)! End Sub 运行结果: 若n输入的值为5,则程序运行结果如图5-5（1）所示。 ? （2）1+X/2!+X2/4!+X3/6!+……+XN/(2N)! 【参考答案】 程序代码设计 Private Sub Command1_Click() x = Val(InputBox(请输入x值)) n = Val(InputBox(请输入N值)) Sum = 1 t1 = 1 t2 = 1 For k = 2 To 2 * n Step 2 t1 = t1 * x t2 = t2 * (k - 1) * k