Question

我编的vb加密程序出现缺少子程序，函数或属性是怎么回事？调试的时候出现问题的是程序的第一句话。

Function code(ByVal s$, ByVal key%)
Dim c As String * 1, iasc%
code = ""
For i = 1 To Len(s)
c = Mid$(s, i, 1)
Select Case c
Case "A" To "Z"
iasc = Asc(c) + key
If iasc > Asc("Z") Then iasc -26
code = code + Chr(iasc)
Case "a" To "z"
iasc = Asc(c) + key
If iasc > Asc("z") Then iasc -26
code = code + Chr(iasc)
Case Else
code = code + c
End Select
Next i
End Function
Private Sub encrypt_Click()
Text2.Text = code(Text1.Text, 2)
End Sub

Answer 1

'稍作修改：
Function code(ByVal s$, ByVal key%)
Dim c As String * 1, iasc%, i
code = ""
For i = 1 To Len(s)
c = Mid$(s, i, 1)
Select Case c
Case "A" To "Z"
iasc = Asc(c) + key
If iasc > Asc("Z") Then iasc = iasc - 26
code = code + Chr(iasc)
Case "a" To "z"
iasc = Asc(c) + key
If iasc > Asc("z") Then iasc = iasc - 26
code = code + Chr(iasc)
Case Else
code = code + c
End Select
Next i
End Function
Private Sub encrypt_Click()
Text2.Text = code(Text1.Text, 2)
End Sub