信息技术算法复习资料资料

1、精品文档选择题复习1. 下列各组控件都具有 Caption属性的是CA.窗体、文本框B.标签、定时器2. 下面关于算法的错误说法是BC.窗体、标签D.文本框、定时器A）算法必须有输岀B）算法必须在计算机上用某种语言实现C）算法不一定有输入D）算法必须在有限步执行后能结束答案：B分析：算法就是解决某一特定类型问题的有限运算序列。一个算法必须是在执行有限步之后结束；算法中的每一步 必须有确切定义；一个算法有 0个或多个的输入，也必然有一个或多个的输岀。算法不等同于程序，一个程序，譬 如一个操作系统，只要不关机，它就不会结束。算法的设计可以避开具体的计算机和程序设计语言，也可以借助程 序设计语言中提

2、供的数据类型及运算在具体的层次上实现。Pascal语言的发明人沃斯提出一个精辟论点：算法+数据结构=程序。3.下列每个控件都具有的属性是AA.NameB.Caption4.下列运算结果中，值最大的是DC.FontD.lntervalA.34B.3/4C.4 mod 3D.3 mod 4H /表示除 表示整除,mod表示求余数5. 以下哪个是合法的变量名 DA . LenB . TestqwC. 6costD . count2s6. 在Visual Basic代码中，将多个语句合并在一行上的并行符是D.问号（?）A. 撇号（'）B.冒号（：）C.感叹号（！）7. 下列语句中，可以表示输入

3、语句的有 C D ，输岀语句的有 表示赋值语句的有A D F G （ 多选）A. text1.text=str(a) B.msgbox(a) C.inputbox() D.P=val(text5.text)E. print a F. a=a*b+c G.ads=3099下面程序执行的结果是CPrivate Sub Form_Click()A = "123": B = "456"C = Val(A) + Val(B)Uval是把字符转化为数值的函数msgbox (C 100)End SubA.123B.3C.5D.57911 .下列逻辑运算结果为"

4、;true"的是A. flase or not trueB. flase and not trueC. true or not trueD. true and not trueA . Label 控件C. Timer 控件13.以下程序段执行后，整型变量n的值为D12 下列控件中可用于接受用户输入文本，又可用于显示文本的是B. TextBox 控件D. CommandButton 控件year=2001n=year4+year400-year100A. 495B. 505C. 500D. 48514. 下列关于 CommandButton控件的叙述正确的是 AA. CommandBu

5、tton控件的Caption 属性决定按钮上显示的内容精品文档B. 单击 VB 应用程序中的按钮，则系统激活按钮控件对应的 Change 事件C. CommandButton 控件的 name 属性决定按钮上显示的内容D. 以上都不对15. 使用枚举法解决问题，在列举问题可能解的过程中，B。A.不能遗漏，但可以重复B. 不能遗漏，也不应重复C. 可以遗漏，但不应重复D. 可以遗漏，也可以重复16. 一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是 CA. 对象，属性，事件，方法B. 对象，属性，方法，事件C. 属性，对象，方法，事件D. 属性，对象，事件，方法对象的属性定义其外观、方法定义其行

6、为、事件定义其与用户的交互17. 如果要改变窗体的标题 , 需要设置窗体对象的属性。 BA. NameB.CaptionC.BackColorD.BorderStyle18. 窗体的 BackColor 属性用于设置窗体的 CA. 高度B. 宽度C. 背景色D. 前景色19. Visual Basic提供的标签控件(LABEL可具有功能是 BA. 输入文本 B. 显示文本 C. 计时 D. 显示时间20. 要使窗体Forml的标题栏中显示“正在复制文件"，以下语句正确的是AA . Form1.Caption= “正在复制文件"B . Form1.title=“正在复制文件&

7、quot;C . Form1.Text= “正在复制文件"D . Form1.名称=“正在复制文件"21. Visual Basic 规定窗体文件的扩展名是 BA. .for B. .frm C. .vbp D. .bas22下列关于算法的叙述不正确的是CA 算法是解决问题的有序步骤B 算法具有确定性、可行性、有限性等基本特征C 一个问题的算法都只有一种D 常见的算法描述方法有自然语言、图示法、伪代码法等24以下选项中，不是Visual Basic 控件的是A. 文本框 B. 定时器 C. 窗体 D. 命令按钮 26双击窗体中的对象后，Visual Basic 将显示的窗口

8、是 CA. 项目(工程)窗口 B 工具箱 C 代码窗口D 属性窗口27下列逻辑表达式中能完全正确表示条件"year 是闰年" 的是 CA. year mod 4=0B. year mod 400=0C. (year mod 400=0) or (year mod 4=0) and (year mod 100<>0)D. (year mod 400=0) and (year mod 4=0) or (year mod 100<>0)28. 下列关于 For .next语句的说法正确的是 AA. 循环变量、初值、终值和步长都必须为数值型C. 初值必须小于

9、终值 值29若要设置文本框中所显示的文本颜色，使用的属性是A.BackColor B.FillColorC.ForeColor30命令按钮能响应的事件是 BADblClickBClick CLoad DB. step 后的步长只能为正数D. 初值必须大于终CD.BackStyleScroll精品文档32. Visual Basic程序设计的完整的步骤是CA.可视性程序设计C .可视性程序设计和代码程序设计B. 代码程序设计D 界面设计33 .在Visual Basic 环境下，当写一个新的 Visual Basic程序时，所做的第一件事是A.编写代码B 新建一个工程C 打开属性窗口D 进入VB

10、环境34. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是BA属性、事件、方法C窗体、控件、过程B控件、属性、事件D.窗体、控件、模块36.如果x=4,那么以下运算结果为True的表达式是DA . (x<=4)and(x>=6)C . (x<4)or(x>6)B . (x>4)Or(x>=6)D . not(x<>4)38.下列各赋值语句，语法不正确的是AA .x+y=5B .BiNumber =15C .Labell.caption =timeD .sLength =x+y39. Visual Basic规定工程文件

11、的扩展名是CA. .for B. .frm C. .vbp D. .bas42 .下列各组变量声明不正确的是DA . Dim abc as integer , num as singleB . Dim p(3 to 100) as integerC . Dim aaa,ccc,bb as doubleD . dim saa,str,sqr as char43.找岀表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解，这种方法叫做D。A.递推法B .枚举法 C .选择法 D .解析法45. 已知：三角形三条边的长 a、b、c,求三角形的面积。求三角形面积的海伦公式是：s

12、 p(p a)( p b)(p c)其中：p (a b c) / 2下述流程图正确的是B。A .B.c卄始ti输入i a、b. c檢入a a-, b-. cib + c )工*P = ( a-K b + c ) f 2S l去一w >(p-=旳 3 一 3+諭出=£輪出：s*T精品文档46. 关于下面流程图功能的描述正确的是： DA. 输入一个数，若其大于 0则输岀该数，若其小于 0则输岀该数的相反数B. 输入一个数，若其小于或等于0则输岀该数的相反数C. 输入一个数，输岀其绝对值D. 以上答案都正确(范围确47 鸡、兔共笼问题，有腿共60条，问鸡、兔各有多少只？下面鸡和兔只数

13、最合理的范围是B_定了循环的起始值和终止值)A. 鸡：1到28，兔：1到14B. 鸡：2到28,兔：1到14C. 鸡：1到28,兔：2到14D. 鸡：2到28,兔：2到1450.算法的特征是：有穷性、 B、能行性、有0个或多个输入和有一个或多个输岀。A.稳定性 B.确定性C.正常性D .快速性52.算法中通常需要三种不同的执行流程，即：D。A. 连续模式、分支模式和循环模式B. 顺序模式、结构模式和循环模式C. 结构模式、分支模式和循环模式D. 顺序模式、分支模式和循环模式55.关于程序中的变量，下面说法中错误的是：B中。A. 旦将数据存入某变量，读取变量中的值，不会改变变量的内容B. 一旦将

14、数据存入某变量，以后就不能将新的数据存入该变量C. 一旦将数据存入某变量，以后可以将新的数据存入该变量D. 旦将数据存入某变量，只要不把新的数据存入，变量的内容不会改变57.采用盲目的搜索方法，在搜索结果的过程中，把各种可能的情况都考虑到，并对所得的结果逐一进行判断, 滤掉那些不合要求的，保留那些合乎要求的结果，这种方法叫做B 。A.递推法B枚举法C选择法D解析法VB程序填空题1、下列程序的功能是从键盘上任意输入一个数，判断这数 是正数、负数、还是零，并输岀判断结果。程序中有三处错误，请更正。程序如下：Private Sub Command1_Click()精品文档Dim a As Singl

15、eDim py As Stringa=Val(Text1)If a>0 Then py="正数"If a=0 Then py="零"If a<=0 Then py=" 负数"Label3.Caption=aEnd Sub _2、完善程序，使其能输出：1-2+3-4+5-6+.+99-100 的值。程序如下：Private Sub Command1_Click()s=For i=1 Tos=s+(-1)a()*iNext iPrint sEnd Sub3、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中

16、a不等于0。编写程序，求方程的根， 要求：如果方程无实数根，则输岀“无实数根”，否则输岀两个实数根。程序如下：Private Sub Command1_Click()Dim a,b,c,d As SingleDim x1,x2 As Singlea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=bA2-4*a*cIf dThenx1= (-b+Sqr(d)/(2*a)x2=(-b-Sqr(d)/(2*a)Label1.Caption=x1Label2.Caption=x2Label3.Capti on=_ End IfEnd Sub4、如

17、果下面程序执行后输岀的结果是132,请将程序补充完整：Private Sub Command1_Click()i = 12: s = 1Do Whiles = s * ii = i - 1LoopMsgBox (s)END Sub5、 下面的程序是求7! (7!=1*2*3.*6*7)的值，并在默认窗口输岀这个值。程序中有两处错误，请更正。Private Sub Command1_Click()Dim a As Singlea=0For i=1 to na=a*iNext iMsgbox (a)End Sub6、下面的程序是求100以内奇数和s的值(S=1+3+5+7.+99 )。请将程序补充

18、完整：Private Sub Command1_Click()Dim s As SingleDim i As SingleS=For i=1 to 100 StepNext iMsgbox(s )End Sub7、下列 Visual Basic 程序：Private Sub Command1_Click()Dim sum As Long , i As Integersum = 0For i = 1 To 100 Step 2sum = sum + i * iNext iText1.Text = Str(sum)End Sub该程序能完成计算的数学表达式是8、小明数了圈在一起的鸡和兔共有 30个

19、头，90只脚，在 这个圈子中鸡和兔各有多少只？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式。设鸡为x只，兔为y只，Visual Basic程序如下：Private Sub Command1_Click()Const head = 30, foot = 90Dim x, y As Integer精品文档y =x =Textl.Text = Str(x)Text2.Text = Str(y)End Sub9、利用文本框输入一个正整数 N ,求出2+3/2+4/3+5/4+ + (N+1)/N程序是：Private Sub command1_click()Dim N, s,

20、i As Integers = 0N = Val(Text1.Text)For i =Tos =Next iMsgbox ( )End Sub11、用物理天平测量物体的质量时，测得物体的质量为a克(a为整数，并小于1千克)，问：这时在天平的砝码盘 中应有哪几个砝码？请选用最少数量的砝码(称质量为1千克的物体，天平的砝码由下列质量的砝码组成：500克1个，200克1个，100克2个，50克1个，20克1个，10 克2个，5克1个，2克2个，1克1个)。为了实现这一目标，请参照下边的流程图完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设 计。Dim a(1 To 12) As Int

21、egerDim i As Integer, x As IntegerPrivate Sub Command1_Click()a(1) = 500: a(2) = 200a(3) = 100: a(4) = 100a(5) = 50: a(6) = 20: a(7) = 10: a(8) = 10a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1x = Val(Text1.Text)i = 1Do WhileIf x >= a(i) ThenList1.Addltem Str(a(i)End Ifi = i + 1LoopEnd SubMW- M、13、下面

22、是一个检测密码的程序(界面如图 7 - 4,其功能 是：当用户输入的密码正确时， 在窗体上显示“欢迎您使用 本系统”；否则显示“密码错误！请重新输入密码： ”。正确 的密码是0123456789。仔细阅读程序，请问程序中划线处的语句应为Private Sub Form_Load()Text1.Text = "": Text1.MaxLength = 10Text1.PasswordChar = "*"'表示密码用*显示Label2.Caption = "": Label2.Alignment = 2End SubPrivate

23、 Sub Text1_KeyPress(KeyAscii As Integer)Label2.Caption =""If KeyAscii = 13 Then 'KeyAscii=13表示是回车键ifThenLabel2.Caption ="欢迎您使用本系统!"Else Label2.Caption='以下两语句的作用是使程序能自动选中错误的密码，使用户可直接重新输入Text1.SelStart = 0Text1.SelLength = Len (Text1.Text)End IfEnd SubEnd If精品文档14、猴子吃桃问题。猴子

24、第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早晨又将剩下的桃 子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩 下的一半零一个。到第十天早上再想吃时，见只剩一个桃子 了。问：第一天猴子共摘了多少个桃子。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。Visual Basic 程序如下：Sub Command1_Click()Dim i, s As IntegerFor i=1 to 9Next iText1.Text = Str(s)End Sub 15、下面程序(界面如图)的功能是:将0到255之间的十进制整数转换为二进制整数的表

25、示形式。在如图中上面的文本框(Text1 )中输入一个0到255 之间的十进数，单击“转换”按钮，该十进制整数的二进制形式会显示 在下面的文本框(Text2 )中。为了实现这一目标，程序中 划线处的语句应为.Private Sub Command1_Click()Dim a As IntegerDim s As StringDim i As IntegerDim c(1 To 8) As Integera =val( Text1.Text)If a < 0 Or a > 255 ThenText2.Text ="输入数据错误，请重新输入！"ElseFori =

26、1 To 8c(i) = a Mod 2a =s = Str(c(i) + sNext iText2.Text = sEnd IfEnd Sub16、个位数字是6，且能被3整除的3位数共有多少个？ 下面程序用于解决这一问题，在划线处填入合适的语句或表 达式，设共有n个这样的数，第16题流程图Visual Basic程序如下：Sub Command1_Click()Dim i As Integer, n As Integerm = 106n =Do While m <= 996IfThe n n = n + 1m =LoopText1.Text = Str(n)End Sub17、求两个整

27、数的最大公约数分析：求最大公约数的算法思想：(1)对于已知两数 m, n，使得m>n；m除以n得余数r ；若r=0，则n为求得的最大公约数，算法结束；否则执行；m jn，n jr，再重复执行(2)。例如：求m=14 ,n=6 的最大公约数.m n r14 6 2精品文档请根据以上思路补充下面的程序代码：Private Sub Command1_Click()m = lnputBox("m=")n = InputBox("n=")If m < n Then t = m: m = n: n = tr =Do While (r <> 0

28、)m = nn = rr = m Mod nLoopPrint " 最大公约数=",nEnd Sub18、以下程序的功能是：从键盘上输入若干个学生的考试分 数，统计并输岀最高分数和最低分数，当输入负数时结束输入，输岀结果，请将程序补充完整。Private Sub Form_Click()Dim x, amax, amin As Singlex = InputBox("Enter a score")amax = xamin = xDo WhileIf x > amax Thenamax = xEnd IfIfThenamin = xEnd Ifx =

29、 InputBox("Enter a score")LoopLabe1.Text= amaxLabel2.Text=End Sub25、在我国古代孙子算经中曾经提岀这样一个问题。原 文是这样的：“今有物，不知其数，三三数之，剩二；五五 数之，剩三；七七数之，剩二；问物几何？”试用枚举法来 解决这一问题。现分析如下，所寻找之数为满足如下条件的 自然数：以3除余2,以5除余3,以7除余2，程序将从 自然数1开始依次寻找，逐一判断某一自然数是否满足全部 条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整：(程序运行界面图)Private Sub Comman