exx;>Hsbl.?Then\rMsgBox”ef”\r*ElselfHsbl.Value+Txtl.Text<?Then\rMsgBox”ef”\rElse\r1?=Hsbl.Value+Txtl.Text\rEndIf\rEndSub\r34`\r<(dr501.dat0R0@\r.+,cJ32423365858169S545314425224\r7326912263754576072SO51327.?129ab ,
!0@dr501.dat\r`^_`Arr\r> ?:525xp\r=^\rg?-~?`\rcn5op.> \rs67?\rH?\r!\r=?/012.\r?!?"#"%"'(/0+,\r-.p?\r??4'?.567.89!4'90@:;0@<A.\r? \rOptionBase1\rPrivateSubFcrm_Click()\rConstN=5\rConstM=5\r,Dim?\rDimifj\r1OpenApp.Fath&"\wiwdr501.datw?As41\rFeri=1ToN\rFerj=1ToM\r12\rNextj\rNexti\rClose41\rPrint\rPrint”mnopqrs`”\rPrint\rFori=1ToN\rForj=1ToM\rPrintTab(5*j);arr(i,j);\rNextj\rPrint\rNexti\rPrint:Print\rPrint” -¡¢£¤¥¦ s`”\rFori=1ToN\rForj=1ToK\r3If?Then\rPrintTab(5*i);arr(ifj);\rEndIf\rNextj\rNexti\rEndSub