在窗体上有一个命令按钮，然后编写如下程序：　　Function Trans(ByVal num As Long) As Long　　　Dim k As Long　　　k=l　　　Do While num　　　　　　k=k * (num Mod 10)　　　　　num=num\10　　　　Loop　　　　Trans=k　　　　Print Trans　　End Function　　Private Sub Commandl_Click( )　　　　Dim m As Long　　　　Dim s As Long　　　　m=InputBox("请输入一个数")　　　　s=Trans(m)　　End Sub　　程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为【 】，在输入对话框中输入“987”输出【 】，在输入对话框中输入“879”，输出结果为【 】。

患儿，1岁2个月，半天来发热、流涕、咳嗽，半小时前突然抽风一次，持续约5分钟，为全身性抽搐，1岁时发热曾发作一次，情况与本次类似。查体：神清、一般情况好，T39℃，咽红，呼吸音稍粗，神经系统检查(-)。来院急诊。

该患儿抽风的原因最可能是

A．化脓性脑膜炎
B．癫痫
C．维生素D缺乏性手足搐搦症
D．高热惊厥
E．中毒性脑病