在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arr(1 To 100)As Integer
For i=1 T0 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个数中的最大值和最小值，请将程序补充完整。

男，65岁，高血压病18年，高血脂3年，冠心病心绞痛2年，近2个月胸痛发作频繁，休息或含服硝酸甘油效果欠佳，轻微咳嗽吐少量白痰，1天来与家人争吵后，胸痛20分钟不缓解，伴大汗送急诊。

急诊护士对病人评估后，认为主要护理诊断是( )。

A．活动无耐力

B．低效性呼吸形态

C．潜发并发症——感染

D．焦虑

E．疼痛