浙教版(2019)高中信息技术必修一 3.3 简单算法及其程序实现

下列问题中可以用枚举算法解决的是（     ）。

已知由字母组成的字符串s，现要实现如下功能：将字符串s中的字母按照26个英文字母顺序依次输出(重复出现的字母只需输出一次)。如s="Congratulate"，输出结果为"aceglnortu"，为实现上述功能，在横线处填入的代码应该是（    ）

Dim a(1 To 26)As Integer

    s=Text1. Text

    For i=1 To Len(s)

          ①     

        If c>="A" And c<="Z" Then c=Chr(Asc(c)+32)

           ②    

    Next i

    For i=1 To 26

        If a(i)<> 0 Then Label1.Caption= Label1.Caption+     ③    

Next i

有如下VB程序段：

Dim a(1 To 10) As Integer

s = "7218634594": n = Len(s)

t = 0

For i = 1 To n - 1

    a(i) = Val(Mid(s， i， 2))

Next i

For i = 1 To n - 2 Step 2

    k = i

    For j = i + 2 To n - 1 Step 2

        If a(j) < a(k) Then k = j

    Next j

    If k <> i Then

        temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1

    End If

Next i

Text1.Text = Str(t)

该程序段运行后，文本框Text1中显示的内容是（   ）

有如下VB程序段：

a=1: b=1: n=12

f(1)=a: f(2)=b

For i=3 To n

    c=a+b

    f(i)=c Mod 4

    a=b

    b=c

Next i

执行该 段程序后,数组元素f(12)的值为（    ）

有如下VB程序：

Dim i As Integer，j As Integer，k As String，n As Integer

n＝3

List1.Clear

For i＝1 To n

    k＝“”

    For j＝1 To i

        k＝k＋“*”

    Next j

    List1.AddItem k

Next i

该程序运行中，在列表框List1中显示的是(  )

有如下程序段：

Function delStr (S As String, m As Integer) As String

    Dim n As Integer:n = Len(S)

    If m <1 Or m > n Then delStr = "输入位置有误!"

    If m = 1 Then delStr = Mid(S, 2, n-1)

    If m < n Then delStr = Mid(S, 1, m-1)+Mid(S, m+1, n-m)

    If m = n Then delStr = Mid(S, 1, n-1)

End Function

Private Sub Command1_ Click()

    Dim S As String:Dim i As Integer

    S = Text1.Text

    For i = 1 To 10 Step 2

        S = delStr(S, i)

    Next i

    Text2. Text = S

End Sub

文本框Text1中输入Happybirthday，执行该程序段，文本框Text2中显示的是（      ）

有n个整数存放在数组a中，整数k1与k2且k1<k2。某程序段如下：

i = 1: L = 0: R = n + 1

Do While i < R

If a(i) < k1 Then

L = L + 1

If L <> i Then tt = a(i): a(i) = a(L): a(L) = tt

i = i + 1

ElseIf a(i) > k2 Then

R = R - 1

tt = a(i): a(i) = a(R): a(R) = tt

Else

i = i + 1

End If

Loop

则执行上述代码后，下列说法正确的是（   ）

某VB程序段如下：

s = "Hello World"

s1 = ""

n = Len(s)

For i = 1 To n \2

    If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then

        s1 = s1 + Mid(s, i, 1)

    Else

        s1 = Mid(s, n - i + 1, 1) + s1

    End If

Next i

Text1.Text = s1

执行该程序段后，在文本框Text1中显示的是（    ）

为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。

请分析任务，完成下列题目。

程序代码如下：

Private Sub Command1_Click()

Dim s As single

Dim Max ， Min ，i As Integer

Dim a(5) As Integer

Max = 0

Min =     ①      

s = 0

For i = 1 To 5

    a(i) = InputBox("请输入第" & i & "个分数")

    s = s + a(i)

    If    ②   Then Max = a(i)  

    If  Min > a(i) Then Min = a(i)   

Next i

s =      ③          

Text1.Text = Max

Text2.Text = Min

Text3.Text = s

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command3_Click()

End Sub

请分析任务，完成下列题目。

有一个报数游戏，n个人排成一圈，游戏开始时规定个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。

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

Private Sub Command1_Click()

    Dim n As Integer，m As Integer

    Dim a(1 To 50)As Integer

    n= Val(Text1. Text)

    m= Val(Text2. Text)

    For i= 1 To n

       

    Next i

    s=0；j=0

    Do While s <n

        t=0

        Do While t <m

                    

            t=t+ a(j)

        Loop

        a(j)=0

        s=s+1

        List1. Additem"第"+Str(s)+"次："+Str(j)

    Loop

End sub

小明用VB编写了统计短文（不超过500字）中英语单词频次的程序。在文本框Text1中输入短文，单击“单词统计”按钮Count后，在列表框List1中按字典升序输出单词（不区分大小写）和出现频次，程序运行结果如图所示。

请回答下列问题：

亲戚寻找。小李总是因为认不清亲戚而苦恼，于是他设计了如下程序来模拟亲戚寻找的过程。已知：如果1和2是亲戚，1和3是亲戚，则2和3也是亲戚。代码思维如下：

1)将每个人看成是一个钩码，能挂在另一个挂钩底下，自己底下也能挂其他挂钩。

2)如果两个钩码在同一条钩码串上，则为亲戚（如2、3都能找到1）。

3)如果两个是亲戚但不在一串钩码上，则可将其中一串的最上面的钩码挂在另一串的下方。

例如从图a加框处的前三行数据可得到图b所示的钩码串1和钩码串2，从第四行数据可知9、5也为亲戚，则可将两串钩码合并，合并后3为2的顶端，5为3的顶端，其余数据以此类推。

根据算法思想，编写VB程序功能如下：程序初始化时给出6条亲戚关系显示在List1中，单击“理关系”按钮，在List2中显示每个人所在钩码的顶端编号。在Text1和Text2中分别输入两人的编号，单击“询问”按钮，输出两个人是否为亲戚关系。程序运行界面如图a所示。

编写一个VB程序，实现如下功能：输入s位数字构成的数字字符串（第1位数字不为0），移除k （0<k<s）个数字后，在保证原数字相对位置不变的情况下，使剩余数字组成的新数为最小（注：新数第1位不能为0）。例如8个数字构成的数字字符串“71803296”，移除3个数字，得到5位数字构成的最小数是“10296”，具体算法如图a所示。

算法分析：要使得到的5位数字最小，首先需保证能取到5个数字，且首位应尽量小，那么取首位数的范围应保证余下有4个数字，即在前4位中选最小非0的数字。

程序运行时，在文本框Text1中输入一个数字字符串，在文本框Text2中输入要移除的数字个数，单击“运行”按钮CmdRun后，在标签Labell显示得到的最小新数，程序运行界面如图b所示。