【正文】
Chr(Asc(Mid(s, i, 1)) + 1) End If End If Else result = result amp。 Chr(Asc(Mid(s, i, 1)) 1) End If Else If Mid(s, i, 1) = z Or Mid(s, i, 1) = Z Then result = result amp。其主要代碼如下: Dim s As String Private Sub Command1_Click() Open For Input As 1 s = Input$(LOF(1), 1) Close 1 = s End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer, result As String result = For i = 1 To Len(s) If isletter(Mid(s, i, 1)) = True Then j = j + 1 If j Mod 2 = 0 Then If Mid(s, i, 1) = A Or Mid(s, i, 1) = a Then result = result amp。最后,按原文件名把程序存盤。 請(qǐng)編寫 讀入文件 按鈕和 加密 按鈕的 Click事件過程,以實(shí)現(xiàn)上述功能。大小寫字母都遵循此規(guī)則。Z39。A39。A39。Z39。 3)單擊 存結(jié)果 按鈕則把 Text2中的內(nèi)容存到 。 3. 綜合應(yīng)用( 1小題,計(jì) 30分) 注意:下面出現(xiàn)的 考生文件夾 均為 C:\WEXAM\00000000\ 在考