脑外伤后躁动的处理包括（）

A.明确诊断后尽快手术去除病因

B.苯妥英钠每次0.1g、每日三次用于预防发作

C.快速静脉输注高渗降颅压药物，以缓解病情，争取时间

D.患者突然变得躁动不安，提示有颅内血肿或脑水肿的可能

E.意识模糊的患者出现躁动，须先给镇静剂，再找原因

设有以下程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1 ,Max as Integer
art1 = Array(12,435,76,24,78,54,866,43)
【14】 = arr1(1)
For i = 1 To 8
If arrl(i)＞Max Then 【15】
Next i
Print "最大值："； Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。