Question

请问如何用VB打印一个矩阵内特殊位置的字符？

上传不了图片，自己写一个

比如下面这个，我要打印16afglqvw，也就是对角线上的字符
1,2,3,4
5,6,7,8
9,0,a,b
c,d,e,f
g,h,i,j
k,l,m,n
o,p,q,r
s,t,u,v
w,x,y,z
再比如下面，我要打印1590dhimq
1,2,3
4,5,6
7,8,9
0,a,b
c,d,e
f,g,h
i,j,k
l,m,n
o,p,q
我将这些值给了一个二维数，数组的OPTION BASE 为0，因为某些原因，必须或者说有必要为0，为1会很麻烦。
哪位大神能给我写下代码，我学的不多，就学了些IF,FOR,DO LOOP什么的，就是大学里的计算机基础，但是我不是计算机专业的

Answer 1

sub main()
a = Array(Array("1", "2", "3", "4"), Array("5", "6", "7", "8"), Array("9", "0", "a", "b"), Array("c", "d", "e", "f"), Array("g", "h", "i", "j"), Array("k", "l", "m", "n")) '初始化数组
b = Array(Array("1", "2", "3"), Array("4", "5", "6"), Array("7", "8", "9"), Array("0", "a", "b"), Array("c", "d", "e"), Array("f", "g", "h"))
mprint a
mprint b
end sub

sub mprint(s) '自定义打印对角 过程
For i = 0 To UBound(s)
t = t & s(i)(i Mod (UBound(s(0)) + 1))
Next
print t
end sub

Answer 2

调用正面函数：
Private Function myOutput(myInput As String) As String
Dim i As Integer, myLine() As String, myData() As String
myLine = Split(myInput, vbCrLf)
For i = 0 To UBound(myLine) - 1
myData = Split(myLine(i), ",")
myOutput = myOutput & myData(i Mod (UBound(myData) + 1))
Next
End Function