一、解决问题有解析法、穷举法、一、解决问题有解析法、穷举法、 递归法、冒泡排序法，根据问题递归法、冒泡排序法，根据问题 选择选择合适的算法。选择选择合适的算法。 1. 列举所有可能的情况，逐个判断列举所有可能的情况，逐个判断 有哪些是符合问题所需要的条件，有哪些是符合问题所需要的条件， 从而是得到问题的解答，这是从而是得到问题的解答，这是 穷举法穷举法 的思路。的思路。 2. 一个玻璃球从高处到自由落体运一个玻璃球从高处到自由落体运 动。在达到地面时，速度为动。在达到地面时，速度为 98m/s，请问玻璃求从高处开始，请问玻璃求从高处开始 下落地面用多长时间？下落地面用多长时间？ 解析法解析法 3、水仙花数是一个三位数，其各位、水仙花数是一个三位数，其各位 立方和等于该数本身，如立方和等于该数本身，如 153=1*1*1+5*5*5+3*3*3 选择的选择的 算法是算法是 穷举法穷举法 4、一张单据上有一个、一张单据上有一个 5 位数的号码位数的号码 67_ _8，其中百位和十位的数，其中百位和十位的数 字看不清楚了，但知道该数能够字看不清楚了，但知道该数能够 被被 78 整除，也能被整除，也能被 67 整除，设整除，设 计一个算法求出该号码。计一个算法求出该号码。 穷穷 举法举法 5.已知：已知：f (1)=1 f (2)=3 当当 n2 时：时： F(n)=2f (n -1)+3f (n-2)编程求编程求 f (100)的值。的值。答案：递归法答案：递归法 6.求解求解“百鸡问题百鸡问题”已知公鸡每只已知公鸡每只 3 元，母鸡每只元，母鸡每只 5 元，每元，每 3 只小鸡只小鸡 1 元，用元，用 100 元买元买 100 只鸡，问只鸡，问 每种鸡应各买多少？每种鸡应各买多少？ 答案：答案：穷举法穷举法_ 7.国内特快专递每国内特快专递每 200g 为一个为一为一个为一 个计费单位。个计费单位。200g 以内以内 20 元，元， 200g 以上每续以上每续 200g（不足（不足 200g 按按 200g 计算计算 16 元，现在要编写元，现在要编写 一个程序输入包裹自动计算出价一个程序输入包裹自动计算出价 格。答案：格。答案：解析法解析法 8.动员成绩进行公布现在要编写一个动员成绩进行公布现在要编写一个 程序自动完成编排程序自动完成编排,请问最好采请问最好采 用哪种答案：用哪种答案：冒泡排序法冒泡排序法 二、分析程序写出运行结果或补全二、分析程序写出运行结果或补全 程序。程序。 1. Dim a as integer ,b as intergea=1:b=0Do while acmc thenthen m=cm=c PrintPrint “M=”“M=” m m EndEnd SubSub 运行结果运行结果 : : M=15M=15 13、计算、计算 1+3+5+99 的值的值 Private Sub Form-Activate ( ) DimDim I I ,S,S AsAs IntegerInteger S=0 For I=1 To 99 step 2 S= S+I Next I Print “S=” S End Sub 14、计算、计算 1+1/2+1/50 的值的值Private Sub Form-Activate ( )DimDim I I ,S,S AsAs IntegerInteger S=0 For I=1 to 50 S= S+1/I Next I Print “S=” ; S End Sub 15、实现函数：、实现函数：Y=X Private Sub Form-Activate ( ) Dim X as IntegerInteger, Y as single IntegerInteger Text1.text=” ” X=Inputer(“X=?”) If X=0 then Y=X ElseY=XX EndEnd ifif Text1.text=YText1.text=Y EndEnd SubSub 16.Private Sub Form_Activate( )Dim i As Integer , sum As Integersum=0For i =1 To 100sum=sum+2Next iPrint “sum=” ; sumEnd Sub该程序的输出结果是：该程序的输出结果是： sum=200 17、写程序结果、写程序结果 Text2=“34” a=(val (Text2)-32)*5/2 print a 答案：答案：_5_ 18、完善程序：打印如下图、完善程序：打印如下图 形。形。 Private Sub Command_Click( ) For i=1 To 6 For j=1To I Print “*” Next jprint : Next I End Sub 19Private Sub Command_Click( ) Dim a As Integer , b As Integer a=1:b=0 Do While a=10P=10 ThenThen EXITEXIT ForFor NextNext i i PrintPrint P P EndEnd SubSub 答案：答案：1212 2121、写出程序结果、写出程序结果 Private Sub Command1_Click() Dim ch As Integer , i As Ingeger ch=“DEF” For i=1 to 3 ch =ch P End sub 输出结果：输出结果：I P 分别为：分别为： 6 16 23、下面是用、下面是用 VB 编写的求编写的求 1+1/2+1/3+1/100 和的程序，在和的程序，在 空缺部分填上相应的语句空缺部分填上相应的语句 Private sub form_activate() Dim I as integer ,Sum as integer Sum=0For I = 1 to 100Sum = sum + 1/I Next I Print “Sum= ”;sum End sub 2424、 填补程序：假设你今年开始为填补程序：假设你今年开始为 “希望工程希望工程”存钱，今年存存钱，今年存 100100 元，元， 第二年存第二年存 200200 元，第三年存入元，第三年存入 300300 元，元， 依次类推，问依次类推，问 2020 年的时间你将为希年的时间你将为希 望工程存入多少钱？望工程存入多少钱？PrivatePrivate subsub command1_click()command1_click()DimDim n n asas integer,intsuminteger,intsum asas integerintegerIntsum=0Intsum=0ForFor n n =1=1 to_20to_20_Intsum=Intsum=intsum+100*nintsum+100*nBlsum.captionBlsum.caption =“20=“20 年共存年共存 入入” End if next i End sub 27、已知、已知 A、B、C、D 是简单变量，是简单变量， 且都已有互不相同的值，执行语句且都已有互不相同的值，执行语句 A=C；D=B 后，下列关系表达式逻后，下列关系表达式逻 辑值为辑值为“真真”的是（的是（ A ） A、C=A B、A+B C、D=C D、B=C 28、编写程序，将字符串、编写程序，将字符串 “ABCDEFGHIJKLMN”颠倒排列颠倒排列 次序，变换为：次序，变换为： Private Sub Command l click( ) Dim ch1,ch2 as string Dim n ,I as integer ch1=“ABCDEFGHIJKLMN”n=Len（ch1） ch2=“ ” for i= N To 1 step-1 ch2=ch2 & mid(ch1, I ,1) Next i print ch2 End sub29. 表一是某种绘图软件的部分指令，表一是某种绘图软件的部分指令，如要根据表中的指令画出图一的图形，如要根据表中的指令画出图一的图形，请根据分析填空：请根据分析填空：指令名称指令名称指令作用指令作用FORWARD n前移前移 n 厘米厘米LEFT t左转左转 t 度度RIGHT t右转右转 t 度度表一表一 1.方法一方法一 FORWARD 3 RIGHT 120 FORWARD 5 RIGHT 150 FORWARD 4 2.方法二方法二 RIGHT 90 FORWARD 4 LEFT 150 FORWARD 5 LEFT 120 FORWARD 三三.选择题选择题 1、下列程序段执行结束后变量、下列程序段执行结束后变量 y 的值是的值是 （ C ） Y=2 Do while y=6 y=y+y A、2 B、6 C、8 D、16 2、如果、如果 x=16 则表达式则表达式 sqr（x）-abs（- x）的值是（）的值是（ C ） A、12 B、0 C、-12 D、20 3、下列选项中属于字符串常量的是（、下列选项中属于字符串常量的是（ C ） A、ab B、a+b C、 “1235 D、1235 4、结构化程序设计由顺序结构、选择结、结构化程序设计由顺序结构、选择结 构和循环结构三种基本结构组成，某个程构和循环结构三种基本结构组成，某个程 序段语句如下，它属于（序段语句如下，它属于（ B ） x=-4 If x0，then x=-x Else x=x End if A、顺序结构、顺序结构 B、选择结构、选择结构 C、循环结构、循环结构 D、其他三项都是、其他三项都是 5、以下程序段执行后，整行变量、以下程序段执行后，整行变量 a 的值的值为（为（ A ） a=2 b=3 b=b+a a=a*b A、10 B、5 C、6 D、3 6、执行下列程序段后，循环体、执行下列程序段后，循环体 x=x+2 执执 行的次数是（行的次数是（ C ）次）次 x=3 y=64 Do while sqr（）（） x=x+2 loop A、1 B、2 C、3 D、4 7、下列程序段执行结束后，变量、下列程序段执行结束后，变量 y 的值是（的值是（ C ） y=2 Do while y=6 y=y+y loop A、2 B、6 C、8 D、16 8、VB 语言中，下列数据表示整型语言中，下列数据表示整型 的是（的是（ B ）A、boolean B、integer