算法与程序设计复习整理

1、A.连续模式、分支模式和循环模式B.顺序模式、结构模式和循环模式C.结构模式、分支模式和循环模式D.顺序模式、分支模式和循环模式53.流程图是一种描述算法的方法，其中最基本、最常用的成分有：（）A.处理框、矩形框、连接框、流程线和开始、结束符B.菱形框、判断框、连接框、流程线和开始、结束符C.处理框、判断框、连接框、圆形框和开始、结束符D.处理框、判断框、连接框、流程线和开始、结束符54 .算法的描述可以用自然语言，下而说法中正确的是：（）A.所谓自然语言描述算法就是用人类语言加上数学符号，来描述算法B.用自然语言描述算法有时存在“二义性”C.自然语言用来描述分支、循环不是很方便D.以上说法都

2、错误55 .关于程序中的变量，下而说法中错误的是：（）0A. 一旦将数据存入某变量，读取变量中的值，不会改变变量的内容B. 一旦将数据存入某变量，以后就不能将新的数据存入该变量C. 一旦将数据存入某变量，以后可以将新的数据存入该变量D. 一旦将数据存入某变量，只要不把新的数据存入，变量的内容不会改变56 .程序通常需要三种不同的控制结构，即：顺序结构、分支结构和循环结构，下而说法正确的是：（）A. 一个程序只能包含一种结构B. 一个程序最多可以包含两种结构C. 一个程序可以包含以上三种结构中的任意组合D. 一个程序必须包含以上三种结构57 .采用盲目的搜索方法，在搜索结果的过程中，把各种可能的

3、情况都考虑到，并对所得的结果逐一进行 判断，过滤掉那些不合要求的，保留那些合乎要求的结果，这种方法叫做（）A.递推法B.枚举法C.选择法D.解析法VB程序填空题请浏览后下我，资料供参考，期待您的好评与关注!1、下列程序的功能是从键盘上任意输入; 个数，判断这数是正数、负数、还是零，并 输出判断结果。程序中有三处错误，请更正* 程序如下Private Sub Comm and 1jckQ*-Dim a As SingleDimpyAs Stringa=aJ.CTextlIf a0 Then py=正数2Ifa=O Then 断“零“If aCD t3 73、已知一元二次方程的二次项杀数、一次 项

4、系数、常数项分别为a、b、c,其中a不 等于0。编写程序，求方程的根，要求：如 果方程无实数根，则输出“无实数根1否 则输出两个实数根。程序如下；“Private Sub Command l_QikQ*-1DimaJuJAsSmgleeDim xl总 As Single4-1a=W(Text 1. Text)4-1b=al.CText2. Text)*-, c=al(Text3 .Text)4-1 d=tf2-4*a*C4-1Ifd Then限=(-0淑d)(2*a*X2=(b (d)42*aWLabel 1. Capti。口=xl=Label2. Caption=x2Label3.Capti

5、on=End IfvEnd Sut2、完善程序，使其能洵出： 1-2+3-4-5-6一.-99-100 的情。“程序如下Private Sub Command. 1For i=l 衣S=S(,(- 1)A()为,Next 3Print 处End S34、如果下面程序执仃后输出的结果是132 请将程序补充完整：“Private Sub Commandl_CIMkQ卡i= 12: s=Do Whiles = s * iCall 曲维a(A BEnd Sub*-1Sub 歌解或康契 As Single. R、EQ As Single)-Dim Ar ea As. SingleArea =MsgBox

6、 Total Aiea is & 输出矩形面积”End Subt-1s、小明数工圈在一起的鸡和融有.30个头, 90只脚,在这个圈子中鸡和兔各有多少只？ 为了实现这一目标，完善下面的VB程序， 在划线处填入合适的语句或表达式。设鸡为R只，兔为y只，Visual Basic程 序如下Private Sub Command.1 QickQConst head = 30, foot = 90。Dim x, y As. Integersy=x=卡Textl .Text =颤X）川Text2.Text =颤$）看End Sub4-19、利用文本框输入一个正整数N,求出 2十32X3十54十十(N+l )

7、/N程序是：口Private Sub commandljrlikQ Dim N, s? i As Integers s = 0*-,N = alTextl .Text)For i =Js=d12、有一个单击按钮过程，其作用是产生50 个60-100的随机额，统计其中被6整除余 2的个数, 并将这些数输出。请补充下面的 程序：*Private Sub commaHdl/liclsQvg DimX5 NAs. IntegerDim counter As Integer counter保存能被6整除余2的数据的个数一 Randomize Timers清浏览后下载，资料供参考，期待您的好评与关注!13

8、、下面是一个检测密码的程序(界面如图 7一4,其功能是：当用户输入的密码正确时, 在窗体上显示“戏迎您使用本系统与否则 显示“密码错误！请重新输入密码产。正确 的密码是0123456789。干仔细阅读程序，请问程序中划线处的语句 应为。4Private Sub E&s臧卜，Text 1.Text = ： Textl .Maxlngth = IO*-1Text 1.PasswordChar = *“ 支表示密码用率显示pLabel2. Caption = “: Label2. Alignment =End Subt-Private Sub骡忒1_区感感磁彩食病 AsInteger)4-1Labe

9、i2.Caption =If KAscii = 13 Then KAscii=13 表 示是回车键,l或Then-1Label2.Caption=欢迎您使用本系统!”ElseLabel?. Caption=以下两语句的作用是使程序能自动选 中错误的密码，使用户可直接重新输入，Textl.SelStart= (k1Textl .SelLength = LenTextl .Text)4-EndlfpEnd If aEnd Sub*-114、猴子吃桃问题。猴子第一天摘下若干个 桃子，m即吃了一半,还不过瘾,又多吃了 一个。第二天早晨又将剩下的桃子吃了一 半,又多吃了一个。以后每天早上都吃了前 一天剩

10、下的一半零二:唾:。到第十天早上再想 吃时，见只剩一个桃子了。问：第一天提子 共摘了多少个桃子。一为了实现这一目标，完善下面的VB程序， 在划线处埴入合适的语句或表达式完成程 序设计。Visual Basic程序如下：3Sub Commandl ClickC1Dim i9 s As. IntegerFor i=l to 9u17、求两个整数的最大公约数口 分析；求最大公约数的算法思想； (1)对于已知两投m, n,使得u(2) m除以n得余数Cv(3)若r=。，则n为求得的最大公约数，算 法结束；否则执行(4); u(4)m+ib 口-r,再重复执行(2)。 例如：求m=14;n=6的最大公约

11、数见n14 6 2口6 2W 请根据以上思路补充下面的程序代码： Private Sub Commandl _QickQ*-1n = Im飒& AIfm ji_Ihen t = m: m = n: n=tDo While (r o 0)川m= n”n =xr= m Mod naLoo户Pnnt，最大公约数=,n”End Sutx-115、下面程序界面如图）的功能是； 将。到255之间的十进制整数转换为二进制 整数的表示形式在如图中上面的文本框（Textl）中输入一个0到255之间的十进制整数里击“转换”按钮，该十进制整数 的二进制形式会显示在卞面的土本框(Text2)中。为了实现这一目标，程序

12、中 划线处的语句应为* Private Sub Command LGlickQ*-Dim a As IntegersDim s 盘$ StringsDim i As. Integer*1Dim g(.1 To 8) As Integer a =猥工 Text L Text* If a 255 ThunText2.Text =输入数据错误，请重新 输入！ Else*-For 3= 1 To 8CO) = a Mod 2。a =幽协+%,Next iText2.Text = wEndlfuEnd Subt-116、个位数字是6,且能被3整除的3位数 共有多少个？，下面程序用于解决这一问题，在划线处

13、填入 合适的语句或表达式，设共有口个这样的数/第16题流程图3请根据以上思路补充下面的程序代码：Private Sub Command 1 _QikQ m =n =5r口=*Ifm清浏览后下载，资料供参考，期待您的好评与关注!End. Suth-11S以下程序的功能是；从键盘上输入若干 个学生的考试分数,统计并输出最高分数和 最低分数当愉入负数时结束愉入，愉出结 果，请将程序补充完整。，Private Sub 员皿磔或。+, Dim .amax5 aminAs Single d x = toxfrEntei a scorel!)” aax = x 血a = x中Do While.Ifx ama

14、xThen. u3iax=x 3 End I f JIf Then 川aiB=x End If 4-x =顺坦然Enter a score”)“Loop Label.Text= amax Label2.Text= 川 End Sub 川20、输入1。0个数，统计其中负数、霎及正 数的个数。Private Sub 做现岫0口Dim i , ft, zs, ns As Integer 塞，ns, z昱分别 代表负数、零及正数的个数丫 Dim k Doub 以Fori = 1 To 100-k = MCtou酗(输入一个数据”)AIf k 0 Then*-Elsed =Do While x Loop

15、*-*End I mText3.Text = StKiWEnd S 血Private Sub Text 1_K0效瞌但的公濠i AsInteger)十，及区曲安.线=13Then+in =n+a(n) = 31(Textl. TextListl. Additem 甑同口加Text 1 .Text = : Text l.SetFocus4-1End I 住15dJK 0i) Th em*21、有一个数组DATA存放了 N金额据， 现从中删除了一个元素，其余的元素依次向 前递补假设删除的是第3个元素，则要将 第4个元素移到第3个元素处,第5个元素 移到第4个元素处，以此类推然后愉出 数组内容。埴写

16、程序中的空跳fPrivate Sub Command l-OiikQ.4-1Dim daia(-l ) As IntegerDim L N, T As. IntegersN=HkPorl= 1 Jq N*-1da胤I)=I * 2uNext MT = jg酬c删除第几个元素For I =data(I T) = data。Next laFor I = 1 口 NwPrintNext laEnd Sutn-122、寻找100以内的勾股数。“勾三股四弦 五”大家都知道32*2=55 3, 4, 5就是勾 股数7寻找100以内的勾股数。请完成下面 的程序埴空：”Private Sub ConHnandl_QjgkQ+Dim sum As Integ