解析算法及程序实现 知识点题库

小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer    'n为试题计数器,s为得分

Dim a, b As Integer  'a，b 为两个运算数

Dim c As String 'c为运算符："+ "表示加法，"-"表示减法

Private Sub Form_Load()

n = 0:

s = 0

End Sub

Private Sub Command1_Click()   ‘出题按钮

Randomize

n = n + 1

If n < 11 Then

      Label1.Caption = "No：" + Str(n)

      a = Int(Rnd * 100)  'a，b为运算数，且要求a不小于b

      b = Int(Rnd * 100)

      If   Then t = a: a = b: b = t                '(1)

      If  Rnd > 0.5  Then c = "+" Else        '(2)

      Label5.Caption = Str(a) + c + Str(b) + "="

      Text1.Text = ""

Else

   Command1.Caption = "完成测试"

End If

End Sub

Private Sub Command2_Click()   ‘判断按钮

If c = "+" Then

             If   a + b = Val(Text1.Text) Then  s = s + 10

           Else

             If  Then  s = s + 10    '(3)

End If

Label3.Caption = "得分:" + Str(s)

End Sub

国内特快专递每200克为一个计费单位，200克以内22元，200克以上每续重200克（不足200克以200克计算）8元，现在要编写一个程序输入包裹重量自动计算出价格。解决上述问题，最合适的算法是（   ）

【加试题】小明编写了一个统计字符串中数字字符串之和的VB程序（如字符串“ab12.3cd34ef9”,中数字字符串之和为58：12+3+34+9），运行界面如图所示。在文本框Text1中输入字符串s，单击“统计”按钮Command1，在Label3中输出统计结果。

实现上述功能的VB程序代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

  Dim s As String, ch As String

  Dim ch2 As String, sum As Double

  Dim n As Integer, i As Integer

  s = Text1.Text

  n = Len(s)

  i = 1: sum = 0

  Do While                                    ＇①

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

      j = i

      ch2 = Mid(s, j, 1)

      Do While ch2 >= "0" And ch2 <= "9"

        j = j + 1

        ch2 = Mid(s, j, 1)

      Loop

      sum = sum + Val（ ）     ＇②

      i = j

    End If

    i = i + 1

  Loop

  Label3.Caption = Str(sum)

End Sub

① ② 

小王和小李在学习二进制数时发明了一种“二进制骰子”的游戏：游戏双方轮流掷骰子，每人按顺序掷4次，点数是奇数时代表0，偶数时代表1，四次骰子点数依次从低位到高位组成一个4位的二进制数，其十进制的值就是最后的成绩，成绩高的胜出，相等则平局。如图a所示，四次掷出的骰子点数依次是3-1-4-2，则代表二进制数1100，最后的成绩就是12。

图a

图b

程序运行界面如图b所示，请回答以下问题。

填空题

小宇为选定班级参赛作品编写了一个VB程序，设计如下:在文本框 Text内输入5位评委对3个作品的评分数据(评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围[60，99]。如“275”表示2号作品得分75)。单击“计分”按钮后，在标签 Labell中输出3个作品的平均分，在标签Label2中输出参赛的作品(选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机抽取)。程序运行界面如图所示。

某计算机系统中，只采用ASCII码与GB2312两种编码，现在要统计某句话中有多少个ASCII字符，多少个GB2312字符。为了解决这个问题，某同学设计了一个VB程序，功能如下：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1，则计算机会在标签Label2中输出统计结果。界面如第11题图所示：程序代码如下：

【加试题】输入一个表达式（运算符号只有加减乘除和小括号，表达式是正确的，不需要检查）,求表达式中最后一次运算的运算符号位置。比如表达式a*(b+c)-4+d最后一次运算的运算符号是在第10个位置的“+”，输出10。算法的思想是：从表达式右边开始往左边查找，对碰到的字符分四种情况考虑：

1)若是运算符“+”或“-”保存该位置并结束查找。

2)若是第一次碰到“*”或“/”，保存该位置，若不是第一次碰到“*”或“/”，继续往左边查找。

3)若是“）”，调用函数找到和它对应的“（”位置，跳过该括号，继续往左查找。

4)若是非运算符，继续往左查找。

运行界面如下图：

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。

Function find(y As String , x As Integer ) As Integer

’该函数的功能是：返回表达式 y 中和位于第 x 位置的“）”配对的“（”的位置，代码略

End Function

Private Sub Commandl _ Click ()

Dim s As String ,  t As Integer ,  temp As Integer ,  p As Integer

s = Text1.  Text ‘输入表达式

t = Len (s):p = 0

Do While t>0

    If Mid ( s, t , 1) =“*” Or Mid ( s, t , 1) =“-” Then    ‘处理+、-

        temp=t

        Exit Do

    End If

    If ①  Then  处理 *、/

        temp = t

P=1 ‘用来标记乘号或除号已经出现了

    End If

    If Mid(s, t, 1)= ")"  Then     ‘处理括号

        ②

    End If

    t=t -1

Loop

Text 2.Text = Str (temp)

End Sub

① ② 

设有n盏灯，放在一排。从1 到 n依次顺序编号。有 n个人也从1到n依次编号。第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的。（亮灯为0，关闭为1）

为了实现这一目标，完善下列程序，使之能完成该功能。

Private Sub command1_click()

   Const n=20

   Dim i as integer,j as integer

   Dim a(1 to n) as integer

   For j=1 to n

      a(j)=0

   next j

   for i=1 to n

      for j=1 to n

         if j mod i=0 then

            

         End if

       Next j

    Next i

    For j=1 to n

       If  then list1.additem str(j)

    Next j

End Sub

编写VB程序， 实现如下功能：在文本框Text 1中输入二进制数， 单击“转换”命令按钮Command 1，在文本框Text 2中输出对应的十六进制数。程序界面如图所示， 请回答下列问题：

算法设计与程序实现

判断车牌的单双号

【背景知识】

为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。

如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。）

⑴输入：AD2367	⑵输入：A8888A	⑶输入：A8963C
输出：单号	输出：双号	输出：单号

【算法描述】

⑴自然语言

第1步：输入车牌号

第2步：取车牌号的最后一位x；

第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三……位判断，直到找到数字为止；

第4步：判断x 是奇数还是偶数，然后输出相应的结果。

⑵流程图

请根据上述算法描述补全代码

Dim n As Integer

Dim s As String       ‘定义s 为字符串类型

Dim x As String

s=InputBox(“s=”,s)     ‘将输入的车牌号赋值给s

n=6                 ‘车牌号的长度为6

x=Mid(s,n,1)     ‘取车牌号s的第n位

Do While x<“0” Or x>“9”  ‘x不是数字字符，则取x的前一位

        ①       

  x=Mid(s,n,1)          ‘取车牌号s的第n位

Loop

If        ②        then

    Print “双号”

Else

    Print “单号”

End If

(提示：Mid(s,m,n)的功能：从字符串s的第m位开始，截取长度为n的子串。例如：Mid(“A8963C”,5,1)的返回值是“3”。)

分析完善程序。

假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带利超过12000元。设定：连本带利=本金*（1+利率）^∧年数。

假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）^∧n>12000，求最小的n。

Dim s as single

Dim r as single

Dim n as integer

s=10000

r=0.03

n=0

Do while            

   n=n+1

s=s*(1+r)

Loop

Print n;”年后”:”连本带利超过”；s

根据上述回答下列问题

小明在高中数学中学到了离散型随机变量的数学期望概念，即离散型随机变量的一切可能的取值X_i与对应的概率p_i乘积之和称为该离散型随机变量的数学期望。公式为：

在程序设计课上，小明设计了一个程序用来计算离散型随机变量的数学期望，Text1中交替输入随机变量和相应概率，并以逗号“，”为分隔符，具体界面如下图所示。

小明编写了一个进制转换程序。程序运行时在文本框Text1中输入十进制数，单击“计算”按钮Command1后，结果在文本框Label1中显示。程序运行界面如图a所示。

程序分析题：算法设计与程序实现（每空4分，共8分）

已知a、b、c分别为三角形的三条边长，利用海伦公式求三角形面积 ，其中 编程实现:输入边长a，b，c，如果能构成三角形，输出面积，否则输出“No Answer !”

def cal():

a=int(txtl.get())

b=int(txt2.get())

c=int(txt3.get())

if:              :

  p= (atb+c)/2

  s=math. sqrt (p*(p-a)*(p-b)*(p-c))

  txt4.insert (0,str(s))

else:

  txt4.insert (0."No Answer!")

阅读程序，回答问题。

在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。

程序分析题：算法设计与程序实现

已知a、b、c分别为三角形的三条边长，利用海伦公式求三角形面积 ， 其中编程实现：输入边长a，b，c，如果能构成三角形，输出面积，否则输出“No Answer !”

def cal( ):

a=int(txtl.get())

b=int(txt2.get())

c=int(txt3.get())

if:                  :

  p= (atb+c)/2

  s=math. sqrt (p*(p-a)*(p-b)*(p-c))

  txt4.insert (0,str(s))

else:

  txt4.insert (0."No Answer!")

用VB程序解答百鸡问题

我国古代数学家张丘建在“算经”里提出一个数学史上有名的百鸡问题。题曰：鸡翁一，他钱五；鸡母一，值钱三；鸡雏三，值钱一：百钱买百鸡，问鸡翁、母、雏各几何？

请把以下算法选项填入到程序语句相对应的位置：

设i，j，k分别代表鸡翁、鸡母、鸡雏的只数。首先确定i，j，k的取值范围：

A 、若100个钱全买鸡母，则最多可买33只，即j的取值范围是0~33。

B 、若100个钱全买鸡翁，则最多可买20只，即i的取值范围是0~20。

C 、当i，j在各自的取值范围内确定某个值后，则鸡雏的只数，k=100-i-j也确定了。

D 、让i从0变化到20，当i取某值时再让j从0变化到33，当j取某个值时，k的值也定了。如果i*5+j*3+k/3=100成立则i，j，k当前的值就是答案。

先在窗体上绘制一个命令按钮，名称为Command1，编写命令按钮的单击事件。实现以上算法的程序如下：

Private Sub Command1_Click( )

    For i = 0 To 20

        For j= 0 To 33

            k=100-i-j（）

            If i*5+j*3 + k/ 3 = 100 Then

            Print “鸡翁、鸡母、鸡雏分别为"& i & " " & j & " " & k & "只"

            End if

        Next j，

    Next i

End Sub

请计算出任意一种答案。鸡翁、鸡母、鸡雏分别有只。

以下问题中最适合用解析算法解决的问题是（    ）