题型:综合题 题类:常考题 难易度:困难
浙江省北仑中学2018-2019学年高一下学期信息技术期中考试试卷
图1
图2
Private Sub CmdTJ_Click()
Dim count(25) As Integer
Dim ch, ch2 As String
Dim m As Integer
ch = Text1.Text
For k = 1 To Len(ch)
①
n = Asc(ch2)-Asc(“a”)
If n >= 0 And n <= 25 Then
count(n) = count(n) + 1
List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"
End If
Next k
m = count(0)
For k = 1 To 25
If ② Then m = count(k)
Next k
Label1.Caption = "字母最高出现" + Str(m) + "次"
End Sub
① ②
(单选,填字母:A .执行次数介于1-10; B .执行次数介于10-20; C .执行次数介于20-25)
⑴以字节为单位进行加密处理;
⑵将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中。
试题篮