• λ我爱Aspx >> C#.Net >> 计算机等级考试二级VB常用算法：字符处理_软件水平考试

    • 计算机等级考试二级VB常用算法：字符处理_软件水平考试

  • :aspxer  Դ:internet  :2007-4-28 23:38:53  ؼ:

  • 1、算法说明

    1) 加密解密

    最简单的加密方法是：将每个字母加一序数，例如5，这时：

    “A”→”F”,”a” →”f”,”B” →”G”,”b” →”g”……”Y” →”D”, ”y” →”d”,”Z” →”E”, ”z” →”e”

    解密是加密的逆操作。

    界面如下：

    vb

    代码如下：

    以下是引用片段： Option Explicit Private Sub Command1_Click() Dim strInput$, Code$, Record$, c As String * 1 Dim i%, length%, iAsc% strInput = Text1.Text length = Len(Trim(strInput)) Code = "" For i = 1 To length c = mid(strInput, i, 1) Select Case c Case "A" To "Z" iAsc = Asc(c) + 5 If iAsc > Asc("Z") Then iAsc = iAsc - 26 Code = Code & Chr(iAsc) Case "a" To "z" iAsc = Asc(c) + 5 If iAsc > Asc("z") Then iAsc = iAsc - 26 Code = Code & Chr(iAsc) Case Else Code = Code & c End Select Next i Text2.Text = Code End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub

    2) 统计

    问题提出

    统计字符或者数字出现的次数。

    算法说明

    以字符统计为例，设基本问题如下：

    请统计一段文本中英文字母在文本中出现的次数。(不区分大小写)

    如：I am a student.

    得到：

    A:2 d:1 e:1 I:1 m:1 n:1 s:1 t:2 u:1

    分析：

    由于不区分大小写，因此可定义一个大小为26(下标：0-25)的数组，每个元素依次记录A、B、C…Z字母出现的次数。

    A(0)存放字母a出现的次数

    A(1)存放字母b出现的次数

    A(2)存放字母c出现的次数

    A(3)存放字母d出现的次数

    …

    譬如：aabdc

    代码如下：

    以下是引用片段： Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer Dim zimu(25) As Integer Dim allStr As String Dim aStr As String allStr = UCase(Text1.Text) For i = 1 To Len(Text1.Text) aStr = Mid(allStr, i, 1) If aStr >= "A" And aStr <= "Z" Then zimu(Asc(aStr) - Asc("A")) = zimu(Asc(aStr) - Asc("A")) + 1 End If Next i For i = 0 To 25 If zimu(i) <> 0 Then j = j + 1 Text2.Text = Text2.Text & Chr(i + Asc("A")) & ":" & str(zimu(i)) & " " If j Mod 5 = 0 Then Text2.Text = Text2.Text & Chr(13) & Chr(10) End If Next i End Sub
    Ҷƪл˵?
    第一页上一页12下一页尾页
  • һƪAdobe Photoshop 认证试题三_Adobe认证
    һƪ计算机等级考试二级VB常用算法：排序_软件水平考试