[第18期]字母编码（已总结）

northwolves

发现VBA竞赛版块大家答题兴致不高，来一道简单的：

难度：

容易 ★★

题目：

1.有一种字符串（全部大写字母）编码方式，如：A=1，B2=2，C=3，…Y=25,Z=26
2.显然， “EXCEL”可编为5243512（E=5，X=24，C=3，E=5，L=12）
          “HOME”可编为815135（H=8，O=15，M=13，E=5）
3.如果某字符串编码5243512，可能不仅仅是“EXCEL”一个词，如“EBDCEAB”（E=5，B   =2，D=4，C=3，A=1）亦可。
4.在A1单元格给出任意编码，试在A2：A65536列出所有编码为[A1]的字符串（全部大写字母）
 如： [A1]=1189
 则： [A2]=AAHI
          [A3]=ARI
          [A4]=KHI

要求：
1    [A1]=INT(10^(RAND()*10))   
2.   代码写到下面事件中

       Private Sub CommandButton1_Click()

       End Sub
评分：
      结果正确给3分，精彩答案另加分。

 

[此贴子已经被作者于2006-12-31 3:41:23编辑过]

winland

0怎么办? 如果把编码方式改成A=0,B=1,C=2...Z=25会不会好些?

的确如此，欠考虑。

[此贴子已经被northwolves于2006-12-31 3:13:48编辑过]

fjlhgs

基本正确，递归函数参数不少。

Sub ZF(s As String, z() As String, L As Integer, t As String, n As Integer, r As Long)

[此贴子已经被northwolves于2006-12-31 2:47:22编辑过]

winland

这种题目用递归做好些. 代码多在处理0的不同情况. 这里0在1或2后做字母处理, 单独时就做0处理.

Dim arr(1 To 26) As String
Private Sub CommandButton1_Click()
    Dim tmpStr As String
    Dim tmp As String
    For i = 65 To 90
        arr(i - 64) = Chr(i)
    Next i
    tmpStr = ""
    tmp = Cells(1, 1)
    Range(Cells(2, 1), Cells(10000, 1)).Clear
    Cells(1, 1).Select
    tm = Timer
    Call GetAlpha(tmp, tmpStr)
    MsgBox "Processed " & Format((Timer - tm), "0.00000") & " seconds"
End Sub
Sub GetAlpha(strInput As String, tmpStr As String)
    Dim tmp As String
    If Len(strInput) = 1 Then
        ActiveCell.Offset(1, 0).Select
        If strInput = "0" Then
            ActiveCell.Value = tmpStr & "0"
        Else
            ActiveCell.Value = tmpStr & arr(strInput)
        End If
    ElseIf Len(strInput) = 2 Then
        ActiveCell.Offset(1, 0).Select
        If strInput > 26 Then
            If Right(strInput, 1) = "0" Then
                tmp = tmpStr & arr(Left(strInput, 1)) & "0"
            Else
                tmp = tmpStr & arr(Left(strInput, 1)) & arr(Right(strInput, 1))
            End If
            ActiveCell.Value = tmp
        ElseIf strInput = "10" Or strInput = "20" Then
            ActiveCell.Value = tmpStr & arr(strInput)
        ElseIf strInput = "00" Then
            ActiveCell.Value = tmpStr & "00"
        ElseIf Left(strInput, 1) = "0" Then
            ActiveCell.Value = tmpStr & "0" & arr(Right(strInput, 1))
        Else
            ActiveCell.Value = tmpStr & arr(Left(strInput, 1)) & arr(Right(strInput, 1))
            ActiveCell.Offset(1, 0).Select
            ActiveCell.Value = tmpStr & arr(strInput)
        End If
    Else
        If Left(strInput, 1) <> "0" Then
            tmp = tmpStr & arr(Left(strInput, 1))
            Call GetAlpha(Mid(strInput, 2), tmp)
            If Left(strInput, 2) <= 26 Then
                tmp = tmpStr & arr(Left(strInput, 2))
                Call GetAlpha(Mid(strInput, 3), tmp)
            End If
        Else
            tmp = tmpStr & "0"
            Call GetAlpha(Mid(strInput, 2), tmp)
        End If
    End If
End Sub

基本正确，速度很快，我个人也比较喜欢递归。

[此贴子已经被northwolves于2006-12-31 2:44:58编辑过]

xowi99

我先抛个砖吧。

用很笨的算法实现的，敬请版主审阅

基本正确。代码优化余地比较大

[此贴子已经被northwolves于2006-12-31 2:01:42编辑过]

byyourside

基本正确，思路不错

'若数字为10,则只有一个结果J.
'本程序先计算一个N位数字有多少种1位2位组合.将每种组合都放入数组.
'如1189为四位,则组合为"1111","211","121","112","22"五种.
'按每种组合从源串中进行取数转换,若所有位都能转换成功(1位不为0,2位在1-26之间),则该组合输出.
'每次运行后A1格的数据都会自动更新,所以程序开始前记录A1的值在A3格.

[此贴子已经被northwolves于2006-12-31 2:05:17编辑过]

xowi99

版主：

第一次的答题有些问题，现改正了。

另外又加上了又一方法实现的代码

麻烦您了，请批阅

leeyong

我也来一下，也不知经不经得起检验

leeyong

重新来个，修正一下

基本正确。运用了DO，FOR两种循环，采用数组操作还可快些。

[此贴子已经被northwolves于2006-12-31 2:11:33编辑过]

shuyee

不过出题时,没说明0的用法.解题时是这样考虑的,10和20是允许的,其它情况下,0视为不存在.

基本正确，工作表函数信手拈来，Ifuleu.

[此贴子已经被northwolves于2006-12-31 3:30:59编辑过]