题型：综合题 题类：常考题 难易度：困难
浙江省台州中学2016-2017学年高一下学期信息技术第四次统练试题
用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示：
Dim m As Integer
Private Sub Command1_Click()
Dim n As Integer, s As Integer
Dim w As Single, f As Single
n = Val(Text1.Text) '输入大人人数n
w = Val(Text2.Text) '输入重量w
f = 20 * n + 10 * w '计算无优惠的费用f
s = 0
For i = 1 To m '计算桔子总数
s = s + i * i
Next i
If s= Then '判断是否拿到优惠计算费用
f = f * 0.5 + s * 0.3'计算优惠后的费用
Label7.Caption = "恭喜你，这是优惠后的费用！"
Else
Label7.Caption = "很遗憾，你没有算对哦！"
End If
Label4.Caption = Str(f) '输出最后的费用f
End Sub
Private Sub Form_Load()
Randomize
m = '随机产生15层及以内的桔子层数不含0
Text3.Text = Str(m)
End Sub
⑴以字节为单位进行加密处理；
⑵将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程序如下：
⑴分别将十进制数x,y转换为二进制,并将转换的每位二进制数存储到数组a,b中；如果两个二进制位数不相等，则位数较少的前面用“0”补足，使之a,b数组元素个数一致；
⑵取出数组a,b中下标相同的数组元素进行运算，若值相同，则结果为0，否则为1；
根据上述运算方法,示例如表所示。
变量 | 十进制 | 二进制 | ||||
x | 19 | 1 | 0 | 0 | 1 | 1 |
数组a | a(1) | a(2) | a(3) | a(4) | a(5) | |
y | 9 | 0 | 1 | 0 | 0 | 1 |
数组b | b(1) | b(2) | b(3) | b(4) | b(5) | |
x xor y | 1 | 1 | 0 | 1 | 0 | |
小明编写了一个VB程序，功能如下：在文本框Text1、Text2中分别输入x、y的值，单击“异或”按钮Command1，程序对数据进行异或运算，并将结果显示在列表框List1中。
试题篮
