求助很基本的格式转换问题

风语　发表于：2011-03-06 20:33:37 　

复制

在窗体上有2个文本框，其中文本框A录入的一串17位长度的数字（假设是12345678912345678），我要做另一个文本框D中对这串数据进行变形，

变形规则如下，

假设

A=123456789123456789

B=11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 '是一组17位的数字组合

我要将A与B的每个字符一一对应相乘，即

C=1*11+2*12+3*13+....17*27

D=C除于88的余数

请问怎么写代码。

我想应该可以用循环的，我试着这么写：

--------------

DIM A AS STRING

DIM B AS STRING

C=0

FOR I=1 TO 17

C=C+MID(A,I,1)*MID(3*I-2,2)

NEXT I

D=C MOD 88

-----------

但是运行时老是提示数据格式问题，请高手修改一下，谢谢。

Top

罗衣惹轻尘发表于：2011-03-07 22:57:50

Mid函数返回的是文本，应该再加Val或者Clng之类的转换函数。。。

Top

罗衣惹轻尘发表于：2011-03-07 23:02:56

修改后大体如此：

Sub test()
A = "123456789123456789"
B = "11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27"
C = 0
For I = 1 To 17
C = C + Val(Mid(A, I, 1)) * Val(Mid(3 * I - 2, 2))
Next I
d = C Mod 88
Debug.Print d
End Sub

Top

风语发表于：2011-03-08 22:45:59

谢谢，可能行得通，我试一试。如果有空帮我封装成一个转换函数更好，那样在批量转换数据时可能就更好用。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

求助很基本的格式转换问题