题型:单选题 题类: 难易度:普通
山东省滨州市滨城区信息技术开学模拟考试卷(三)
Private Sub Form_Click()
Dim arr(1 to 10, 1 to 10) As Integer
Dim i As Integer, j As Integer
For i =2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption =str(arr(2, 2)+ arr(3, 3))
End Sub
输入2350123456783,先将字符串拆成三段,分别是235,012345678,3要求每一段必须严格有序,如果无法实现连续升序,则单独作为一个拆分。
原字符串 | 235 | 012345678 | 3 | |||
连续升序字符数 | 3 | 9 | 1 | |||
密文 | 235 | 3 | 012345678 | 9 | 3 | 1 |
在文本框Text1中输入原文,单击“加密”按钮,可在文本框Text2中输出密文。
在文本框Text2中输入密文,单击“解密”按钮,可在文本框Text3中输出原文。
试题篮