2. 计算机
  3. 阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。 [说明] 本程序将利用文本框txtInput 输入的一行字符串中的所有字母加密，加密，加密结果在文本txtCode中显示。加密方法如下：将每个字母的序号移动5个位

阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。 [说明] 本程序将利用文本框txtInput 输入的一行字符串中的所有字母加密，加密，加密结果在文本txtCode中显示。加密方法如下：将每个字母的序号移动5个位

admin2009-02-15  73
问题 阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。
[说明]
   本程序将利用文本框txtInput 输入的一行字符串中的所有字母加密，加密，加密结果在文本txtCode中显示。加密方法如下：将每个字母的序号移动5个位置，即“A”-＞“F”“a”-＞“f”，“B”-＞“G”……“Y”-＞“D”，“Z”-＞“E”。程序段如下：
   [Visual Basic 代码]
Private Sub Form_ Click()
       Dim strInput As String*70 ； 输入字符串
       Dim Code as String*70      ；加密结果
       Dim strTemp As String*1    ；当前处理的字符
       Dim i as Integer
       Dim Length As Integer      ；字符串长度
       Dim iAsc As Integer        ；第i个字ASCII码
         (1)                 ；取字符串
       i=1
       Code=“”
         (2)            ；去掉字符串右边的空格，求真正的长度
Do While(i＜=Length)
       (3)               ；取第i个字符
   If  (strTemp＞="A" And strTemp＜="Z’，) Then
       iAsc= Asc (strTemp)+5
       If iAsc＞Asc(“Z”)Then iAsc=iAsc-26
       Code=Left＄(Code，i-1)+Chr＄ (iAsc)
   ElseIf  (strTemp＞="a" And strTemp＜="z") Then
       iAsc=Asc(strTemp)+5
       If iAsc＞Asc (“z”) TheniAsc=iAsc-26
       Code=Left＄(Code,i-1)+Chr＄(iAsc)
   Else
       Code=Left＄(Code,i-1)+strTemp
   End If
     (4)  
   Loop
     (5)；显示加密结果
End Sub
选项
答案(1)strlnput=txtlnput. Text (2)Length=Len(RTrim(strInput)) (3)strTemp=Mid(strInput，i，1) (4)i=i+1 (5)txtCode.Text=Code
解析
转载请注明原文地址:https://www.kaotiyun.com/show/MojZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)