【正确答案】正确答案:【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口指定位置编写以下代码: 参考代码: Private Sub Commandl C1iCk() Open”in5.dat”For Input As 1 Line Input#1,S Close:#1 Textl.Text=S End Sub Private Sub Command2 C1ick() Dim i As Integer Dim sS AS String ss=“” For i=1 To Len(S) If isletter(Mid(S,i,1))=True Then If i Mod 2=0 Then If Mid(S,i,1)=”a”Then SS=SS&”Z” E1seIf Mid(S,i,1)=”A”Then ss=ss&”Z” Else ss=ss&Chr(.Asc(Mid(s,i,1))一1) End If E1se If Mid(S,i,1)=“Z”Then ss=SS&"A” E1seIf Mid(S,i,1)=”Z”Then sS=SS&”a” Else ss=ss&Chr(Asc(Mid(s,i,1))+1) End If End If Else SS=SS&Mid(s,i,1) End If Next Text2.Text=SS End Sub 步骤2:按键运行程序,先单击“读入文件”按钮,接着单击“加密”按钮,然后单击“存结果”按钮保存结果,最后单击窗体右上角的关闭按钮结束程序。 步骤3:按要求将文件保存至考生文件夹中。
【答案解析】