《visual-basic程序设计教程(第四版)龚沛增》完整课件.pptVIP

Function Code$(ByVal s$, ByVal Key%) Dim c As String * 1, iAsc% Code = For i = 1 To Len(s) c = Mid$(s, i, 1) 取第i个字符 Select Case c Case A To Z 大写字母加序数Key加密 iAsc = Asc(c) + Key If iAsc Asc(Z) Then iAsc = iAsc - 26 加密后字母超过Z Code = Code + Chr(iAsc) Case a To z iAsc = Asc(c) + Key 小写字母加序数Key加密 If iAsc Asc(z) Then iAsc = iAsc - 26 Code = Code + Chr(iAsc) Case Else ‘当第i个字符不加密时,与加密字符串的前i-1个字符连接 Code = Code + c End Select Next i End Function Private Sub Command1_Click() 加密事件 Text2 = Code(Text1, 2) 调用 End Sub Function ReCode(ByVal s$, ByVal Key%) Dim c As String * 1, iAsc% ReCode = For i = 1 To Len(s) c = Mid$(s, i, 1) 取第i个字符 Select Case c Case A To Z 大写字母加序数Key加密 iAsc = Asc(c) - Key If iAsc Asc(A) Then iAsc = iAsc + 26 加密后字母超过Z ReCode = ReCode + Chr(iAsc) Case a To z iAsc = Asc(c) - Key 小写字母加序数Key加密 If iAsc Asc(a) Then iAsc = iAsc + 26 ReCode = ReCode + Chr(iAsc) Case Else 当第i个字符不加密时,与前i-1个字符连接 ReCode = ReCode + c End Select Next i End Function 3.查找 (1)顺序查找 例6.15。顺序查找根据查找的关键值与数组中的元素逐一比较(数组可无序) Public Sub Search(a() As Variant, ByVal key, index%) Dim i% For i = LBound(a) To UBound(a) If key = a(i) Then 找到，元素的下标在index中，结束查找 index = i Exit Sub End If Next i index = -1 End Sub Private Sub Form_Click() Dim b() As Variant b = Array(1, 3, 5, 7, 9, 2, 4) k = Val(InputBox(指定数据1-5,7,9)) Call Search(b, k, n%) If n = -1 Then Print 没找到！ Else Print n End Sub Keya(mid) 则high=mid-1 查找区域缩小一半,继续 Key=a(mid) 找到,结束 Keya(mid) 则low=mid+1 查找区域缩小一半,继续 直到找到或查找区域中无元素。 本例可以用递归实现，也可以用循环实现。 Sub birsearch(a(), low%, high%, key , index%) (2)二分法查找 要查找的数