题型：综合题 题类：常考题 难易度：普通
浙江省宁波市北仑中学2018-2019学年高一上学期信息技术期中考试试卷
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
|
编号 |
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
图2