- 二一组卷

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

浙江省嘉兴市第一中学2019届高三上学期信息技术期末考试试卷

下列是关于某数字的加密解密算法。其加密规则如下：计算某位数字与其位置相加得到的结果除以 11 的余数即为编号（其中若余数为 0，编号为 11），编号与字符对照表如下：

编号	1	2	3	4	5	6	7	8	9	10	11
字符	V	i	s	u	a	l	B	A	S	I	C

从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	1
加密字符	s	i	u	V

小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。

（1）、在设计程序界面时，应使用图b所示“控件工具箱”中的 (填写相应编号)添加“解密”按钮Command1。

图a

图b

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

Private Sub Command1_Click()

Dim s As String, s1 As String, s2 As String, chAs String, numAs Integer

s = "VisualBASIC"

s1 = Text1.Text

s2 = "": ch = ""

i = 1

Do While ①

ch = Mid(s1, i, 1)

For j = 1 To Len(s)

If ch = Mid(s, j, 1) Then Exit For 'Exit For 退出 For 循环

Next j

②

s2 = s2 + CStr(num) 'Cstr(x)在返回的字串前不加空格

i = i + 1

Loop

Text2.Text = s2

End Sub

① ②

（3）、若密文是“Bus”,则明文是。

举一反三

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

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(text1.Text)

b = Val(text2.Text)

c = (a + b + Abs(a - b)) \ 3

Text3.Text = Str(c)

End Sub

运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（）

编写“断句生成器”程序，实现如下功能：在文本框Text1中输入未断句的文言文内容，在文本框Text2中输入多个正整数（以“，”为分割符和结束符），单击“生成”按钮 Command1,程序以这些整数为位置信息，表示在文言文相应的位置后进行断句（即在该位置后加入“/”），最后将最终断句的结果显示在文本框Text3中。程序部分编辑界面如图，但运行界面如图所示。

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是：{#blank#}1{#/blank#} 。

Private Sub Command1_Click()

Dim x As Integer, m As Integer

m = 3

For x = 1 To 5

If m > 3 Then m = m + 2 Else m = m - 1

Next x

Text1.Text = Str(m)

End Sub

小容想设计一个自己的网页，在配色时发现网页使用的颜色是用十六进制表示的，但她习惯使用了十进制RGB颜色模式，学习了VB应用程序开发后，她想通过程序实现十进制到十六进制的转换。实现如下功能：在文本框Text1中输入RGB颜色的十进制，每个值以逗号结束，单击“转换”按钮Command1，在文本框Text2中显示颜色的十六进制值。运行效果如图所示：

测试某Flash作品时，弹出错误提示信息如图所示。

引起该错误的原因是（）

有如下VB程序段：

Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer, s As Integer

d(1)=1

For i=2 To 10

d(i)=d(i-1)*i

Next i

For i=1 To 5

s=s+d(i)

Next i

Text1.Text = Str(s)

End Sub

程序运行时，单击命令按钮Command1后，将会出现的提示信息是（）

相关试卷

公司介绍

服务介绍

帮助中心