按顺序读取数值

abcabc8759

各位高手，现在我写一个程序，其中要解决的一个问题就是：A对应A1，B对应B1，现在要按这个顺序显示出来，如何做呢？我用
     Dim $numa[12]
        $numa[1]="a1"
        $numa[2]="a2"
        $numa[3]="a3"
        $numa[4]="a4"
        $numa[5]="a5"
        $numa[6]="a6"
        $numa[7]="a7"
        $numa[8]="a8"
        $numa[9]="a9"
        $numa[10]="a10"
        $numa[11]="a11"
        $numa[12]="a12"        
Dim $txt1=$numa[Random(1,12)]
         Dim $numb[56]
        $numb[1]="A1"
        $numb[2]="A2"
        $numb[3]="A3"
        $numb[4]="A4"
        $numb[5]="A5"
        $numb[6]="A6"
        $numb[7]="A7"
        $numb[8]="A8"
        $numb[9]="A9"
        $numb[10]="A10"
        $numb[11]="A11"
        $numb[12]="A12
Dim $txt2=$numb[Random(1,12)]
MsgBox(0,"随机数测试",$txt1&$txt2)
这样写出来的还是随机的txt1和txt2，后来又用IniRead和IniReadSection，都不能实现，请问一下，各位如何在msgbox中，如果是txt1时，就显示txt2！不胜感激！

sanhen

我怎么看得一塌糊涂。。。

liongodmien

不明白，又要随机，又要按顺序？！

大绯狼

2个问题
1.数组是从0开始的
2.楼主的代码改从0开始一切正常

abcabc8759

谢谢各位的帮助！那个Random用在这儿本来就不对，只是我没有办法，只能这样做了！主要实现的目的还是：要让$TXT1在显示a1的时候，$txt2对应的显示A1，如果$txt1显示为a50,那么$txt2也要显示A50,如果从上到下按顺序显示的话，应该达到了一一对应显示的，但我不知道如何按顺序显示。最终目的还是要TXT1中每N行的内行和TXT2中第N行的内容对应到一起！
举例：张三的身证号为1,李四的为2,如果取了张三，我希望能取到他的身份证号1！



[ 本帖最后由 abcabc8759 于 2008-11-6 23:17 编辑 ]