我想问下 人的程序性死亡或自然死亡（非病菌致死为主要原因）的各种症状！要全面的！…

死亡作为疾病的一种转归，也是生命的必然规律，但由于生命自然终止而“老死”（据比较生物学的研究，人类自然寿命大约是140－160岁左右）但只是极少数，人类绝大部分都死于疾病因病死亡的原因大致可分为三类：①由于重要生命器官（如脑、心、肝、双侧肾、肺及肾上腺等）发生了严重的、不可恢复的损害。②由于长期疾病导致机体衰竭、恶病质等以致代谢物质基础极度不足、各系统正常机能不能维持。③重要器官没有明显器质性损伤的急死，如失血、窒息、休克、冻死等死亡过程： 　死亡之前： 当心脏停止跳动的时候，有些人会开始抽搐，呼吸从正常的节奏转为急促，同时耳朵首先变冷。身体内的血液转为酸性，喉咙开始痉挛 - 死神降临。 死亡瞬间： 医学意义上的死亡被定义为大脑排出所有氧气。这时，人的瞳孔会变成看上去像玻璃晶体一样的物质。 死亡1分钟： 已经凝结在一起的血液开始导致全身的皮肤变色。肌肉处于完全松弛的状态，肠和膀胱开始排空。 死亡3分钟： 这个时候开始，脑细胞开始成批的死亡。高等思维的过程--例如考虑怎么才能不死或生前对不起谁终止。 死后4-5分钟： 瞳孔放大并开始失去光泽。眼球已经开始从球体慢慢变平，因为这时身体内已经没有血压了。 死后7-9分钟： 脑干死亡。 死后1-4小时： 身体肌肉开始僵硬，并使头发竖立，也就是这个原因，人死后看上去头发长长了。 死后4-6小时： 尸僵开始扩散。凝结的血液开始使皮肤变黑。 死后6小时： 肌肉仍然会痉挛。一些厌氧性的生理反应仍然在继续。 死后8小时： 身体已经彻底凉了。男人会实现一生中最后一次，也是最恐怖的一次的坚挺。 死后36-48小时： 尸僵现象开始消失，身体重新变软，柔软到可以去表演柔术杂技。 死后24-72小时： 由于身体内存在大量细菌，体内富含蛋白质的各内脏开始腐烂（胃部最先），而胰腺开始消化自身。 死后3-5天： 身体上开始出现浮肿，带着血液的泡沫开始从口和鼻子中流淌出来。 死后8-10天： 各种因腐烂而产生的气体充斥腹部，舌头从嘴里伸出来了，血液开始分解，身体也随之从绿色变成红色。 死后几周： 指甲和牙齿开始脱落。 死后1个月： 开始液化 死后数月： 脂肪会转化成绿色的物质，被称之为“尸蜡”。 死后一年： 回归自然

Private Sub Command1_Click()

Dim N As Long

N = Val(Text1.Text)

If N = 0 Then

MsgBox "输入数必须大于0！"

Exit Sub

End If

Text2.Text = YinZi(N)

End Sub

Private Function YinZi(ByVal N As Long) As Long

Dim i As Long, S As Long

YinZi = 1

If N = 1 Then Exit Function

For i = 2 To N / 2

If N Mod i = 0 Then YinZi = YinZi + i

Next i

End Function

---