《算法》专项练习（二）含答案

1、算法专项练习(二)一、选择题(本大题共10小题，每小题2分，共20分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分)1有如下程序段：Dim i As Integer，sum As IntegerDim a(1 To 5) As Integersum 0For i 1 To 5a(i) i * iIf a(i) Mod 2 0 Then sum sum a(i)Next iText1.Text Str(sum)运行该程序段后，文本框Text1中显示的内容是()A0 B20 C35 D552某算法的流程图如图所示，执行完流程图后，变量s的值为()A0 B9 C13 D

2、273某Visual Basic程序如下：Private Sub Command1 Click()Dim a(1 To 10) As Integer，i As IntegerFor i 1 To 10a(i) i * iNext iList1.AddItem Str(a(i)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是AFor i 1 To 10 Ba(i) i * iCNext i DList1.AddItem Str(a(i)4某同学正编写一个判断酒驾行为的Visual Basic程序，其窗体和代码窗口如图所示。根据代码窗口中的程

3、序，要在程序运行时获取输入的x值，窗体上必须增加的对象是()A标签Text1 B标签Label2C文本框Text1 D文本框Label25.右边流程图描述算法的执行模式是()A顺序模式 B分支模式C循环模式 D混合模式6有如下VB程序段：x0For i1 To 100xxiNext i该程序运行之后，整数型变量x的值是()A100 B4450C5050 D50007某窗体的Name属性为MyFrm，则它的Load事件的过程名为()AMyFrm Load BMe LoadCForm1 Load DForm Load8文本框不具备的属性是()AEnabled BVisible CBackColor

4、 DCaption9要清除List列表框控件中的所有项目，可采用的方法是()AAddItem BClear CClick DDelete10Private Sub Command1 Click()Dim n As Integer，y As Integer，x As Integera 1b 0n 0Do While a 20n n 1b a ba a * (a 1)LoopText1.Text nText2.Text aText3.Text bEnd Sub程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果分别是()A263 B3429C4429 D3423

5、二、非选择题(本大题共1小题，共10分)11一个四位数，如果它各位上数字的4次方之和等于这个四位数本身，则称这个四位数为四叶玫瑰数。编写VB程序，实现功能如下：单击“四叶玫瑰数”按钮Command1，在标签Label1中显示四叶玫瑰数的个数，在列表框List1中显示所有四叶玫瑰数，运行界面如图所示。(1)在设计应用程序界面时，可通过上图所示“控件工具箱”中的 (填写相应编号)添加列表框List1对象。(2)为实现程序功能，请填入合适代码。Private Sub Command1 Click()Dim k As Integer统计四叶玫瑰数个数Dim a，b，c，d As IntegerDim

6、i As Integerk 0 查找范围是 4 位数a i 1000千位上的数字b (i Mod 1000) 100百位上的数字c (i Mod 100) 10十位上的数字d 个位上的数字If a4b4c4d4i ThenList1.AddItem Str(i)将找到的四叶玫瑰数添加到列表框kk1End IfNext i ”一共找到”Str(k)”个四叶玫瑰数。”显示四叶玫瑰数的个数End Sub(3)本程序通过逐一判断来查找出所有四叶玫瑰数，这种属于 算法。答案精析1Ca(i)是i的平方数，但If判断要求a(i)是奇数才加到sum，所以sum1925。2D循环第一轮k14，s05，第二轮k54，s59，第三轮k94，s1413，循环退出。3D循环结束后i11，定义中没有a(11)，所以下标越界。4C代码中有xVal(Text1.Text)。5A6C程序计算1100的和。7D窗体的加载都是Form_Load，与名称无关。8DCaption是窗体、标签和按钮的属性，文本框与之类似的属性是Text。9B列表框清空的用法是List1.Clear。10B循环三轮，第一轮 n1，b1，a111(1)d(2)For i1000 To 9999i Mod 10Label1.Caption(3)枚举