for i =0 to ...for j =0 to ...keyarray(i,j)=nextnext双重循环，赋值和读取一样
赋值:weekname(1,1)="星期一"weekname(2,1)="星期二"weekname(3,1)="星期三"取值dim S1 as strings1=weekname(1,1) '取出星期一 一次类推
