PrivateSubmain()Dimarr(1To4,1To5)AsIntegerDimiAsInteger,jAsInteger,uAsIntegerOnErrorResumeNextFori=1To4Forj=1To5arr(i,j)=i*jNextNextu=CInt(InputBox("请输入下标:","","1"))IfErrThenExitSubEndIfreadValuearr,uEndSubPrivateSubreadValue(ByValarr,ByValuAsInteger)Ifu>0Andu<=20Theni=u/5+1j=uMod5+1MsgBox"值是:"+CStr(arr(i,j))EndIfEndSub |