调试题的解题步骤.pptVIP

实验任务 课内： 完成“9.19”文件夹中的调试题：题2、3、4、new1。 复制此文件夹到本地硬盘，完成其中的题目，工程文件及窗体文件也存入此文件夹，做好后将文件夹以学号未四位+姓名（如1011张三）更名，压缩后上交到教师空间upload中的对应文件夹中。 课外： 复习循环结构，完成调试题：题15~21（有关多项式问题）。 第一步: 双击打开模块文件，如左下图所示--?出现如右下图所示界面。 第二步: 删除1、2、3、4处横线，填入正确语句。（改错题则改正对应错误。） 第三步: 添加窗体。“工程”----“添加窗体”----“打开” 第四步: 编写代码，调用模块文件。 （注：写在Form_Click事件中） 第五步: 调试运行。第一次运行时会出现如下对话框，选择启动对象为Form1。出现运行结果，如正确则继续下一步，不正确则检查模块文件进行修改，直到运行结果正确为止。 第六步: 保存。注意按题目要求的路径存放和取名。 这里要求和模块文件同名，本题为Modify02。 题2---- 打印输出一菱形图案 Option Explicit Public Sub prt() Dim i As Integer, j As Integer Dim start As String 每行起始空格数 Dim count As Integer 每行#个数 For i = 1 To 9 If i = 5 Then ------1------ count = 2 * i - 1 Else start = Space(11 + i) -------2------ End If ------3------ For j = 1 To count Form1.Print #; Next j ------4------ Next i End Sub 累加的算法 其核心是：计算机程序中常用的递推思维 即：将“若干数求和” 变成 若干步的两数相加： 新和 = 前一次和 + 加数 ☆ 奇数、偶数或平方数、立方数之和 ☆ s=1+1/2+1/3+…+1/10 ---For ☆ s=1-1/2+1/3-1/4+…- 1/100 ---P86调试题18 ---For ☆ s=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20) ---P86调试题17 ---For ☆ s=1!+2!+3!+…+20!---P87调试题19---For ☆ s=1+2+2^2+2^3…---P85调试题15---Do ☆s=1+2x+3x^2+4x^3+…+(n+1)x^n ---P85调试题16----Do 调试题解题步骤；For循环结构 VB 复 习 分析 Sub子过程名（在模块文件中查看） For i=1 to m Print Space(k); ‘k为该行输出的具体位置 For j=1 to n Print “输出项”；　 Next j Print ‘该语句的作用是换行 Next i 内循环控制每行的列数 外循环控制图形的行数 复习：图形的输出 For i=1 to m For j=1 to n Print Tab（k+j）；Print “输出项”；　 Next j Print ‘该语句的作用是换行 Next i 复习：图形的输出 # ### ##### ####### ######### ####### ##### ### # start=space(21-i) count=19-2*i Form1.Print start; Form1.Print 返回 For循环语句 (一般用于循环次数已知) 形式： For 循环变量＝初值 to 终值 [Step 步长] 语句块 [Exit For] 语句块 Next 循环变量 循环体 0 初值终值 =1 时,可省略 0 初值终值 =0 死循环 步长 For…Next循环语句 S = 初值 ‘累加器变量 For i = 1 To n a= ‘给定一个加数 S = S + a Next i 输出 S “累加器” 程序设计（框架） 重点 For…Next循环语句 形式1： Do { While|Until }条件 语句块 [Exit Do]