求助 编写一个小软件

caizhi

3D软件--辅助软件  

百 十  个
1  2  3
1  3  2
2  1  3
2  3  1
3  1  2
3  2  1
合并成单注 1 2 3 ,  合并后不分百十个位
.............
.............
..............

其他的也是这样合并

冰糖

没看懂，是不是要把３个数合成一个数

caizhi

正解
帮忙呀   楼上的朋友

一-只-老-虎

VB写个
三次循环，然后连接字符串就可以了
dim s(9) as integer
dim i,j,k as integer
for i=1 to 3
for j=1 to 3
for k=1 to 3
n=n+1
s(n)=val(cstr(i) & cstr(j) & cstr(k))
next k
next j
next i

s(n)里面就是你要的数字了

一-只-老-虎

上面的不对，按你说的那个应该这样写

Dim t(3, 3), s(6)
For i = 1 To 3
For j = 1 To 3
If i <> j Then
For k = 1 To 3
If i <> k And j <> k Then
t(i, j) = Val(CStr(i) & CStr(j) & CStr(k))
End If
Next k
End If
Next j
Next i

For a = 1 To 3
For b = 1 To 3
If t(a, b) <> 0 Then
m = m + 1
s(m) = t(a, b)
End If
Next b
Next a

[ 本帖最后由 一-只-老-虎 于 2007-12-10 21:57 编辑 ]