2020年信息技术学考算法与程序设计试题整理及解析

1、精选优质文档-倾情为你奉上2020年信息技术学考算法与程序设计试题整理及解析一、选择题（每题3分）1.下列选项中，不属于计算机程序设计语言的是( C )A.汇编语言 B.高级语言 C.自然语言 D.机器语言解析：计算机程序设计语言的种类非常的多，总的来说可以分成机器语言，汇编语言，高级语言三大类。2. 关于算法的描述，下列选项中正确的是( B )A.算法本身就是一种程序设计语言B.算法的每一步骤必须有确切的含义C.算法的步骤可以是无穷的D.算法必须有输入解析：算法是指解决问题的方法和步骤，一个算法应该具有以下五个重要的特征:1.有穷性(Finiteness):是指算法必须能在执行有限个步骤之后

2、终止。2.确切性(Definiteness):算法的每一步骤必须有确切的定义。3.输入项(Input):一个算法有0个或多个输入,以刻画运算对象的初始情况,所谓0个输入是指算法本身定出了初始条件。4.输出项(Output):一个算法有一个或多个输出,以反映对输入数据加工后的结果。没有输出的算法是毫无意义的。5.可行性(Effectiveness):算法中执行的任何计算步骤都是可以被分解为基本的可执行的操作步骤，即每个计算步骤都可以在有限时间内完成（也称之为有效性）。3. VB程序中“dim n As Integer”这条语句的作用是( A )A.定义一个变量 B.定义一个数据输入方法C.定义一

3、个事件过程 D.定义一个数据处理方法解析：Dim 是VB中声明变量并分配存储空间的语句。格式：Dim 变量名 as 数据类型Integer：变量存储为 16位（2 个字节）的数值形式。string：变长与定长的字符串。Boolean：存储为 16 位（2 个字节）的数值形式，但只能是 True 或是 False。Double：（双精度浮点型）变量存储为 IEEE 64 位（8 个字节）浮点数值的形式。Long：（长整型）变量存储为 32 位（4 个字节）有符号的数值形式等等。本题中：Dim N 注册一个名为N的变量。此变量的“寿命”只在定义该变量的过程中。As Integer 表示N是整型变量

4、。范围 -3276832767，超出范围就提示“溢出”4.一个单窗体VB程序的运行界面如下图所示，下列说法正确的是：( C )（1）窗体内有1个按纽 （2）窗体内有2个文本框 （3）窗体内有3个标签 （4）该窗体的标题（Caption）属性值是“加法计算器”A.(3) (4) B.(1)(2) C.(1)(4) D.(2) (3)解析：5.两个阻值分别为R1 、R2的电阻并联后，电路阻值可由公式 求解，下面能正确求出R的VB表达式是（ A ）。A.R1*R2/(R1+R2) B.R1+R2/(R1*R2)C.(R1+R2)/(R1*R2) D.R1*R2/R1+R2解析：电路阻值公式两边都乘以

5、R1*R2得(R1*R2)/R=R1+R2，所以总电阻RR1*R2/(R1+R2)6.关于算法的描述，下列选项中正确的是( D )A.算法只能用流程图来表示B.一个算法的执行步骤可以是无限的C.一个算法，当没有输入时，也没有输出D.一个算法可以没有输入7.在VB语言中，字符串运算符“+”和“&”的作用是把两个或多个字符串连接成一个字符串。则表达式"20"+"13"&"20+13"的运算结果是（ B ）。 A."" B."+13" C."" D."33

6、33"解析：举几个例子你就明白了。"222"+"333"=""222+333=555222+"333"=555222+"abc" 会报错222 & 333 =222 & "333" = 222 & "abc" =222abc222 + "333" & "abc" = 555abc222 + "333" & "100" = 222

7、 & "333" +"100"=8.下列VB程序运行时（如图所示)，在文本框Text1中输入20，在文本框Text2中输入13，单击命令按钮Command1后，文本框Text3中显示的内容是（ D ）。Private Sub Command1_click() a=val(text1.text) b=val(text2.text)Text3.text= a+bEnd sub A.”2013” B.2013 C.”33” D.33解析：val是一个将字符串参数转换成数值的函数。9.下列选项中，可以作为VB程序变量名的是( A ) A.ab B.a-b

8、 C.a/b D.a+b解析：vb中变量名的命名规则1、必须以字母开头；2、只能使用英文字母、阿拉伯数字和下划线（实际上可以使用汉字）；3、不能和受到限制的关键字同名，如不能使用vbred、command等作为变量名；4、不能超过255个字符，控件、窗体、类和模块的名字不能超过40个字符；5、不区分大小写。10.下列VB表达式中，能正确表示不等式方程|x|>1解的是（ D ）A.x<-1 and x>1 B.x>-1 or x<1 C.x>-1 and x<1 D.x<-1 or x>111.算法的描述方法有多种，下列选项中不适合描述算法的

9、是（A）A.机器语言 B.伪代码 C.流程图 D.自然语言解析：算法的描述方式有：自然语言，流程图，伪代码等。1、自然语言的优势：自然语言即人类语言，描述的算法通俗易懂，不用专门的训练，较为灵活。2、流程图的优势：流程图描述的算法清晰简洁，容易表达选择结构，不依赖于任何具体的计算机和计算机程序设计语言，从而有利于不同环境的程序设计。3、伪代码的优势：回避了程序设计语言的严格、烦琐的书写格式，书写方便，同时具备格式紧凑，易于理解，便于向计算机程序设计语言过渡的优点。12.巳知在VB语言中，int(x)函数的功能是返回不大于x的最大整数，abs(x)函数的功能是返回x的绝对值，则表达式 abs(i

10、nt(2.88)+int(-3.14)的值是（ D ）。A.5 B.0 C.1 D.2解析：int(2.88)=2,int(-3.14)=-413.下列VB表达式中，值为字符串类型的是（ D ）。Sqr(x) Text1.Text command1.caption ”45”+”34”45+34 A. B. C. D. 解析：Sqr(x)函数返回一个数的平方根;45+34的值是79，类型应该是数值型。14.一元二次方程ax2+bx+c=0(a0)的两个实数根分别为：下列表达式正确的是（ D ） A.x1=-b+sqr(b2-4*a*c)/(2*a) B.x2=-b-sqr(b2-4*a*c)/(

11、2*a) C.x1=(-b+sqr(b2-4ac)/(2*a) D.x2=(-b-sqr(b2-4*a*c)/(2*a)15.下列关于算法的描述错误的是( C )A.算法是解决某一类问题的方法和步骤B.算法可以使用自然语言、伪代码、流程图等多种不同的方法来描述C.一个有效的算法至少要有一个或多个输入D.算法必须在有限步骤内实现16.下列程序执行后a、b的值分别是（ B ）a = 5b = 6a = a + bb = a - ba = a - bA、5、6 B、6、5 C、6、6 D、5、5解析：a=5,b=6, a=a+b=5+6=11, b=a-b=11-6=5, a=a-b=11-5=61

12、7.以下运算符中运算优先级最高的是（ D ） A、+ B、Mod C、>= D、*解析：在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。算术运算符 > 字符串运算符 >  关系运算符 >  逻辑运算符算术运算符：+ 加， - 减， * 乘， 指数 例：22 = 4/ （浮点）除 例：5 / 2 = 2.5 整除 例： 5 2 = 2Mod 求余数 例：5 Mod 2 = 1字符串运算符：“+”和“&”关系运算符： =赋值 <小于

13、号<>不等于>大于号>=大于等于号<= 小于等于号注意：关系表达式的运算结果为布尔值True 或 False，如：3 > 2 结果为 True(真或是)。逻辑运算符：Not（取反）And（与） Or（或）运算结果为布尔型（Boolean）True 或 False逻辑运算符的优先级为：Not > And > Or18.在VB语言中表示“x属于区间（0,1”的正确表达式是（ C ）A.0<x<=1 B.x>0 or x<=1 C.0<x and x<=1 D.x>0 and x<119.某VB的事件过程

14、如下：Private Sub Command1_Click() a=Val(Text1.text) b=a*a+1 Text1.Text=bEnd Sub程序运行时（如图所示），在文本框Text1中输入2，连续两次单击命令按钮Command1后，Text1中显示的内容是（ D ）A.677 B.5 C.2 D.26解析：第1次a=2,b=a*a+1=2*2+1=5,第2次a=5,b=a*a+1=5*5+1=26。20.下列问题不能用算法描述的是（ C ）A.计算某班英语平均分B.求一元二次方程 ax2+bx+c=0(a0) 的两个实数解C.求方程y=2x+1的所有整数解D.已知圆锥的底面半径和

15、高，求表面积和体积解析：算法的有穷性，是指算法必须能在执行有限个步骤之后终止。21.下面表达式的值是false的有( C ).A、"969" < "n97" B、int(4.99) <> len("basic")C、str(2000) > "1997" D、3 > 2解析：1.字符串比较是逐“字符”比较，这里是按字符的ASCII码比较大小的，ASCII("9")<ASCII("n"）。2.int(x)函数是取不大于x的最大整数,int(4.

16、99)=4;len函数用来得知某字符串的长度（字符数）或某变量的大小（位数）,len("basic")=5。3.str函数可以将数字型变量或常量改变成字符型变量或常量，当一数字转成字符串时，总会在前头保留一个空位来表示正负。如果 number 为正，返回的字符串包含一个前导空格暗示有一个正号。str(2000)=" 2000"。4.在微型计算机中，字符一般采用国际上通用的ASCII字符集。每一个字符在计算机内部由8位二进制代码表示。两个单字符的比较，就是对它们的代码值进行比较。例如：在ASCII字符表中，”A”的代码值是65(十进制数)，”B”的代码值是

17、66(十进制数)，所以”A”小于”B”。一般的规律是：空格代码值最小；数字代码值小于字母的代码值。在数字代码中，0的代码值最小，9的代码值最大。在字母中，代码值的大小按字母顺序递增。以下是字符大小的次序(由小到大排列)：空格! ” # $ % & （) * + ，- 0 1 2 34 5 6 7 8 9 ： ； <=> ? A B C D E F GH I J K L M N O P QR S T U V W X Y Z22.分析下列程序: Private Sub Form_Click() s=113 + 11 Mod 3 Print s End Sub当单击窗体时s的值是

18、( A )。A、5 B、6 C、4 D、3解析：注释113=3,11mod3=223.长度分别为a、b、c的三条线段，能够组成三角形的条件是（ D ） A、a+b>c And a+c>b Or b+c>a B、a+b>c Or a+c>b Or b+c>a C、a+b>c Or a+c>b And b+c>a D、a+b>c And a+c>b And b+c>a24.已知海伦公式其中，a、b、c分别为三角形的三条边长。利用海伦公式求三角形面积的算法属于（ D ） A、穷举法 B、排序法 C、查找法 D、解析法解析：穷举法

19、（枚举法、列举法）：将求解对象一一列举出来，然后逐一加以分析、处理，并验证结果是否满足给定的条件，穷举完所有对象，问题最终得以解决。如：输出100200之间不能被3整除的数。排序法：常用的排序方法有冒泡法，选择法，插入法，顺序交换法等。查找法：常用的查找方法有顺序查找法，二分查找法。解析法：就是在分析具体问题的基础上，抽取出一个数学模型，这个数学模型能用若干解析表达式表示出来，解决了这些表达式，问题也就得以解决。25.用计算机编程来求解某一方程的解，通常的步骤是（ A ） A、分析问题设计算法编写程序调试运行检测结果 B、编写程序调试运行 C、设计算法编写程序 D、编写程序调试程序检测结果26

20、.如果三条线段的长分别为a、b、c，且已知abc，请问这三条线段能否构成三角形，仅需下列选项中的哪个判定条件即可？（ B ） A、其他选项都不对 B、a+b>c C、a+c>b D、b+c>a27.以下程序段中循环体执行的次数是（ A ）s=0i=1Do While s<10i=i+1s=s+i*iLoopA、2 B、4 C、1 D、3解析：s=0,i=1,s<10 yesi=i+1=1+1=2s=s+i*i=0+2*2=4s=4,i=2,s<10 yesi=i+1=2+1=3s=s+i*i=4+3*3=13s=13,i=3,s<10 NO退出循环。2

21、8.二分查找又称折半查找，是一种应用于有序数列的高效查找算法,下列数列中适合用二分查找算法的是（ D ）（1）11 99 5 17 239 （2）305263717881（3）67323831515（4）857859521918A、（3）（4） B、（2）（3） C、（1）（2） D、（2）（4）解析：二分查找也称折半查找（Binary Search），它是一种效率较高的查找方法。但是，折半查找要求线性表必须采用顺序存储结构，而且表中元素按关键字有序排列。查找过程首先，假设表中元素是按升序排列，将表中间位置记录的关键字与查找关键字比较，如果两者相等，则查找成功；否则利用中间位置记录将表分成前、

22、后两个子表，如果中间位置记录的关键字大于查找关键字，则进一步查找前一子表，否则进一步查找后一子表。重复以上过程，直到找到满足条件的记录，使查找成功，或直到子表不存在为止，此时查找不成功。算法要求1.必须采用顺序存储结构。2.必须按关键字大小有序排列。29.在vb语言中常用的字符串截取函数有：函数名功能示例结果Mid(s,m,n)从字符串s的第m位开始，截取长度为n的字串Mid（"ABCDEFG",5，2）" EF"Left(s,n)截取字符串s左边n个字符Left（"ABCDEFG",3）"ABC"Right(s,

23、n)截取字符串右边n个字符Right("ABCDEFG",2)" FG"假如某人身份证号码S=""，如果需要根据此身份证号码求出该人的“出生年月日”。下列表达式不能实现的是（ D ）AMid(s,7,8) BRight(Left(s,14),8)CMid(s,7,4)+Mid(s,11,2)+Mid(s,13,2)DLeft(s,14)-Left(s,6)解析：D项相当于219-=11730.如果一个4位数恰好等于它的各位数字的4次方和，则这个4位数成为“玫瑰花”数。例如1634就是一个玫瑰花数：1634=14+64+34+44。如果

24、要求出所有的玫瑰花数，下列算法最合适的是（ D ）A、解析法B、排序法C、查找法D、穷举法解析：参考第24题解析。穷举法（枚举法、列举法）：将求解对象一一列举出来，然后逐一加以分析、处理，并验证结果是否满足给定的条件，穷举完所有对象，问题最终得以解决。如：输出100200之间不能被3整除的数。31.下列流程图中能描述循环结构的是（ A ）A、 B、 C、 D、解析：32.下列程序段执行后，变量s的值是（ C ）s=0Fori=1To10s=s+iNextiA、1B、0C、55D、10解析：s=0,i=1,s=s+i=0+1=1;s=1,i=2,s=s+i=1+2;s=1+2,i=3,s=s+i

25、=1+2+3;s=1+2+3+.+9,i=10,s=s+i=1+2+3+.+1033.已知在VB语言中，int(x)函数的功能是返回不大于x的最大整数，Fix(x)函数的功能是返回x的整数部分(截掉x的小数部分)。表达式int(2.88)+Fix(-3.89)的值是( B )A、 0 B、 -1 C、 5 D、 -2解析：int(2.88)=2，Fix(-3.89)=-334.个整数n既能被3整除，也能被7整除，能正确表示该逻辑关系的VB表达式是( D )A、 n Mod 3 = 0 Or n Mod 7 = 0B、 n3 = 0 And n7 = 0C、 n3 = 0 Or n7 = 0D、

26、 n Mod 3 = 0 And n Mod 7 = 0解析： 整除 例：5 2 = 2Mod 求余数 例：5 Mod 2 = 135.下列VB的变量定义正确的是( A )A.Dim abc As IntegerB.Dim 4ac as BooleanC.Dim a*c as StringD.Dim for as Double解析：参考前面第3题和第9题的解析。36.下列表达式能判断正整数x是偶数的是( B )A.x mod 2<>0B.x mod 2=0C.x mod 2=1D.x2=037.以下程序代码主要体现了哪种程序结构( B )x=100If x<O Theny =

27、 Abs(x)Elsey = Sqr(x)End IfA.顺序结构 B.选择结构 C.循环结构 D.其他三项都是38.如图所示:三个文本框自上而下的顺序是: Text1， Text2， Text3,在文本框Text1中输入3，在文本框Text2中输入4，单击命令按钮“计算”后，文本框Text3中显示的内容为（ B ）A、7B、14C、24D、12解析：val是一个将字符串参数转换成数值的函数。a=3,b=4,结果=2*(a+b)=2*(3+4)=14。39.在VB中，能表示一元二次方程ax2+bx+c=0有两个不相等的实数解的条件是( A )。A. b*b-4*a*c>0B. a<

28、>0C. a<> And b*b-4*a*c>0D. a<>0 Or b*b-4*a*c>040.下列程序段运行后，输出“*”的个数是( 9 )。For i =2 To 10Print "*" Next iA、7B、8C、9D、1041.VB算术表达式68 Mod 10的结果是（ B ）A、6B、8C、0D、1442.下列流程图中是选择结构的是（ D ）A. B. C. D.43、用计算机解决某个问题，问题分析清楚后，给出解决这个问题详细的( A )， 这个过程称为设计算法。A.方法和步骤 B.编程语言 C.程序代码 D.加密措施4

29、4、以下程序段运行后，整形变量max1, min1的值分别是( D )。a=3b=5max1=(a+b)/2+Abs(a-b)/2min1=(a+b)/2-Abs(a-b)/2A.3，5 B.5，5 C.3，3 D.5，3解析：Abs是一个取绝对值的函数。max1=(a+b)/2+Abs(a-b)/2=(3+5)/2+|3-5|/2=4+1=5 min1=(a+b)/2-Abs(a-b)/2=(3+5)/2-|3-5|/2=4-1=345、已知赋值语句s="Good Bye!", 则下列定义变量s正确的是( A )。A.Dim s As String B.Dim s As

30、LongC.Dim s As Double D.Dim s As Integer解析：参考第3题解析，string：变长与定长的字符串。对于字符串类型变量，如果其存放的字符串长度是固定的，那么可以把它定义为定长字符串，如：Dim s As String * 50 '声明固定长度字符串变量可最多放50个46、水仙花数是三位整数:其各位数字立方和等于该数本身，如153=13+53+33。如果要求出所有的水仙花数，下列算法最合适的是( C )。A.查找法 B.排序法 C.枚举法 D.解析法解析：参考第24题解析。穷举法（枚举法、列举法）：将求解对象一一列举出来，然后逐一加以分析、处理，并验证

31、结果是否满足给定的条件，穷举完所有对象，问题最终得以解决。如：输出100200之间不能被3整除的数。47、给定一个四位数的年份，判断它是否为闰年:四年一闰、百年不闰;四百年又闰(年份能被4整除，不能被100整除是闰年，或者年份能被400整除也是闰年。例如2004年和2000年都是闰年，2100 年不是闰年)。下列判断年份y是闰年的表达式正确的是( B )。A.y Mod 4=0B.y Mod 4=0 And y Mod 100<>0 Or y Mod 400=0C.y Mod 4=0 Or y Mod 100<>0 And y Mod 400=0D.y Mod 400=

32、048.以下程序段运行后，整型变量s的值是( C )。s=1for i=1 to 10 step 3s=s*inext iprint SA.28 B.55 C.280 D.3640解析：注意step是步长。s=1,i=1,s=s*i=1*1s=1*1,i=4,s=s*i=1*1*4s=1*1*4,i=7,s=s*i=1*1*4*7s=1*1*4*7,i=10,s=s*i=1*1*4*7*10=28049.己知S=1+2+3.+N，找出一个最大数N,使得S<3000。编写程序，解决此问题，最适合的程序结构是( C )。A.选择结构 B.顺序结构 C.循环结构 D.环形结构解析：本题可用如下

33、VB程序实现。Private Sub Command1_Click()Dim s As Long, n As Integern = 1s = 0Do While s < 3000n = n + 1s = s + nLoopPrint nEnd Sub50. 某晚会的猜数字游戏中，有100张写有1100之间整数的卡片，主持人随机抽取一张卡片，让大家竞猜。有一种方案是:第一次猜50，若提示低了，则第二次猜75，若提示还是低了，则第三次猜87，依次类推，这种每次缩小一半查找范围而达到确定目标的算法称为( C )。A.顺序查找法 B.解析法 C.二分查找法 D.排序法51、程序有三种基本结构，下

34、列不属于这三种基本结构的是( B )A.循环结构 B.树形结构 C.选择结构 D.顺序结构52、下列序列能采用二分查找法查找某一元素的是( B )。A.1，4，7，15,13 B.6，9，12,14，23，25C.34，25,17,9,10,3 D.15,14,12，7，2,353、以下程序段语句执行后，y的值是( C )。x=16If x < 0 Theny = Abs(x)Elsey = Sqr(x)End IfA. 16 B.256 C.4 D.其他三项都不对54、下列选项中，能作为VB程序变量名的是( A )。A.sl B.s+1 C.3stu D.true55、Visual B

35、asic 程序设计语言属于( B )。A.汇编语言 B.高级语言 C.机器语言 D.自然语言56、在VB中，用变量code存储学生的借阅卡编码(code="N")，则变量code的数据类型应定义为( B )。A.Integer B.String C.Boolean D.Double57、以下程序段运行后，x和st的值分别是( A )。Dim x As IntegerDim st As Stringx=123 + 678st="123"+"678"A.801 "" B.801 "801"C. &q

36、uot;801" D. ""58、a=2，b=5，在VB中，表达式a>b And b>3 的值是( D )A. True B. 1 C.-1 D. False解析：a>b And b>3 = 2 > 5 and 5 > 3 = false and true =false59、以下程序段运行后，s的值是( D )。n=0s=0Do While s<=10n=n+3s=s+nLoopA.0 B.3 C.30 D.18解析：n=0,s=0,s<=10 yesn=n+3=0+3=3,s=s+n=0+3=3;n=3,s=3,s

37、<=10 yesn=n+3=3+3=6,s=s+n=3+6=9;n=6,s=9,s<=10 yesn=n+3=6+3=9,s=s+n=9+9=18n=9,s=18,s<=10 no 退出循环 60、 下列选项中，能作为VB程序变量名的是( C )A.a*b B.3ab C.xy D.dim二、分析题1.“完数”是指一个自然数恰好等于它的因子（不包含本身）之和。如6的因子为1、2、3，6=1+2+3，因而6就是完数。再如28的因子为1、2、4、7、14，28=1+2+4+7+14，因而28也是完数。问题：输入一个正整数，判断该正整数是否为完数。要判断一个数是否为完数，最简单的方

38、法是：求出1到n-1之间n的所有因子和为Sum，如果Sum的值和n的值相同，则n就是完数。以下代码是判断n是否为完数的程序片段，请你补全代码。(10分)Dim n As LongDim Sum As Long Sum用来记录n的因子和Dim i as integern=InputBox("n=")sum = 0For i=1 to n-1 求n的因子和sum If n Mod i=0 Then Sum = End IfNext iIf sum = Then Print n & "是完数"Else Print n &"不是完数&q

39、uot;End If sum+i n2.圆周率值的计算方法有多种，其中一种近似值的计算公式如下：26=1+122+132+1n2对于n的不同取值，得到的值精度不同。如：当n=时，计算出=3.646， 当n=时，计算出=3.051。以下程序是利用上述公式求n=时近似值的主要程序片段，请你补全代码。（8分）Dim s As DoubleDim pi As DoubleDim i as integers=0For i=1 to '求公式右边的值 s= s + 1/ (i * i )Next ipi= sqr(6*s) Print "="pi解析： 根据程序片段可

40、以公式右边的值为s，即pi2/6=s,所以，pi2=6*s,pi=sqr(6*s)3. 阅读程序，写出其程序运行结果（8分）。Dim x As IntegerDim y As Integery = 0For i = 1 To 5x = Val (InputBox("请输入")y = y+xNext iPrint y程序运行后，依次输入: 10 20 30 40 50程序输出的结果是： 150 解析：本题就是把输入的5个数值相加。4、VB语言中绘制圆的方法是：Circle (x,y),r格式说明：其中（x，y）为圆心坐标，r为圆的半径。下表中算法1是在窗体中绘制以（2000,

41、2000）为圆心，半径依次为100、200、到800的8个同心圆。请补充完成算法2，使其实现与算法1相同的功能。（6分）算法1算法2Circle （2000,2000），100Circle （2000,2000），200Circle （2000,2000），300Circle （2000,2000），400Circle （2000,2000），500Circle （2000,2000），600Circle （2000,2000），700Circle （2000,2000），800Dim k As IntegerFor k=1 To 8 Circle(2000,2000), K*100 Next

42、 k5、阅读下列程序，请写出正确的运行结果 Dim a as integer Dim b as integer Dim c as integer a=1 b=1 For i=1 to 4 c=a+ba=bb=cNext iPrint c运行结果是： 8 解析：a=1,b=1,c=a+b=2,a=b=1,b=c=2;a=1,b=2,c=a+b=1+2=3,a=b=2,b=c=3;a=2,b=3,c=a+b=2+3=5,a=b=3,b=c=5;a=3,b=5,c=a+b=3+5=8,a=b=5,b=c=8,c=86、阅读下列程序，写出运行结果Dim n as longDim s as longDi

43、m x as longn=val(inputbox("n=")s=0Do while n>0 x = n Mod 10 s = s+x n= n10loopprint s程序运行时，输入518，运行输出结果是： 14 （6分）（提示： (整除运算) 如：23710=23Mod (取余数运算) 如：237 Mod 10=7）解析：n=518,s=0 n>0 yesx=n mod 10=518 mod 10=8s=s+x=0+8=8n=n10=51810=51n=51,s=8,n>0 yesx=n mod 10=51 mod 10=1s=s+x=8+1=9n=

44、n10=5110=5n=5,s=9,n>0 yesx=n mod 10=5 mod 10=5s=s+x=9+5=14n=n10=510=0n=0,s=14,n>0 no输出s = 147、某VB的事件过程如下：Private Sub Command1_Click()a=val(text1.text)b=a*a+1text1.text=bEnd sub程序运行时（如图所示），在文本框text1中输入2，连续2次单击命令按钮Command1后，text1中显示的是 26 解析：a=2,b=a*a+1=2*2+1=5,text1.text=b=5a=5,b=a*a+1=5*5+1=26,

45、text1.text=b=268、2005年10月9日，国家测绘局正式宣布珠穆朗玛峰的高度是8844.43米，并停用之前的数据。现有一张白纸的厚度大约是0.08毫米，对折一次，厚度变0.16毫米，再对折一次，厚度变为0.32毫米，每对折一次，其厚度均变为对折前的两倍。假设这张纸有足够大，可对折任意次，那么这张纸至少对折多少次后，其厚度将超过珠穆朗玛峰的高度。以下是求解该问题的程序片段，请你补全代码。（4分）Height=8844.43 珠穆朗玛峰的高度是8844.43米h=0.08 一张纸的厚度约是0.08毫米cnt=0 cnt用来记录对折次数Do while h<Height*1000

46、 cnt=cnt+1 h= h*2 LoopPrint cnt解析：也可以用n 来记录对折次数。9、以下是求解一元二次方程ax2+bx+c=0（a0）的主要源程序，请你补全代码：（8分）a=val(inputbox("a=")b=val(inputbox("b=")c=val(inputbox("c=")d= b*b-4*a*c 求判别式dIf d>0 then X1=(-b+sqr(d)/(2*a)X2=(-b-sqr(d)/(2*a)Print "x1="x1Print "x2="x2

47、End ifIf d=0 thenPrint "x1="-b/(2*a)End ifIf d<0 then Print "无实数解！" End if10、阅读下列程序，选出运行结果For i=1 to 10 i控制*的行数 For j=1 to i j控制每行的个数 Print "*" 输出*Next jPrint 输出换行Next i运行结果是： D （请用英文字母填写，6分）11、分析解答问题：执行情况如下： 当输入a、b的值分别为3、8时，输出结果为5 当输入a、b的值分别为11、7时，输出结果为4问题一：下列流程图填入虚

48、线框中，符合条件的是 B 开始输入a、b的值输出c的值结束 A B C问题二：依据问题一所选流程图，当输入a、b的值分别为9、6时，输出结果为 3 。解析：当输入a、b的值分别为3、8时，输出结果为5,即a=3,b=8时，c=b-a=5;当输入a、b的值分别为11、7时，输出结果为4,即a=11,b=7时，c=a-b=4;这是说明当a>b时，c=a-b,否则，c=b-a。12、阅读下列程序，写出运行结果Dim x as IntegerDim y as Integery=Val(InputBox("y=")输入第一个数赋值给yFor i=1 to 3 循环3次，每次输入

49、1个数 x= Val(InputBox("x=") If x<y then y=x End ifNext iPrint y程序运行后，依次输入:45961137运行输出结果是： 11 解析：y=45,x=96,x<y no 执行第2次循环，接着输入x;y=45,x=11,x<y yes y=x=11，接着输入x;y=11,x=37,x<y no 输出y=11;13、分析完善程序：问题：输入一个正整数n（n>=3），判断该正整数是否为素数（质数）。要判断一个数n是否为素数，最简单的方法是：统计2到n-1之间的所有能整除n的整数个数，若s大于0，则

50、n不是素数，否则就是素数。根据以上方法，完善一下程序代码；（8分）n= Val(InputBox("n=")s=0for i=2 to n-1 if n Mod i=0 Thens= s+1 统计因数个数end ifNext iIf S<=0 then Print n &"是素数"ElsePrint n &"不是素数"End If解析：假如输入一个数5，则n=5,s=0,i=2 to n-1即i从2到4s=0,i=2,n mod i=5 mod 2=1<>0 next i;s=0,i=3,n mod

51、i=5 mod 3=2<>0 next i;s=0,i=4,n mod i=5 mod 4=1<>0,s=0<=0 yes Print n &"是素数"假如输入一个数4，则n=4,s=0,i=2 to n-1即i从2到3s=0,i=2,n mod i=4 mod 2=0=0 yes s=s+1=1;s=1,i=3,n mod i=4 mod 3=1<>0 s=1<=0 no Print n &"不是素数"14、分析完善程序：考拉兹猜想：考拉兹猜想又称为3n+1猜想，是指对于每一个正整数，如果

52、它是奇数，则对它乘3再加1；如果它是偶数，则对它除以2；如此循环，最终都能够得到1；如n=6，根据上述规则，得出63105168421。（共有8个步骤）以下是验证考拉兹猜想的主要VB程序片段，请你补全代码：（8分）n= Val(InputBox("n=")cnt=0 统计步骤数Do While n>1 Cnt=cnt+1 If n Mod 2 =0 then n= n/2 Elsen= n*3+1 End IfLoopPrint cnt 输出步骤数15、阅读下列程序，写出运行结果Dim Sum As IntegerDim K As IntegerSum=0For k=1 to 20 If k Mod 2=0 ThenSum=Sum+kEnd ifNext kPrint Sum程序运行后输出结果是： 110 解析：本题即是求从1到20这些数中的偶数的和。即2+4+6+8+10+12+14+16+18+20=11016、Dim sum as long Dim i as long sum=0 i=0 Do while sum <10 i=i+1 sum=sum+i*i loop print sum运行结果： 14 解析：sum=0,