资源描述：
《程序改错题打印版》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、注意：改错题目不要增、删或修改其他代码。一定要在语句上面修改，否则电脑会识别不了，会没有分的，我这里只是便于大家观察修改之前的程序和修改之后的程序的区别。。请大家一定要在语句上面修改，其中红字部分就是要修改的部分。第一题：简单应用：用户输入正整数，计算奇数，偶数，被3整除的数字：*******************found********************x,s1,s2,s3=0----à>>>>>store0tox,s1,s2,s3*******************found********************x=thisform.t
2、ext1----à>>>>>x=thisform.text1.valuedowhilex>0ifint(x/2)=x/2s1=s1+1elses2=s2+1endif*******************found********************ifdiv(x,3)=0----à>>>>>ifmod(x,3)=0s3=s3+1endifx=x-1enddothisform.text2.value=s1thisform.text3.value=s2thisform.text4.value=s3thisform.text5.value=s1+s2+s
3、3综合应用：thisform.list2.add(thisform.list1.value)改成thisform.list2.additem(thisform.list1.value)thisform.list2.delete(thisform.list2.listindex)改成thisform.list2.removeitem(thisform.list2.listindex)差的语句SELECTStudent.姓名,Course.课程名称,Score.考试成绩;FROMstudentINNERJOINscore;INNERJOINcourse;ON
4、Score.课程编号=Course.课程编号;ONStudent.学号=Score.学号;where&cn;ORDERBYCourse.课程名称,Score.考试成绩DESC;INTOTABLEzonghe第二题：&&根据"教师表"计算每个系的教师人数并将数据填入"学院表"CLOSEDATAUSE学院表GOTOPDO.NOT.EOF()&&错误----à>>>>>DOwhile.NOT.EOF()xihao=系号SELECTCOUNT(*)FROM教师表WHERE教师表.系号=xihaoINTOA&&错误----à>>>>>INTOarrayAREPLA
5、CE教师人数WITHA[1]NEXT&&错误----à>>>>>skipENDDO第三题：**请改正以下语句代码中的错误，然后运行程序。SELECT部门表.部门号,部门名,销售表.商品号,商品名,一季度利润+二季度利润+三季度利润+四季度利润as年销售利润;FROM部门表,销售表,商品代码表;ON销售表.商品号=商品代码表.商品号;ON部门表.部门号=销售表.部门号;WHERE销售表.年度="2006";ORDER1,5;TOTABLETABA改成：SELECT部门表.部门号,部门名,销售表.商品号,商品名,一季度利润+二季度利润+三季度利润+四季度利润
6、as年销售利润;FROM部门表,销售表,商品代码表;where销售表.商品号=商品代码表.商品号;and部门表.部门号=销售表.部门号;and销售表.年度="2006";ORDERby1,5desc;inTOTABLETABA**请改正以下语句代码中的错误，然后运行程序。SELECT销售表.部门号,部门名,一季度利润+二季度利润+三季度利润+四季度利润AS年销售利润;FROM销售表,部门表;WHERE销售表.部门号=部门表.部门号AND年度="2005";ORDERBY销售表.部门号TODBFtemp-->>GROUPBY销售表.部门号INTOCURSO
7、RtempSELECTtemp.部门号,部门名,年销售利润,工资支出,办公支出,年销售利润-工资支出-办公支出AS纯利润;FROMtemp,部门成本表;WHERE部门成本表.部门号=temp.部门号AND年度="2005";TOTABLEaccount-->>INTOTABLEaccount第四题:*下面代码的功能是根据用户对列表框的选择结果构建字段列表，然后进一步构建select语句并据此为表格的相关属性设值。*修改所有***FOUND***下面的一条语句。*不能修改其他语句。不能增加语句，也不能删除语句。s=""f=.T.***FOUND***FOR
8、i=1TOthisform.List1.ColumnCountIFthisfor
