各相关机关和单位在实施工程建设强制性标准的监督管理中的作用是（）。

A.规划审查机关应当对工程建设勘察阶段执行强制性标准的情况实施监督

B.施工图审查单位应当对施工阶段执行施工安全强制性标准的情况实施监督

C.工程质量监督机构应当对工程建设监理阶段执行强制性标准的情况实施监督

D.安全监督管理机构应当对工程建设验收阶段执行强制性标准的情况实施监督

E.施工图审查单位应当对设计阶段执行强制性标准的情况实施监督

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