信息技术算法复习资料(共9页).doc

精选优质文档-倾情为你奉上选择题复习1.下列各组控件都具有Caption属性的是 C    A.窗体、文本框        B.标签、定时器       C.窗体、标签     D.文本框、定时器2. 下面关于算法的错误说法是 BA)算法必须有输出 B)算法必须在计算机上用某种语言实现C)算法不一定有输入 D)算法必须在有限步执行后能结束答案：B分析：算法就是解决某一特定类型问题的有限运算序列。一个算法必须是在执行有限步之后结束；算法中的每一步必须有确切定义；一个算法有0个或多个的输入，也必然有一个或多个的输出。算法不等同于程序，一个程序，譬如一个操作系统，只要不关机，它就不会结束。算法的设计可以避开具体的计算机和程序设计语言，也可以借助程序设计语言中提供的数据类型及运算在具体的层次上实现。Pascal语言的发明人沃斯提出一个精辟论点：算法+数据结构=程序。3.下列每个控件都具有的属性是A    A.Name     B.Caption     C.Font     D.Interval4.下列运算结果中，值最大的是 D    A.34     B.3/4     C.4 mod 3     D.3 mod 4            /表示除,表示整除,mod表示求余数5.以下哪个是合法的变量名 D    ALen     B     C6cost_1     Dcount2s6.在Visual Basic代码中，将多个语句合并在一行上的并行符是 B    A. 撇号（'）     B. 冒号（：）     C. 感叹号（！）     D. 问号（?）7.下列语句中，可以表示输入语句的有 C D ，输出语句的有 A B E 表示赋值语句的有 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下面程序执行的结果是 C    Private Sub Form_Click()    A = "123": B = "456"    C = Val(A) + Val(B)            val是把字符转化为数值的函数    msgbox (C 100)    End Sub    A.123         B.3         C.5         D.57911下列逻辑运算结果为"true"的是 C    A.flase or not true     B.flase and not true    C. true or not true     D.true and not true12下列控件中可用于接受用户输入文本，又可用于显示文本的是 B    ALabel 控件      B. TextBox 控件    C. Timer 控件      D. CommandButton 控件13.以下程序段执行后，整型变量n 的值为 D    year=2001    n=year4+year400-year100    A. 495     B. 505     C. 500     D. 48514.下列关于CommandButton 控件的叙述正确的是 A    A. CommandButton 控件的Caption 属性决定按钮上显示的内容    B. 单击VB应用程序中的按钮，则系统激活按钮控件对应的Change 事件    C. CommandButton 控件的name 属性决定按钮上显示的内容    D. 以上都不对15. 使用枚举法解决问题，在列举问题可能解的过程中，B。A不能遗漏，但可以重复B不能遗漏，也不应重复C可以遗漏，但不应重复D可以遗漏，也可以重复16.一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是 C    A.对象，属性，事件，方法     B. 对象，属性，方法，事件    C.属性，对象，方法，事件     D. 属性，对象，事件，方法        对象的属性定义其外观、方法定义其行为、事件定义其与用户的交互17.如果要改变窗体的标题,需要设置窗体对象的属性。B    A.Name     B.Caption     C.BackColor     D.BorderStyle18.窗体的BackColor属性用于设置窗体的 C    A.高度     B.宽度     C.背景色     D.前景色19. Visual Basic提供的标签控件（LABEL）可具有功能是 B A.输入文本 B.显示文本 C.计时 D.显示时间 20. 要使窗体Form1的标题栏中显示“正在复制文件”，以下语句正确的是 A    AForm1.Caption=“正在复制文件”    BForm1.title=“正在复制文件”    CForm1.Text=“正在复制文件”    DForm1.名称=“正在复制文件”21. Visual Basic规定窗体文件的扩展名是 B A. .for B. .frm C. .vbp D. .bas22下列关于算法的叙述不正确的是 C    A算法是解决问题的有序步骤     B算法具有确定性、可行性、有限性等基本特征    C一个问题的算法都只有一种     D常见的算法描述方法有自然语言、图示法、伪代码法等24以下选项中，不是 Visual Basic控件的是    A.文本框 B.定时器 C.窗体 D.命令按钮26双击窗体中的对象后，Visual Basic将显示的窗口是 C    A.项目（工程）窗口 B工具箱 C代码窗口 D属性窗口27下列逻辑表达式中能完全正确表示条件 "year是闰年"的是 C    A. year mod 4=0     B. year mod 400=0     C. (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 语句的说法正确的是 A    A.循环变量、初值、终值和步长都必须为数值型     B.step后的步长只能为正数    C.初值必须小于终值                             D.初值必须大于终值29若要设置文本框中所显示的文本颜色，使用的属性是 CA.BackColor B.FillColor C.ForeColor D.BackStyle30命令按钮能响应的事件是 BADblClick BClick CLoad DScroll32Visual Basic程序设计的完整的步骤是C    A. 可视性程序设计                   B代码程序设计    C可视性程序设计和代码程序设计     D界面设计33在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是 B    A.编写代码 B新建一个工程 C打开属性窗口 D进入VB环境34Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是B    A属性、事件、方法     B控件、属性、事件    C窗体、控件、过程     D 窗体、控件、模块 36如果x=4，那么以下运算结果为True的表达式是 D    A(x<=4)and(x>=6)     B(x>4)Or(x>=6)    C(x<4)or(x>6)     Dnot(x<>4)38. 下列各赋值语句，语法不正确的是 A    A x+y=5     B BiNumber =15     C Labell.caption =time     D sLength =x+y39. Visual Basic规定工程文件的扩展名是 C    A. .for B. .frm C. .vbp D. .bas42下列各组变量声明不正确的是 D    ADim abc as integer , num as single    BDim p(3 to 100) as integer    CDim aaa,ccc,bb as double    Ddim saa,str,sqr as char43.找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解，这种方法叫做D。A递推法 B枚举法 C选择法 D解析法45. 已知：三角形三条边的长a、b、c，求三角形的面积。求三角形面积的海伦公式是：其中：下述流程图正确的是B。A BC D46关于下面流程图功能的描述正确的是：D。A输入一个数，若其大于0则输出该数，若其小于0则输出该数的相反数B输入一个数，若其小于或等于0则输出该数的相反数C输入一个数，输出其绝对值D以上答案都正确47鸡、兔共笼问题，有腿共60条，问鸡、兔各有多少只？下面鸡和兔只数最合理的范围是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一旦将数据存入某变量，以后就不能将新的数据存入该变量C一旦将数据存入某变量，以后可以将新的数据存入该变量D一旦将数据存入某变量，只要不把新的数据存入，变量的内容不会改变57. 采用盲目的搜索方法，在搜索结果的过程中，把各种可能的情况都考虑到，并对所得的结果逐一进行判断，过滤掉那些不合要求的，保留那些合乎要求的结果，这种方法叫做B。A递推法 B枚举法 C选择法 D解析法专心-专注-专业VB程序填空题1、下列程序的功能是从键盘上任意输入一个数，判断这数是正数、负数、还是零，并输出判断结果。程序中有三处错误，请更正。程序如下：Private Sub Command1_Click() Dim a As Single Dim py As String a=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 To _ s=s+(-1)(_)*i Next i Print sEnd Sub3、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。编写程序，求方程的根，要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。程序如下：Private Sub Command1_Click() Dim a,b,c,d As Single Dim x1,x2 As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) d=b2-4*a*c If d_ Then x1=(-b+Sqr(d)/(2*a) x2=(-b-Sqr(d)/(2*a) Label1.Caption=x1 Label2.Caption=x2 _ _ Label3.Caption=_ End IfEnd Sub4、如果下面程序执行后输出的结果是132，请将程序补充完整：Private Sub Command1_Click()i = 12: s = 1Do While _s = s * ii = i - 1LoopMsgBox (s)END Sub5、下面的程序是求7!（7!=1*2*3.*6*7）的值，并在默认窗口输出这个值。程序中有两处错误，请更正。Private Sub Command1_Click() Dim a As Single a=0 For i=1 to n a=a*i Next i Msgbox（a）End Sub_ _6、下面的程序是求100以内奇数和s的值（S=1+3+5+7.+99）。请将程序补充完整：Private Sub Command1_Click() Dim s As Single Dim i As Single S=_ For i=1 to 100 Step _ _ Next i Msgbox(s )End Sub7、下列Visual Basic 程序：Private Sub Command1_Click() Dim sum As Long , i As Integer sum = 0 For i = 1 To 100 Step 2 sum = sum + i * i Next i Text1.Text = Str(sum)End Sub 该程序能完成计算的数学表达式是_8、小明数了圈在一起的鸡和兔共有30个头，90只脚，在这个圈子中鸡和兔各有多少只？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式。 设鸡为x只，兔为y只，Visual Basic 程序如下：Private Sub Command1_Click() Const head = 30, foot = 90 Dim x, y As Integer y =_ x =_ Text1.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, i As Integer s = 0 N = Val(Text1.Text) For i = _ To _ s = _ Next i Msgbox（ _ ）End Sub 11、用物理天平测量物体的质量时，测得物体的质量为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 IntegerDim 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 While _ If x >= a(i) Then List1.AddItem Str(a(i) _ End If i = i + 1LoopEnd Sub13、下面是一个检测密码的程序（界面如图74，其功能是：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统”；否则显示“密码错误！请重新输入密码：”。正确的密码是。 仔细阅读程序，请问程序中划线处的语句应为_。Private Sub Form_Load() Text1.Text = "": Text1.MaxLength = 10 Text1.PasswordChar = "*" '表示密码用*显示 Label2.Caption = "": Label2.Alignment = 2End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Label2.Caption = "" If KeyAscii = 13 Then 'KeyAscii=13表示是回车键 if_ Then Label2.Caption = "欢迎您使用本系统!"Else Label2.Caption=_'以下两语句的作用是使程序能自动选中错误的密码，使用户可直接重新输入 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End If End Sub14、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早晨又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上再想吃时，见只剩一个桃子了。问：第一天猴子共摘了多少个桃子。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。Visual Basic 程序如下： Sub Command1_Click( ) Dim i, s As Integer _ For i=1 to 9 _ Next i Text1.Text = Str(s)End Sub15、下面程序（界面如图）的功能是：将0到255之间的十进制整数转换为二进制整数的表示形式。在如图中上面的文本框（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 Then Text2.Text = "输入数据错误，请重新输入！"Else For i = 1 To 8 c(i) = a Mod 2 a = _ s = Str(c(i) + s Next i Text2.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 <= 996 If _ Then n = n + 1m = _LoopText1.Text = Str(n)End Sub17、求两个整数的最大公约数分析：求最大公约数的算法思想：(1) 对于已知两数m，n，使得m>n；(2) m除以n得余数r；(3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；(4) mn，nr，再重复执行(2)。例如: 求 m=14 ,n=6 的最大公约数. m n r14 6 26 2 0请根据以上思路补充下面的程序代码：Private Sub Command1_Click()m = InputBox("m=")n = InputBox("n=")If m < n Then t = m: m = n: n = tr = _Do While (r <> 0)m = nn = rr = m Mod nLoopPrint "最大公约数=", nEnd Sub18、以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，当输入负数时结束输入，输出结果，请将程序补充完整。 Private Sub Form_Click() Dim x, amax, amin As Single x = InputBox("Enter a score") amax = x amin = x Do While _ If x > amax Then amax = x End If If _ Then amin = x End If x = InputBox("Enter a score") Loop Labe1.Text= amax Label2.Text=_ End Sub 25、在我国古代孙子算经中曾经提出这样一个问题。原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举法来解决这一问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2，程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整： （程序运行界面图） Private Sub Command1_Click() Dim sum As Integer 'sum用来统计符合条件的自然数个数 Dim n, max As Integer List1.Clear sum = 0 max = _ '指定查找范围的最大自然数，在text1框中输入 n = 0 Do While n <= maxn = n + 1 '从自然数1开始不断往上寻找 If_ ThenList1.AddItem Str(n) '找到后在list1中显示结果 _ End If Loop List1.AddItem ("共计" + Str(sum) + "个") End SubVb程序填空参考答案：1、Val(Text1)改为Val(Text1.Text) a < =0改为a < 0 Label3.Caption =a改为Label3.Caption = py2、0 100 i + 13、> 0 Else "无实数根"4、i>105、a = 0改为a = 1 n改为7 6、s= 0 2 s = s + i7、1232529928、(foot-2*head)/2 30-y9、1 N S+(i+1)/i s10、Rlen*Rwid Str(Area)11、x<>0 X=x-a(i)12、60 Counter=counter+113、Text1.Text=” “密码错误！请重新输入密码：”14、s=1 S=(s+1)*215、a216、0 m Mod 3 = 0 m+1017、m Mod n18、x>=0 X<amin amin19、i=n+1 i=i+120、zs=zs+1 ns=ns+121、T+1 to N N=N-122、i2+j2=k223、a(i)>a(j)24、30manwoman S=50025、Val(Text1.Text) n Mod 3 =2 And n Mod 5 =3 And n Mod 7 = 2 sum=sum+126、t=t*i 27、j/(2*i-1)*(2*i-2) s+(-1)(i-1)*j28、a(i)1 - a(i) a(i)0