报关编码题：以下程序的功能是：将一维组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A（1）到A（10）依次赋给B

以下程序的功能是：将一维组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A（1）到A（10）依次赋给B（1，1）到B（1，10），把A（11）到A（20）依次赋给B（2，1）到B（2，10），……，把A（91）到A（100）依次赋给B（10，1）到B（10，10）。请填空。
OptionBase1
　　PrivateSubForm_Click（）
　　DimiAsInteger,jAsInteger
　　DimA（1To100）AsInteger
　　DimB（1To10,1To10）AsInteger
　　Fori=1To100
　　　A（i）=Int（Rnd*100）
　　Nexti
　　Fori=1To________
　　Forj=1To________
　　　B（i,j）=________
　　PrintB（i,j）;
　　Nextj
　　Print
　　Nexti
EndSub