【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了VB程序设计 习题及答案第5章 循环结构程序设计 - 计算机教材相关资料，希望对各位网友有所帮助!

第5章 循环结构程序设计 51 试编程序打印出自然数1到20的立方数。

     【参考答案】 程序代码设计 Private Sub Form_Click Form1.Print x x2 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所示 52 试编程序打印出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 图5-1 程序运行结果 Private Sub Form_Load Form1.AutoRedraw True Form1.Print Form1.Print 打印1到500之间所有偶数的和 Form1.Print End Sub 程序运行结果如图5-2所示 53 试编写打印下面图案的源程序。

     【参考答案】 程序代码设计 Private Sub Command1_Click For i 1 To 5 Form1.Print Tab5 i For j i To 5 Form1.Print Next j Form1.Print Next i End Sub 程序运行结果如图5-3所示 54 试编写打印下面图案的源程序。

     图5-2 程序运行结果 图5-3 程序运行结果 【参考答案】 程序代码设计 Private Sub Command1_Click For i 1 To 4 Form1.Print Tab10 - 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 Tab10 - k For j 1 To 2 k - 1 Form1.Print Next j Form1.Print Next k End Sub 程序运行结果如图5-4所示 55 编写程序计算下面表达式的值 1135????2N1 【参考答案】 程序代码设计 Private Sub Command1_Click n ValInputBox请输入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 135????2N1 Sum 图5-4 程序运行结果 End Sub Private Sub Form_Load Form1.AutoRedraw True Form1.Print 计算135????2N1 End Sub 运行结果: 若n输入的值为5则程序运行结果如图5-51所示。

     21X/2X2/4X3/6????XN/2N 【参考答案】 程序代码设计 Private Sub Command1_Click x ValInputBox请输入x值 n ValInputBox请输入N值 Sum 1 t1 1 t2 1 For k 2 To 2 n Step 2 t1 t1 x t2 t2 k - 1 k Sum Sum t1 / t2 Next k Form1.Print 1X/2X2/4????XN/2N Sum End Sub Private Sub Form_Load Form1.AutoRedraw True Form1.Print 计算1X/2X2/4????XN/2N End Sub 运行结果 若x输入值为1.5n输入值为:5则程序运行结果如图5-52所示。

     图5-51程序运行结果 图5-52程序运行结果 311×31×3×5????1×3×????2N1 【参考答案】 程序代码设计 Private Sub Command1_Click n ValInputBox请输入N值 Sum 1 term 1 For k 3 To 2 n 1 Step 2 term term k Sum Sum term Next k Form1.Print 11×31×3×5????1×3×????2N1 Sum End Sub Private Sub Form_Load Form1.AutoRedraw True Form1.Print 计算11×31×3×5????1×3×????2N1 End Sub 运行结果: 若n输入值为5则程序运行结果如图5-53所示 4x-x3/3x5/5-x7/7???? 【参考答案】 程序代码设计 Private Sub Command1_Click x ValInputBox请输入x值 Sum x t1 x t2 1 f 1 k 1 While t1 / t2 0.0001 k k 2 t1 t1 x x 图5-53程序运行结果 t2 t2 k - 1 k f f -1 Sum Sum f t1 / t2 Wend Form1.Print x-x3/3x5/5-x7/7???? Sum End Sub Private Sub Form_Load Form1.AutoRedraw True Form1.Print 计算x-x3/3x5/5-x7/7???? End Sub 运行结果: 若x输入值为:1.5 则程序运行结果如图5-54所示 511/21/3????1/N 1/N 0.0001 Sum Sum 1 / k k k 1 Wend Form1.Print 11/21/3????1/N Sum End Sub Private Sub Form_Load Form1.AutoRedraw True Form1.Print 计算11/21/3????1/N Form1.Print 单击窗体开始 End Sub 程序运行结果如图5-55所示 图5-54程序运行结果 5.6 由随机函数产生10道一位整数与两位整数相加的加法题产生的加法题依次显示在屏幕上每产生一道题后由用户输入答案如果答案正确记10分如果答案错误允许第二次输入答案第二次输入答案正确记5分错误记0分。

    最后给出总得分。

     【参考答案】 程序代码设计 Private Sub Form_Click s 0 For i 1 To 10 a Int10 Rnd b Int10 90 Rnd str1 第 i 题 a b c ValInputBoxstr1 第一次回答 If a b c Then s s 10 str2 str1 10分 Else c ValInputBoxstr1 第二次回答 If a b c Then s s 5 str2 str1 5分 Else str2 str1 0分 End If End If Form1.Print str2 Next i Form1.Print 总分 s End Sub Private Sub Form_Load Form1.AutoRedraw True Form1.Print 加法题第一次回答正确10分 Form1.Print 第二次回答正确5分 Form1.Print 单击窗体开始 End Sub 图5-55程序运行结果 程序运行结果如图5-6所示 5.7 编写计算还贷款年限的程序从贷款的第三年开始还贷贷款年利按复利计算。

    贷款额10万元年利率7每年还款数3万元要求输出经过多少年才能还清贷款以及最后一年的还款数。

     【参考答案】 程序代码设计 Private Sub Form_Click Dim p As Single p 10 r 0.07 n 0 While p 0 p p 1 r n n 1 If n 3 Then p p - 3 Wend Form1.Print 还清贷款时间 n 年 Form1.Print 最后一年的还款数 3 p 万 End Sub Private Sub Form_Load Form1.AutoRedraw True Form1.Print 贷款额10万元年利率7 Form1.Print 计算还贷数据 Form1.Print 单击窗体开始 End Sub 程序运行结果如图5-7所示 5.8 输入三角形的三条边A、B、C根据A、B、C的数值判断三角形的性质并给出如图5-6 程序运行结果 图5-7 程序运行结果 下信息1等边三角形2等腰三角形3任意三角形4不能构成三角形。

     【参考答案】 1用户界面设计 2控件属性设置略 3程序代码设计 Private Sub Command1_Click a ValText1.Text b ValText2.Text c ValText3.Text If a b And b c Then str1 等边三角形 ElseIf a b Or b c Or c a Then str1 等腰三角形 ElseIf a b