vb：10进制和27进制的互化
答案:1 悬赏:80 手机版
解决时间 2021-10-17 23:44
- 提问者网友：謫仙
- 2021-10-17 12:43
vb：10进制和27进制的互化
最佳答案
- 五星知识达人网友：琴狂剑也妄
- 2021-10-17 14:05
Function zh1027(x) X1 = Int((x - 1) / 26) X2 = (x - 1) Mod 26 + 1 If (X1 = 0) Then stri = "" Else stri = Chr(64 + X1) End If stri = stri & Chr(64 + X2) zh1027 = striEnd FunctionFunction zh2710(x) xx = UCase(x) If Len(xx) = 1 Then X1 = Asc(Mid(xx, 1, 1)) - 64 Else X1 = (Asc(Mid(xx, 1, 1)) - 64) * 26 X1 = X1 + Asc(Mid(xx, 2, 1)) - 64 End If zh2710 = X1End FunctionPrivate Sub Command1_Click() Text2.Text = zh1027(Val(Text1.Text))End SubPrivate Sub Command2_Click() Text3.Text = zh2710(Text2.Text)End Sub估计你用于EXCEL的列标号，所以程序设计为2位26进制以内时有效
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯