选修模块1练习练习

《选修模块1练习练习》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、试题(一)选修模块1算法与程序设计（共30分）一、单项选择题（5个小题，每小题2分，共10分）1、使用流程图描述算法形象、直观，更容易理解。在流程图中，表示条件判断的基本图形是（B）A、矩形框B、菱形框C、圆形框D、椭圆形框2、程序有三种基本结构，下面哪个不属于这三种基本结构？（B）A、顺序结构；B、环形结构C、选择结构D、循环结构3、VB的字符串运算符是“&”，该运算符主要用于连接两个或更多的字符串。如："abcd"&"efg"连接后的运算结果为："abcdefg"。那么，"1+2"&"3"的运算结果为：（C）A、33B、6C、"1+23"D、True4、程序设计

2、语言的发展历程中,不包括(A)。A、自然语言B、机器语言C、汇编语言D、高级语言5.以下程序段执行后，整型变量a的值为（D）a=5b=8b=b-aa=a+bA、2B、3C、5D、8二、操作题（3个小题，共20分）1、分析程序，写出执行结果（6分）PrivateSubCommand1_Click()S=0Fori=1To3s=S+2*iNextiPrint"S=";SEndSub运行的结果是122、选择算法，解决问题（6分）我们在用计算机解决问题时，常用的算法有解析法、穷举法、递归法、选择排序法、插入排序法等，分析下列问题应采用哪种算法解决？水仙花数是一个三位数，其各

3、位数字立方和等于该数本，如153153=1*1*1+5*5*5+3*3*3。求出所有的水仙花数。3、分析并完善程序（8分）设计程序，计算1+1/3+1/5+……+1/49的值PrivatesubCommand1_click()DimiAsInteger,SAsSingleS=0Fori=1ToStep2S=NextiPrint"S=";SEndsub12试题(二)选修模块1算法与程序设计（共30分）一、单项选择题（5个小题，每小题2分，共10分）1、介于自然语言和计算机语言之间的一种算法描述是下列哪个选项？（A）A、伪代码B、流程图C、高级语言D、VB程序设计语言2

4、、如果x=16,则表达式sqr(x)－abs(-x)的值是（C）A、12B、0C、-12D、203、下列选项中属于字符串常量的是（C）A、abB、a+bC、"1235"D、12354、结构化程序设计由顺序结构、选择结构和循环结构三种基本结构组成。某个程序段语句如下：x=-4Ifx<0thenx=-xElsex=xEndif它属于：A、顺序结构B、选择结构C、循环结构D、以上都是。（B）5、以下程序段执行后，整型变量a的值为（A）a=2b=3b=b+aa=a*bA、10B、5C、6D、3二、操作题（3个小题，共20分）1、分析程序，写出执行结果（6分）PrivateS

5、ubCommand1_Click()DimaAsInteger,bAsIntegera=1:b=0DoWhilea<=312a=a+1b=b+a*aLoopPrinta,bEndsub执行结果：2、补全流程图：（6分）某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。请设计一个程序程序计算购买x千克苹果的应付款m。结束No是seYes是se输入苹果的重量xx<=?S=1.5*xS=1.5*x*输出应付款m开始3、分析并完善程序（8分）计算1+3+5+……+99的值PrivateSubCommand1_Click()Dimi,sAsI

6、ntegers=0Fori=1To12s=s+(2*i-1)Print"s=";sEndSub12试题(三)选修模块算法与程序设计一、单项选择题（共5个小题，每题2分）1、运用计算机程序解决实际问题时，合理的步骤是（B）A、设计算法→分析问题→编写程序→调试程序B、分析问题→设计算法→编写程序→调试程序C、分析问题→编写程序→设计算法→调试程序D、设计算法→分析问题→编写程序→调试程序2、在VB语言中，下列合法的变量名是（B）A、34abB、ab34C、*abcD、cc3、下列逻辑表达式的值为“假”的是（A）A、2+4>8B、3+12=15C、5>0And4>3D

7、、10/5<34、函数mid(C,N1,N2)的作用是从字符串C中N1位开始取出长度为N2的子串。那么，Mid("aBcDeFg",3,3)的值为（D）A、aBcB、cdeC、eFgD、cDe5、下列程序段执行结束后，变量y的值是（C）y=2Dowhiley<=6y=y+yLoopA、2B、6C、8D、16二、操作题（3个小题，共20分）1、分析程序，写出执行结果（6分）PrivateSubCommand1_Click()DimSAsInteger,iAsIntegerS=0Fori=1To10Step2S=S+iNexti12Print"S=";sEndsub