专题训练二算法与程序设计

1、专题训练二算法与程序设计一、选择题1 某算法的流程图和自然语言表示分别如下:L T/输出max/_丽自然语言1输入两数a、b2判断a、b的大小，如果ab,那么max=a,否则max=b3输出max4结朿 则流程图中处应填入()A.max.amax-bB. maxb mamaC. a-max b-maxD.b.maxamax2已知f(l)=l,f(2)=l,当n2时,f(n)=f(n.l)+f(n-2).求F(10)的值，解决该问题最为合适的算法是()A.排序算法B.査找算法C.枚举算法D.递归算法3任VB中，下列泄义实数常量正确的是()A.Const pi As SingleB.Dim n=3

2、A4C.Const pi=34 D.Const 7t=3.144在 VB 中使用自企义函数的主要原因是()A.使程序模块化，便于反复调用B.使程序更加美观C.便于人机交互D.防止他人解密程序5下列VB表达式的值等于100的是()A.Sqr(lOO) B.Int(-99)+lC.Asc(” 2 )+98 DLcn( 2016 )+966将数学表达式J|abc2|写成Visual Basic表达式，正确的是()A.Int(Abs(ab-c * c)B. Sqr(Abs(ab-c* 2)C.Int(Abs(a* b-c* c)D.Sqr(Abs(a* b-c* c)7运行以下 VB 事件处理过程，出

3、现下图所示出错信息。/ 输Aa、b /Microsoft Visual BasicPrivate Sub Commandl_ClickOa=10b=a-5c=Sqr(bA2-aA2)on=Str(c)End Sub引发该错误的语句是()A.b=a-5B.c=Sqr(bA2-aA2)C.on=Str(c) D.End Sub8如图所示是VB窗体中某个对象的属性窗口，下列说法中正确的是()|Textl TextBox（名称）TextlAligwTitnt0 Left JustilAppearance1 - 3DBackColor AH80000005ABorderStyl*1 Fixed Sing

4、3ausesVali dati onTrue D&taFieldA.True是该对象的属性名B.该对象需为TextlC.该对象属于标签类D.BackColor是该对象的属性值9有如下自泄义函数gcd功能是求x和y的最大公约数Function gcd（x As Integer.y As Integer） As IntegerDo While y0z=x Mod yx=yy=zLoopEnd Function运行时发现该函数返回值始终是0,原因是（）A.函数返回数据类型错误B.函数没有返回运算结果C.函数名错误D.变量z没有左义10 某算法的部分程序代码与其对应的流程图分别表示如下:帮助实

5、时错w：无效的过程调用述参数流程图程序代码Private Sub Command l_Click()Dim i As Integer.a( 1 to 10) As Integer a(l)=l :a(2)=lForNext i则代码处应填入的语句是()A.上1 to 10Bi=3 to 10C.j=3 to10D.i=3 to 1011.有如下VB程序段：a=3:b=4:c=5If a=b And a=c Theny=aElse If b=c Theny=bElsey=cEnd If该程序运行之后，变量y的值是()A.OB.3C.412以下是一段VB程序：n=0 : m=0For i=l To

6、 100If md0.5 Thenm=m+lElsen=n+lNext i在运行程序时，出现了下图所示的错误信息:Microsoft Visual Basic公编译错误：For没有Next确定导致该错误的原因是程序中缺少了()A.ForB.End IfC.NextD.If13从N张牌中抽出r张，有多少种排列方法，用计算机编程解决这个问题，按以下步骤求解:(1)输入八r的值(2)用循环求解r!=l* 2* 3* -用循坏求解n!/r!=(r+l) * (r+2) * * n (4)求解文案数s=(n!/r!)/r!上述算法属于()A.枚举算法B排序算法C.递归算法D.解析算法14将文本框Text

7、l中输入的姓名保存到变量sName中，则使用的语句是()A.sName=onB.sNmac=C.=sNmaeD.on=sName a(i)=a(i-l)+a(i-2) a(i)=a(i-l)+a(i-2) a(i)=a(i-l)+a(i-2)D.515以下VB程序实现的功能是()Private Sub Command l_Click()ed=Fa!seEnd SubA单击Command 1 Jn.Command 1对象不可见B.单击Command 1后.Command 1对象不响应事件C.单击Command 1后,Commandl对象可见D单击Command 1后,Command 1对象能响应

8、事件16在NBA某赛季中,快船队5场比赛得分依次是97.89J 11,70.90,若采用冒泡排序算法对其进行从 小到大排序，在整个排序过程中，数据9T共被交换的次数是()A.1次B.2次C.3次D.4次17.(2015-浙江10月选考)已知单调函数f(x)在0.1区间存在一个X。 ,使f(xo)=0o现用对分查找法搜索X。的值，开始搜索区间为0J,若经过10次对分查找后还需继续搜索，则第11次搜索区间的长度为()A.l/2B.I/10C.l/102D1/21&下列VB程序运行时，单击按钮Command 1后,文本框Textl和Text2中显示的内容分别是()Private Sub Co

9、mmand l_Click()Dim a(l to 4) As Integer,k As Integers As Stringa(l)=l : a(2)=3 : a(3)=2 : a(4)=0 : s=0For k=2 To 4If a(k)a(l) Thent=a(l)：a( 1 )=a(k) : a(k)=ts=s+lEnd IfNext k=slr(a(l)=str(s)A.l 0B.2 2C.31D.21二、综合题1.(2015-浙江10月选考)编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数， 单击命令按钮Command 1列表框Listl中显示结果，运行

10、效果如左下图所示。结果包含两列数据， 第1列为两数之间的摄氏温度值(间隔1度、升序)，第2列为对应的华氏温度值。St性Command!.冋|CoMo:TruDefaultFolseVi 4th返回/设歆播的刃5。要使命令按钮Command 1上显示的文本改为“转换；可在其属性窗口中将_ 属性的属性值修改为“转换二(2)为实现上述功能,请在画线处填入合适代码或选项。Private Sub Command l_Click()Dim 11 As Integer, t2 As IntegerDim i As Integer, t As IntegerDim f As Single丫存储华氏温度值tl

11、=VaI()t2 =Val()If Then，(选填字母，从下列A. B、C、D四个选项中选取一项)t = tl：tl=t2：(2 = tEnd Ifi = tlDo While (2)* (选填字母,从下列A、B、C、D四个选项中选取一项)f=i* 9/5 + 32摄氏温度转换为华氏温度em Str(i) + + Str(f)1(填程序代码)LoopEnd Sub画线处应选_，处应选_ ，处应填_oA.i = t2B.ft2D. i= a* And t0 x =_ 0;_Ifx9Thcn如果余数大于10则将其转换为对应的十六进制字母c =Chr(Asc(” A ) + x10)Elsec =

12、Str(x)End Ifsl6=_slO = slO 16Loop= sl6End Sub程序中画线处应填入的代码是_程序中画线处应填入的代码是_4小王设计了一个程序来列举仁川亚运会的奖牌前十的国家。下列VB程序实现如下功能:单击命令 按钮Command 1后，在列表框Listl中按奖牌数由多到少显示国家名称，界而如下图所示。0rira!奖牌数前十强请根据算法将下列程序补充完整。Dim a(l To 45) As String*存放45个参赛国家和地区Dim b(l To 45) As Integer1存放奖牌数Private Sub Form_Load()Dim conn As New ct

13、ionDim rs As New dsetctionString =,rprovider=.OLEDB.12.0;datasource=& & 仁川亚运.accdbSet rs.ActiveConnection = connrs.Open select#from奖牌榜i=0Do While Not rs.EOFi=i+la(i)=rs.fields(7country)b(i)=rs.fields(medal)rsnovenextLooprs.CloseSet rs=NothingSet conn=NotingEnd SubPrivate Sub Command l_Click(

14、)Dim i As IntegerJ As IntegerDim t As IntegerJ As IntegerFor i = 1 To44Forj =45 To i+1 Step-1If Q Thenf=a(j)：a(j) = a(j-l)：a(jl) = ft=b(j)：b(j) = b(j-l)：b(j-l) = tEnd IfNext jNext iFor i =_cm 第”+S(r(i)+ 名+ a(i) + 奖牌数+ Str(b(i)Next iEnd Sub(1)程序中，国家和奖牌数据来自数据库文件_ 中的数据表_ ，其中存放奖牌数的字段是。845747365751448457

15、4736575144(2)为实现程序功能，代码中画线处应填写语句是_ ，处应填写语句是_O(3)程序中对奖牌数的排序采用的算法是_o专题训练二算法与程序设计一、选择题1.A 解析:对照流程图和自然语言可知，流程图中处对应自然语言的第2步，当ab时,max二a,否则max二b,所以处应填写maxa,处应填写maxb。2.D解析:从表达式f(n)=f(n.l)+f(n.2)知球解函数f(n)的值时，须先取得前两项f(n-l). f(n-2)的值,函数发生了自我调用，这种算法属于递归算法。3. C 解析:常莹的定义方法:Const常量名二数值，常量名命名规则同变莹命名规则一样，由字母、 数字和下划线

16、组成,但必须是字母开头,VB中已使用的关键字不能作为常量名。4.A5.D解析:Sqr(100)=10Jnt(.99)+l=-9&Asc( 2)+98二148。6.D7.B解析:错误无效的过程调用或参数该明函数的参数有错误。程序中，由于b2.aA2=25-100二75,而函数sqr的功能是返回参数的算术平方根,该函数要求参数值大于等于0,故而出错。8.B解析:该对象属于文本框类TextBox,True是该对象的属性值,BackColor是该对象的属性 名。9. B 解析:自定义函数必须有返回值，语句格式为“函数名=:表达式。本题可在Loop语句下面插 入一行语句ugcd=xn实现功能。1

17、0.B解析:由流程图可知，程序是循环结构，循环条件是iW10,循环变量i初值是3,终值是10每 次循环i增值1,所以处语句为“i=3To 1(F,对照流程图，处应填入a(i)二a(il)+a(i2)。11.D解析:題中a=b”a=c和b=c，嘟不成立，因此执行Else分支语句y二c。12.B解析:程序中有一个块if语句没有end if。13.B解析:总的牌数n和抽出的张数i是一个组合问题,组合数可以通过公式s=(n!/r!)/r!求解，这 种解决问题的算法是解析算法。14.B15.B解析:Enabled属性的决定对象是否响应事件，若其值为True,对象能响应事件，值为False则不能响应事件。

18、16.C解析:升序冒泡排序过程如下表所示，可见97被交换3次。原始数据97891117090第一遍70978911190第二遍70899790111第三遍7089909711117.D解析:第1次搜索区间的长度为1,第2次搜索区间的长度为1/2,第3次为1/4,依次类推，第11次搜索区间的长度为1/2叭18.C解析:循环体功能是如果a(k)大于a(l),就交换a(k)和a(l)的值,s累加1”。该循环执行3次,只有当k=2,a(k)a(l)条件成立，所以a(l)的值被替换为a(2),s被累加一次，聂终值为1。二、非选择题1 答案:(l)Caption (2) CA上i+1解析:从Do While循环可知,循环体的功能是通过i把摄氏温度转换为华氏温度,i是循环变至其 初值是1终值为2间隔1度，所以步长是1,处应填iV二2处应填i=i+lo如果n大于2则 交换两数，所以填tlt2o2 答案:Lcn(ch)on = s解析:程序的思路是逐个取出字符串中的毎一个字符，如果是小写字母，则转换为大写后加入到变 S中,最后把s显示在Text2中。3答案:slO Mod 16 c + sl6解析:根据程序除16取余”法的描述,算法首先对十进制数slO除以16,得到余数x,把x转换为 相应的十六进制数字， 加入变t S16中， 商S16则重复上述步骤直到其值为0。