小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：实现上述功能的VB程序如下： Private Sub Command1_Click() ...

题型：填空题题类：常考题难易度：困难

浙江省义乌市群星外国语学校2017届高三上学期期中考试信息技术试题

小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：

实现上述功能的VB程序如下：

Private Sub Command1_Click()

Dim a(1 To 1000) As String '数组a存储文中出现该指定单词(或字符串)的各个位置

Dim s As String, c As String ,ch As String

Dim n As Integer, max As Integer, i As Integer

s = Text1.Text

c = Text2.Text

n = 0: Max = 0

For i = 1 To Len(s) - Len(c) + 1

ch = ①

If ch = c Then

n = n + 1

a(n) = i

If n >= 2 Then

If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)

End If

Next i

Text3.Text = ②

End Sub

以上程序段运行时，为了实现上述功能，划线处①和②应填入的代码分别为：

① ②

举一反三

【加试题】入围“阳光男生与优雅女生”的10位学生的编号依次为：47，36，35，31，28，23，17，8，3，1，主持人通过对分查找最终确定35号为首位出场学生，则主持人查找过程中依次被访问的编号是（）

凯撒密码是一种古老加密方法，其基本思想是：把明文中的所有字母在字母表中向后(或向前)按照一个固定位数进行偏移再替换成密文。如偏移量取3，所有字母A被替换成D，B替换成E，以此类推，X替换成A，Y替换成B。采用该算法加密，偏移量取4，然后把替换后字符的ASCII码用十六进制数表示即为加密结果，则字符“A”（“A”的ASCII码为十进制数65）对应的加密结果是（）

【加试题】有如下程序段：

i = 1: j = 8: count = 0: f = False

Key = Val(Text1.Text)

Do While i <= j

m = (i + j) \ 2

If a(m) = Key Then

count = count + 1

f = True

End If

If a(m) < Key Then

i = m + 1

Else

j = m - 1

End If Loop

数组元素a(1)到a(8)分别为1,2,3,4,5,6,6,7，在Text1输入6，执行该程序段后，下面说法正确的是（）

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组a(从小到大排列，并显示在文本框Text2中)中查找该数。若找到，则从数组a中删除该数(该数后面的数组元素都前移一位)，并在文本框Text3中显示删除后的结果；否则，在文本框Text3中显示“该数没有找到!”。运行效果如图所示。

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

Dim a(1 To 20) As Integer ’用于保存n(n<=20)个按从小到大顺序排列的整数

‘Form_Load事件过程产生n个整数，按升序保存在数组a中，并在Text1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim i , j , m , k As Integer

Dim x As Integer，f As Boolean ’变量f用于标记是否在数组中找到x

x = Val(Text2.Text)

i=1 ：j=n : f=False

Do While i<=j And f=False

m = Fix((i＋j)/2)

If a(m)=x Then f=True

If Then i=m＋1 Else j=m－1 ‘(1)

Loop

If f = True Then

For k = m To n-1

‘(2)

Next k

n = n - 1

Text3.Text = ""

For k = 1 To n

Text3.Text = Text3.Text＋Str(a(k))＋","

Next k

Else

Text3.Text = "该数没有找到!"

End If

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴{#blank#}1{#/blank#}；⑵{#blank#}2{#/blank#}。

在文本框 TxtIn中输入原文，单击“加密”按钮，对文中所有英文字母进行加密，其它字符不变，在文本框 TxtOut中输出加密结果。

加密规则如下表所示：

原字

…

密字

…

注：“A”的ASCⅡ码值是65，“a”的ASCI码值是97。

张三是一名计算机专业的大学生，为了帮助同学们学习专业相关的英语词汇，编写一个简易字典程序。该程序中存放词汇数据库，在学习中输入英文单词，可以获得中文翻译结果。程序中的词汇数据库采用链表方式存储，首字母相同时按升序排序。查找单词时，首先根据首字母找到同首字母最小单词所在链表，再按照链表顺序查找该单词。

相关试卷

公司介绍

服务介绍

帮助中心