如果存在如下过程：　　Private Function FMax(a( )As Integer)　　　Dim First As Integer，Last As Integer，i As Integer　　　First=LBound(A) 　　　Last=UBound(A) 　　　Max=a(First)　　　For i=First To Last　　　　If a(i) ＞ Max Then Max=a(i)　　　Next i　　　FMax=Max　　End Function　　在窗体上添加一个命令按钮，然后编写如下事件过程：　　Private Sub Command1 Click( )　　　　ReDim m(1 To 4) As Integer　　　　m(1)=20：m(2)=30：m(3)=50：m(4)=100　　　　c=FMax(m)　　　　Print c　　End Sub　　单击命令按钮，其输出结果为【 】。

逾期未能赔付时，每超过一天，处理站应向赔偿要求人支付赔款额1%的违约金，违约金最多不超过赔款额的（）。