在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(1 T0 100)As Integer For i=1 To 100 arr(i)=Int(Rnd*______) Next i Max=arr(1) Min=arr(1) For i=1 To 100 If ______Then Max=arr(i) End If If ______Then Min=arr(i) End If Next i MsgBox Max MsgBox Min End Sub 程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请将程序补充完整。

按核实征收方式缴纳企业所得税的企业，其购买国产设备投资的( )，可从购置设备当年比前一年新增的企业所得税中抵免。

A．40%

B．50%

C．60%

D．100%