编写“单词查询”程序，实现如下功能：在文本框 Text1 中输入一段英文文本（以“.”为结束符），在文本框 Text2 输入一个英文字母，单击“获取单词”按钮 Command1，在列表框 List1 依次显示 Text1 中包含该英文字母的所有单词。程序运行界面如图所示。

题型：综合题题类：模拟题难易度：困难

浙江省温州市2018届高三下学期信息技术3月适应性考试（二模）试卷

（1）、程序运行时，文本框 Text1 显示为“请输入英文短句”，可在 Form_Load 事件过程中添加代码 (单选，填字母:A, Text1.Caption = "请输入英文短句" / B, Text1．Text="请输入英文短句" / C, Text1.AddItem "请输入英文短句"）。

（2）、实现上述功能的 VB 程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String, tmp As String, c As String

Dim n As Integer, i As Integer

Dim flag As Boolean

Dim cnt As Integer '存储符合条件的单词数

s = Text1．Text

n = Len(s)

flag = False

List1.Clear

For i = 1 To n

c = Mid(s, i, 1)

If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then

If c = Text2．Text Then flag = True: cnt = cnt + 1

Else

If flag Then List1.AddItem tmp

tmp = ""

End If

Next i

If cnt = 0 Then

List1．AddItem "找不到符合条件的单词．"

End If

End Sub

（3）、若文本框 Text2 中输入“M”，单击“获取单词”按钮后，列表框 List1 中显示的单词个数是。

举一反三

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

【加试题】某数据存储算法如下：使用长度为n的一维数组h来存储m个不同整数型数据(m<n)，数据的存储位置t根据存储数据的值除n取余计算得到。例如使用长度为11的数组来存储67，45，1 275，119，145，269，64共7个数据，先存储第1个数据67，67 Mod 11=1，在第1位置上没有数据，则存放在第1位置。第2个数据45，45 Mod 11=1，而在第1位置上已存有数据，那么查找下一位置有没有数据，现第2位置上没有数据，则存放在第2位置。在查找空位时如果到了数组最后一个位置还没有空位，则从头继续查找，以此类推……，举例数据存储结果如表所示。

位置	0	1	2	3	4	5	6	7	8	9	10
数据	64	67	45	145		269				119	1275

【加试题】某对分查找算法的VB程序段如下：

t = "": i = 1 : j = 9 : f = False

Do While i <= j And Not f

m = (i + j) \ 2

t = t + Str(m)

If a(m) = key Then

t =t +“#”

f = True

ElseIf a(m) > key Then

i = m + 1

t = t + "→"

Else

j = m - 1

t = t + "←"

End If

Loop

数组元素 a(1)到 a(9)的值依次为“68、56、52、36、32、28、26、22、20”，执行该程序段，t的值可能是（）

用VB设计一个模拟选手得分程序，在文本框Text1中输入裁判人数（人数大于2），然后点击Command1按钮，在List1中产生70到100的随机数为裁判的打分，去除一个最高分，去除一个最低分，取其他裁判打分的平均分作为最终得分显示在文本框Text2中，运行效果如图所示。

某对分查找算法的VB程序段如下：

i=1:j=6:flag=False key=Val(Text1.Text)

Do While i<=j And flag = False

m=(i+j)\2

If key=a(m) Then flag=True

If key<a(m) Then j=m-1 Else i=m+1 Loop

数组元素a(1)到a(6)的值依次为“7，9，15，27，34，51”。文本框Text1中输入“27”后运行该程序，运行结束后，下列说法不正确的是（）

【加试题】数组元素a(1)到a(10)中存储有10个整数，依次为2,5,7,7,9,11,12,13,13,17，使用两种算法查找特定的整数，部分程序如下：

'顺序查找代码，查找次数用变量p表示

For i = 1 To 10

If a(i) = Key Then

p = i

End If

Next i

'二分查找代码，查找次数用变量q表示

i=1 ：j=10 ：find=Fasle

Do While i<=j And find=fasle

x =（i＋j）\2

q = q＋1

If a(x)=Key Then find=True

If a(x)>Key Then j=x－1

If a(x)<Key Then i=x＋1

Loop

若变量key的值为13，程序运行后，则变量p和q的值分别是（）

相关试卷

公司介绍

服务介绍

帮助中心