某数据加密方法描述如下：⑴以字节为单位进行加密处理；⑵将1个字节的8位二进制数分割成前4位与后4位两个二进制数；⑶分别将上述两个4位二...

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

浙江省杭州市夏衍中学2015-2016学年高二上学期期末考试技术试题（信息技术部分）

某数据加密方法描述如下：

⑴以字节为单位进行加密处理；

⑵将1个字节的8位二进制数分割成前4位与后4位两个二进制数；

⑶分别将上述两个4位二进制数转换为十进制数；

⑷将每个十进制数转换为1个加密字符，对应的“密码表”如下：

值(十进制)	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
加密字符	I	l	i	k	e	C	H	N	P	0	s	t	c	a	r	d

小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：

程序运行效果如图所示。

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

（1）、请在划线处填入合适代码。

Private Sub Command1_Click()

Dim n As Integer, s As String, i As Integer, ss As String

Dim a As Integer '存储加密前字符的ASCII码

Dim b1 As Integer, b2 As Integer '分别存储分割、转换后的两个十进制数

s = Text1.Text

For i = 1 To n

a = Asc(Mid(s, i, 1))

b1 = a \ 16

b2 = a Mod 16

ss = ss + Code2Char(b1) + Code2Char(b2)

Text2.Text = ss

Next i

End Sub

'十进制值转换为加密字符的函数

Function Code2Char(c As Integer) As String

Dim s As String

s = "IlikeCHNpostcard"

Code2Char =

End Function

（2）、若将“密码表”中值为“0”对应的加密字符“I”改成“i”，加密后的密文可能无法解密，原因是。

举一反三

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如第14题图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click（）

Dim a As Single, b As Single, ch As String

a = Val(Text1.Text)

b = Val(Text2.Text)

①

If ch = "+" Then

Text4.Text = Str(a + b)

ElseIf ch = "*" Then

Text4.Text = Str(a * b)

ElseIf ch = "-" Then

Text4.Text = Str(a - b)

ElseIf ch = "/" Then

If ② Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能是零"

Else

③

End If

End Sub

【根据宁波效实中学2012学年第一学期高一信息技术期末试卷改编】将一个十进制正整数x转换成十六进制数的方法和转换成二进制类似，反复除16取余法，它的算法如下

第一步：x被除16取余数r1，r1是所求的十六进制数的一个数（第一次就是个位数）；

第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数S的左边;

第三步：求出x被除16的商x1;

第四步：对x1重复（1）、（2）、（3）过程，直至商为0；

第五步：最后的S即为所求的十六进制数；

下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示，在文本框Text1中输入一个十进制数制，单击“十进制转十六进制按钮”（Command1）后，在文本框Text2中输出转换的结果。相应的Visual Basic程序如下：

Private Sub Command1_Click()

Dim s As String, r As Integer

dec = val(Text1.Text) ’dec得到一个十进制整数，例如：255；

base = 16 ’base表示16

s = "" ’s变量存放要转换到的十六进制整数；

Do While dec <> 0

r = ①

If r >= 10 Then ’如果base>10进制，r可能>10；

s = Chr(65 + (r - 10)) + s ’Chr (65)="A", 16进制数A对应10；

          Else                            ’Chr(66)="B", 16进制数B对应11；
             s = Str(r) + s      ‘余数r<10时，十进制数和十六进制基数相同；
          End If ‘Chr (65 +( r - 10))或str(r)在s左边，实现了反次序输出；
          dec =     ②
    Loop
   Text2.Text = s
End Sub

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

自然常数e，约为2.71828，其值可通过泰勒公式计算获得 $\text{[math]}$

小明编写了一个VB程序来计算e的近似值，功能为在文本框Text1中输入公式n值，单击“计算”命令按钮Commong1，在标签Label2中显示计算结果，程序运行界面如图所示。

小王编写了一个“学生体能情况分析”程序，其功能是分项计算名次和优秀率（分数90分及以上为优秀）。运行程序时，在列表框List1中显示所有学生的3项体能测试分数，在文本框Text1中输入测试项目代码（1表示游泳，2表示跑步，3表示跳远），单击“计算”按钮Command1后，计算结果分别显示在列表框List2和标签Label2中。程序运行界面如图1所示。

程序设计过程中数据的存储和计算方法如下：

⑴学生体能分数的存储：如图2所示，第1位学生的游泳、跑步、跳远分数依次存入数组score的第1、2、3个元素里，第2位学生的游泳、跑步、跳远分数依次存入数组score的第4、5、6个元素里，以此类推。

⑵计算名次的算法：先统计每个分数的个数，存入数组a，如图3中a(96)值为9，表示共有9个96分；然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次存入数组b，分数相同时名次并列，如图3中b(96)值为10，表示96分的名次是（并列）第10名，以此类推。

请回答下列问题：

请填空完善该程序

实现功能：键盘上输入任意一个正整数，将其按冰雹猜想的规则进行拆解，输出每一步拆解的值和总步数，验证其是否符合冰雹猜想。

冰雹猜想是指：一个正整数，如果是奇数就乘以3再加1，如果是偶数就对它除以2（如下图），这样经过若干次，最终回到1。无论这个过程中的数值如何庞大，就像瀑布一样坠落，在经过若干次的变换之后也必然会到纯偶数：4－2－1。

N变为

x＝{#blank#}1{#/blank#}(input("请输入任一正整数："))

n＝0

while({#blank#}2{#/blank#})：

if (x%2 ！＝ 0)：

x＝{#blank#}3{#/blank#}

else：

x＝int(x/2)

print({#blank#}4{#/blank#}, end＝" ")

相关试卷

公司介绍

服务介绍

帮助中心