Function AdjustStomach(Stomach As 胃) As String Dim I As Integer On Error Goto Err While True Stomach.Top = Stomach.Top - 1 I = I + 1 WEnd Err: If I > 0 Then AdjustStomach = "恭喜,您的胃成功向上提升了" & I Else AdjustStomach = "对不起,您的胃不能再向上提升了,如有问题请与系统管理员联系!" End If End Function
Dim I As Integer
On Error Goto Err
While True
Stomach.Top = Stomach.Top - 1
I = I + 1
WEnd
Err:
If I > 0 Then
AdjustStomach = "恭喜,您的胃成功向上提升了" & I
Else
AdjustStomach = "对不起,您的胃不能再向上提升了,如有问题请与系统管理员联系!"
End If
End Function
胃下垂 人取站立位时,胃的下缘达盆腔,胃小弯弧线最低点降到髂嵴连线以下,称为胃下垂。
胃下垂常是内脏下垂的一部分。轻度胃下垂者多无症状,下垂明显者可伴有与胃肠动力及
分泌功能较低有关的症状,例如上腹不适,易饱胀、厌食、恶心、嗳气及便秘等胃小弯弧线最低点降到髂嵴连线以下----?看不懂啊
看了这个,我感觉我也是胃下垂 -_-!
……
Set bWei=楼主.胃
Do Until 医生.Say="正常"
bWei.Top= bWei.Top-1
DoEvents
Loop
Debug.Print "本方法为最佳方法!,请楼主给分!"