【加试题】编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文（每个明文字母对应1个不重复的密文字母）。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文,并在文本框Text2中显示对应密文（运行效果如图17所示）。实现上述功能的VB代码...

题型：填空题题类：模拟题难易度：困难

浙江省“七彩阳光”新高考研究联盟2017届高三下学期信息技术期初联考试卷

【加试题】编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文（每个明文字母对应1个不重复的密文字母）。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文,并在文本框Text2中显示对应密文（运行效果如图17所示）。实现上述功能的VB代码如下：

Dim m2 As String

Private Sub Command1Click()

Dim flag(1 To 26) As Boolean

Dim num As Integer,t As Integer

Randomize

num = 1

Text3.Text = " "

For i = 1 To 26

flag(i) = False

Next i

Do While num <= 26

x = Int(Rnd * 26) + 97

①

If flag(t) = False Then

m2 = m2 + Chr(x)

num = num + 1

②

End If

Loop

Text3.Text = m2

End Sub

Private Sub Command2Click()

Dim s As String， m As String， result As String

Dim k As String， c As Integer

s = Text1.Text

m = "abcdefghijklmnopqrstuvwxyz"

For i = 1 To Len(s)

k = Mid(s, i, 1)

If k >= "A" And k <= "Z" Then

k = Chr(Asc(k) + 32)

End If

c = 1: continue = True

Do While ③

If k = Mid(m, c, 1) Then

continue = False

End If

c = c + 1

Loop

④

Next i

Text2.Text = result

End Sub

程序①处的代码是

程序②处的代码是

程序③处的代码是

程序④处的代码是

举一反三

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

加密规则如下表所示：

原字

…

密字

…

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

有如下VB程序段：

i=1

j=6

s=“”

Key=Text1. Text

Do While i <=j

m=Int((i+j) / 2+0. 5)

s=s+“ ”+a(m)

If Key > a(m) Then

i=m+1

Else

j=m-1

End If

Loop

Text1. Text=s

数组元素a(1)到a(6)的值分别为“Beijing”“Guangdong”“Jiangsu” “Jiangxi”“Shanghai” “Zhejiang”，己按字典序排序。当key的值为“Zhejiang”时，单击命令按钮Command1，文本框Text1中显示的内容为（）

【加试题】数组元素d(1) = 2: d(2) = 3: d(3) = 5: d(4) = 7: d(5) = 11:d(6) = 13: d(7) = 17: d(8) = 19: d(9) = 23，经过该程序段“加工”后，变量s的值是（）

Dim d(1 To 9) As Integer, s As String

Dim L As Integer, R As Integer, M As Integer, key As Integer

L = 1: R = 9

s = "": key =13

Do While L <= R

M = (L + R + 1) \ 2

If d(M) = key Then L = 10

If d(M) < key Then L = M + 1 Else R = M - 1

s = s + Str(M)

Loop

有如下VB程序段：

a(1) = 11 : a(2) = 14 : a(3) = 23 : a(4) = 23 : a(5) = 30 : a(6) = 42

key = Val(Text1.Text)

L = 1 : R = 6 : x = 0

Randomize

Do while L <= R

mid = Int(Rnd() * (R-L+1))+ L

If a(mid) = key Then

Exit Do

ElseIf a(mid) > key Then

R = mid - 1

x = x - 1

Else

L = mid + 1

x = x + 1

End If

Loop

If L <= R Then

Label1.Caption = "查找成功，" + "位置为" + str(mid)

Else

Label1.Caption = "查找失败"

End If

该程序执行后，在文本框Text1中输入23，则x的值不可能是（）

某字符串s是由一个原始字符串反复重叠形成的。例如字符串"abcababcababcab"的是由原始字符串"abcab"重叠而成。为查找字符串s的原始字符串，有如下VB程序段:

s = "abcababcababcab": L = Len(s)

For t = 1 To L \ 2 '枚举可能的原始长度

If L Mod t = 0 Then

For i = t + 1 To L Step t

If ① <> Mid(s， 1， t) Then Exit For

Next i

If i = L + 1 Then ans = ② : Exit For

End If

Next t

Text1.Text = ans

上述程序段划线处①②语句依次可为（）

编写一个查找最接近的数的VB程序：程序运行时，在文本框Text1中输人产生随机数的个数（1到100之间），单击命令按钮“产生随机数并升序排列”后，在列表框List1中显示已经按升序排列后的随机整数，然后在文本框Text2中输入要查找的整数，单击命令按钮"查找"后，在标签Label3中显示随机整数序列中与待查找数最接近的整数（当最接近的数有2个时，输出较大的一个）。程序运行效果如图所示：

实现上述功能的VB代码如下，请在横线处填入合适代码。

Dim n As Integer '存储随机数的个数

Dim f(1To100)As Boolean

'f(i)为True时表示随机整数i已经产生过

Dim a(1 To 100)As Integer

'依次存放升序排序后的n个随机数

Private Sub Command1_Click()

'命令按钮“产生随机数并升序排列”的单击事件

Dim i As Integer

Randomize

For i=1 To 100

f(i)=False

Next i

n=Val(Text1. Text)

For i=1 To n

t=Int(Rnd * 100+1)

Do While f(t)=True

t=Int(Rnd * 100+1)

Loop

{#blank#}1{#/blank#}

Next i

j=0

For i=1 To 100 '实现排序并输出

If f(i)=True Then

{#blank#}2{#/blank#}

a(j)=i

List1.AddItem Str(i)

End If

Next i

End Sub

Private Sub Command2_Click()

'命令按钮“查找”的单击事件

Dim key As Integer

key=Val(Text2. Text)

If key <=a(1) Then Label3. Caption=Str(a(1)): Exit Sub

If key >=a(n) Then Label3. Caption=Str(a( n)): Exit Sub

L=1: R=n

Do While L<=R '找到与 key 较为接近的两个数a(R)和a(L)

m=(L+R)\2

If key<=a(m)Then

R=m-1

Else

L=m+1

End If

Loop

If {#blank#}3{#/blank#}Then

'在a(R)和 a(L)中选出更接近key的数

Label3. Caption=Str(a(R))

Else

Label3. Caption=Str(a L))

End If

End Sub

相关试卷

公司介绍

服务介绍

帮助中心