李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下： ⑴“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26； ⑵每个字母变为数字后会加上一个“—”用来分割数字； ⑶其他空格和...

题型：综合题题类：常考题难易度：困难

浙江省诸暨市牌头中学2017-2018学年高二下学期信息技术第一次月考试题

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：

⑴“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26；

⑵每个字母变为数字后会加上一个“—”用来分割数字；

⑶其他空格和标点字符都按原来的表示。

李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序会将密文解密并将解密后的内容显示在文本框Text2中。程序运行界面如图所示：

（1）、根据描述，若密文为“1905-1442-”，则表示的是：

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

Private Sub Command1_Click()

Dim s As String, yw As String, tAs String

Dim value As Integer '用于存储某字母在密文中对应数值的临时变量

s = Text1.Text

value = 0

yw = ""

For i = 1 To Len(s)

t = ①

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

value = value * 10 + Val(t)

ElseIf t = "—" Then

yw = yw + Chr(Asc("A") + value Mod 27 -1)

②

Else

yw = yw + t

End If

Next i

Text2.Text = yw

End Sub

① ②

举一反三

编写VB程序代码，实现如下功能：在文本框Text1中输入金额（整数）后，点击“转换”按钮Command1后，在文本框Text2中显示该金额的大写，程序运行界面如图所示：

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

a（1）=12：a（2）=32：a（3）=70：a（4）=88：a（5）=90：a（6）=97

i=1：i=6：n=0

key=Val(Text1．Text)

Do While i<=j

n=n+1

m=Fix((i+j)／2)

If key=a(m)Then Exit Do ‘Exit Do表示退出循环

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

Loop

Text2．Text=Str(n)

运行程序，在文本框Text1中输人100，程序段运行后，文本框Text2中显示的内容为（）

【加试题】某数据存储算法如下：使用长度为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程序段：

a(1)=2: a(2)=6: a(3)=8: a(4)=9: a(5)=12

a(6)=15: a(7)=17: a(8)=18: a(9)=22: a(10)=30

k=Val(Text1.Text)

i=1: j=10

Do While i <=j

m=(i+j) \ 2

If a(m) <=k Then

i=m+1

Else

j=m-1

End If

Loop

Text2.Text=Str(a(i))+"← →"+Str(a(j))

程序运行时，文本框Text1中输入5，文本框Text2中显示的内容是（）

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

i=1：j=12：k=0：s=””

key= Va1(TextI Text)： c=N： flag= False

Do While i<= j And flag= False

m=(i1+j+1)\2：k=k+1

If key= a(m) Then c=Y： flag=True

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

s=s& Str(a(m))

Loop

Text2 Text s： Text3 Text= c

数组a(1)到a(12)的值依次为“991．85．76，68．61，53，42．34，27，20，13”，执行该程序段后，下列说法正确的是（）

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

相关试卷

公司介绍

服务介绍

帮助中心