求助 编写一个小软件
3D软件--辅助软件百 十个
123
132
213
231
312
321
合并成单注 1 2 3 ,合并后不分百十个位
.............
.............
..............
其他的也是这样合并 没看懂，是不是要把３个数合成一个数 正解
帮忙呀 楼上的朋友 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 编辑 ]
页:
[1]