7,763
社区成员
发帖
与我相关
我的任务
分享如何进行这样的字符窜转换?
aa=0
ab=1
ac=2
ad=3
ae=4
af=5
ag=6
ah=7
ai=8
aj=9
ak=10
al=11
am=12
an=13
ao=14
ap=15
...遇到p的时候,左边的a进1,变成
ba=16
bb=17
.....
一直到bp再向前进1变成ca,以此类推...
这样的算法,怎么用VB写过程呢?
ab=1
ac=2
ad=3
ae=4
af=5
ag=6
ah=7
ai=8
aj=9
ak=10
al=11
am=12
an=13
ao=14
ap=15
...遇到p的时候,左边的a进1,变成
ba=16
bb=17
.....
一直到bp再向前进1变成ca,以此类推...
这样的算法,怎么用VB写过程呢?
...全文
请发表友善的回复…
发表回复
ryuginka 2004-04-17
- 打赏
- 举报
ok
haipingma 2004-04-17
- 打赏
- 举报
'放一listbox command控件在form1上
Private Sub Command1_Click()
List1.Clear
For i = 0 To 100 Step 16
For j = 0 To 15
n = Chr(97 + j)
List1.AddItem Chr(Int(i / 16) + 97) + Chr(97 + j) + "=" & CStr(j)
Next
Next
End Sub
Private Sub Command1_Click()
List1.Clear
For i = 0 To 100 Step 16
For j = 0 To 15
n = Chr(97 + j)
List1.AddItem Chr(Int(i / 16) + 97) + Chr(97 + j) + "=" & CStr(j)
Next
Next
End Sub
wqhj2000 2004-04-17
- 打赏
- 举报
dim a(0 to 25,0 to 15) as integer
dim num as integer
'' 对应关系： a(0,0)-aa a(0,1)ab .. a(1,0)-ba...
''''循环为a(i,j)赋值，即确定aa--zp的值
for i=0 to 25
for j=0 to 15
a(i,j)=num
num=num+1
next j
next i
gddd 2004-04-17
- 打赏
- 举报
有个小问题.它不会自动添加呀?
ap=15
ba=15
应该ba=16才对了啊?
ap=15
ba=15
应该ba=16才对了啊?
northwolves 2004-04-17
- 打赏
- 举报
Function trans(ByVal x As String) As Integer
trans = 15 * Asc(Left(x, 1)) + Asc(Right(x, 1)) - 1552
End Function
Private Sub Command1_Click()
Dim i As Long, j As Long, temp As String
For i = 1 To 26
For j = 0 To 15
temp = Chr(i + 96) & Chr(j + 97)
List1.AddItem temp & "=" & trans(temp)
Next
Next
End Sub
