下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
　　Dim an (10) As Integer
　　Dim max As Integer
　　Randomize
　 For i%=1 To 10
　　 an(i%)=______
　 Next i%
　　max=an(1)
　 For i%=2 To 10
　　　if______then
　　　 max=an(i%)
　　 End If
　 Next i%
　 print max
　 End Sub
End Sub

甲公司材料采用计划成本核算，该公司购入材料一批，货款300000元，增值税额51000元，发票账单已收到，计划成本为290000元，材料已验收入库，全部款项以银行存款支付。编制收到结算凭证、材料验收入库和结转差异的会计分录。(6分)