在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下而的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的改为正确的内容。 注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。 Private Sub Command1 Click（　）    Dim n As Integer, k As Integer, m As Integer    Dim c As String, a As String    For k ＝ 0 To 2    　　　　If Op1(k)．Value Then    '　n ＝ Val(Op1(k). ? )    　　　　End If    Next k    m ＝ Len(Text1.Text)    a ＝ ""    '　For k ＝ 1 To ?    '　c ＝ Mid$(Text1.Text, ? , 1)    　　　　c ＝ String(1, Asc(c) ＋ n)    　　　　If c > "z" Or c > "Z" And c < "a" Then    　　　　　　c ＝ String(1, Asc(c) － 26)    　　　　End If    '　？ ＝ a ＋ c    Next k    Text2.Text ＝ a    End Sub

题库:计算机等级考试 类型:简答题 时间:2021-06-06 11:40:39 免费下载:《问答》Word试卷

在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下而的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的改为正确的内容。 注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。 Private Sub Command1 Click（　）    Dim n As Integer, k As Integer, m As Integer    Dim c As String, a As String    For k ＝ 0 To 2    　　　　If Op1(k)．Value Then    '　n ＝ Val(Op1(k). ? )    　　　　End If    Next k    m ＝ Len(Text1.Text)    a ＝ ""    '　For k ＝ 1 To ?    '　c ＝ Mid$(Text1.Text, ? , 1)    　　　　c ＝ String(1, Asc(c) ＋ n)    　　　　If c > "z" Or c > "Z" And c < "a" Then    　　　　　　c ＝ String(1, Asc(c) － 26)    　　　　End If    '　？ ＝ a ＋ c    Next k    Text2.Text ＝ a    End Sub

本题关键词:程序性文件,子文件夹图标,工程变更文件,工程设计文件,建设工程文件,质量管理体系程序文件,工程施工管理文件,附有文件,施工文件,《建设工程施工合同（示范文本）》附件;