试题

试题 试卷

logo

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

浙江省湖州市练市中学2020-2021学年高二下学期信息技术第一次质量检测试卷

某密文是由一串数字加密得到,其解密规则是:①对连续重复的大写字母,仅保留1个;②在去重后的文本中,从首字符开始间隔5个字符取1个,依次连接取出的字符,即为明文。

编写解密的VB程序,功能如下:在文本框Text1中输入密文,单击“解密”按钮Command1,在文本框Text2中显示去重后的文本,并在标签Label1中显示明文。程序运行界面如图所示。

(1)、命令按钮Command1上显示的“解密”文字,是通过修改该按钮的(单选,填字母:A .Font/ B .Caption/ C .BackColor)属性实现的。
(2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

Private Sub Command1Click( )

    Dim s1 As String, s2 As String, c As String, mw As String

    Dim i As Integer

    s1= Text1.Text

    s2 = Mid(s1, 1, 1)

    For i=2 To

        c=Mid(s1, i, 1)

        If c>="A" And c<= "Z" Then

        IfThen s2 =s2 +c

        Else

            s2 =s2+c

        End If

    Next i

    mw=“”

    i=6

    Do While i<= Len(s2)

        mw = mw + Mid(s2, i, 1)

       

    Loop

    Text2. Text= s2

    Label1. Caption =mw

End Sub

举一反三
返回首页

试题篮