《计算机程序设计语言写程序部分复习》由会员分享，可在线阅读，更多相关《计算机程序设计语言写程序部分复习（6页珍藏版）》请在金锄头文库上搜索。
1、算法与程序设计复习简单算法归纳：1 .“四舍五入问题”一一利用Int函数实现四舍五入功能例如：Int(x*100+0.5)/100保留两位小数2 .“交换两个变量内容问题”一定要引入第三个变量，并注意次序X=3Y=2T=XT=X+YX=Y或者X=YY=TY=T-X3 .整除(倍数)问题”一一余数为零(3种方法)方法1:xMody=0方法2:Int(x/y)=x/y方法3:x/y=xy4 .计数问题“一一统计符合条件的个数，初值=0每次自身加1例如:统计出1001000之间所有11倍数的个数的下列程序5 =0Forn=100To1000IfnMod11=0Thens=s+1NextnPrints
2、5.:累加问题“一一符合条件的数字累加，初值=0累加格式类似sum=sum+1.例如：计算1+1/3+1/5+1/7+99值的程序段S=0累加的初值必须=0Fork=1to99step2fo循环的开头，步长设置为2,即每次k的值加2S=s+1kNextkFOS环的结尾6、累乘问题“一一符合条件的数字累乘，初值=1,累乘格式类似s=s*k例如：计算1*4*7*10*13*17*20T=1Fork=1to20step3T=T*kNextkPrintT选择题16.下列数据中，属于字符串常量的是哪一项？（）A.ABCB.“123C.FalseD.2*x+523.函数Abs（x）的功能是下列选项中的哪一
3、项。（）A.求X的平方B.求X的算术平方根C求X的绝对值D.求不大于X的最大整数24.下列选项中的哪一项不属于程序设计高级语言。（）A.WordB.VBC.PascalD.C+接下来的步骤是下列选34.用计算机解决问题时，首先是分析问题，然后是设计算法,项中的哪一项。（）A.编写程序B.输入程序C得到答案D.调试运行程序36 .人们利用计算机解决问题的基本过程一般有如下四个步骤（），请按各步骤的先后顺序在下列选项中选出正确的答案（）调试运行程序设计算法分析问题编写程序A.B.C.D.37 .下列流程图符号属于判断框的是（）A./BB.C.DD.38 .在VB语言中，下列数据属于字符串常量的是（
4、）A.abcB.TotalC.1/2D.123”39 .下面是“输入两个数，将其中值最大的数存入max”的算法：第1步：输入两个数a,b。第2步：如果a大于b,则将a的值赋给max,否则将b的值赋给max。第3步：输出max的值。关于这个算法，说法正确的是（）A.上述算法是用自然语言描述的B.上述算法是用流程图描述的C.上述算法是顺序算法结构D.上述算法是用伪代码描述的40 .在VB语言中，以下函数运算中结果不是4的是（）A.Int（4.1）B.Len（信息技术）C.Abs（-4.1）D.Sqr（16）非选择题补充完善下列程序段（每小题3分，共12分）。从键盘输入圆的半径R,输出圆的周长L和面
5、积S。DimRAsSingleDimLAsSingleDimSAsSingle=InputBox（输入半径R）L=2*3.14*RS=3.14*R*RPrint”圆的周长L=;LPrint”圆的面积S=;S 计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费,超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。DimXAsSingleDimYAsSingleX=InputBox（输入行李重量）IfThenY=0ElseY=20*（X-20）EndIfPrint行李费=;Y 求s=2+4+6+100之和。DimiAsIntegerDimsAsIntegers=0Fori
6、=2To100Step2s=NextiPrints 输出100以内（包含100）能被3整除的数。DimIAsIntegerI=1DoIfIMod3=0ThenPrintIEndIfI=I+1LoopUntil4.有一张单据上有一个5位数的号码67DD8,其中百位和十位上的数字看不清了，但知道该数能够被78整除，也能被67整除，下面是用穷举法求出该号码的程序段：DimaAsInteger,bAsIntegerDimnAsLongFora=0To9Forb=0Ton=67008+*100+b*10IfnMod78=0nMod67=0ThenPrintEndIfNextbNexta请将应填写的内容写
7、在下面相应的空格内并运行程序写出该号码（每空3分,共12分）。5 .编写程序计算表达式a=|-3.6|+123Xsin67的值（圆周率n的值取3.14,计算结果用取整函数保留整数部分，每小题4分，共12分）。|-3.6|写成VB表达式应为：sin67写成VB表达式应为：在VB环境下编写程序并运行：PrivateSubCommand1_Click()DimaAsSinglea=Abs(-3.6)+123*Sin(67*3.14/180)a=Int(a)PrintaEndSub该程序的运行结果是：6 .启动VB,打开工程文件“C:MyExamVB6.vbp，完成如下算法设计：该程序的功能是求S=1
8、0+20+30+100请将程序缺失部分”补充完整，并将“字符删除，正确运行程序后，保存文件并退出VBoPrivateSubCommand1_Click()DimSasSingleDimiasIntegerFori=10To100StepDS=NextiPrintSEndSub7 .启动VB,打开工程文件“C:MyExamVB1.vbp，完成如下算法设计：以已知变量X的值是1987,下列程序的功能是求X的各位数字之和S,其中a存放的事个位数字，b存放的是十位数字，c存放的是百位数字，d存放的事千位数字。请将程序缺失部分“一”补充完整，并将“一”字符删除，正确运行程序后，保存文件并退出VBoPri
9、vateSubCommand1_Click()DimaasIntegerDimbasIntegerDimcasIntegerDimdasIntegerDimXasIntegerDimSasIntegerX=1987a=b=c=d=S=a+b+c+dPrintSEndSub8 .启动VB,打开工程文件“C:MyExamVB4.vbp，完成如下算法设计：编写一元二次方程X2+3X+2=0的求解程序，要求能够判断方程是否有限，如果没有根则给出相应的提示信息。请将程序缺失部分“一”补充完整，并将“一”字符删除，正确运行程序后，保存文件并退出VB。PrivateSubCommand1_Click()DimaasIntegerDimbasIntegerDimcasIntegerDimdasIntegera=1b=3c=2d=IfThenx1=x2=Printx1,x2ElsePrint”原方程无实根！EndIfEndSub
