不想的时候没感觉 想起来觉得胃部很不爽,谁知道怎么治疗?谢谢。另外劝大家工作一定不要太累,按点吃饭,要不然,就和我一样要得胃病了。

解决方案 »

  1.   

    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
      

  2.   

    回复人: crycoming(瞎编) ( ) 信誉:98  2005-11-09 14:28:00  得分: 0  
     
     
       胃下垂 人取站立位时,胃的下缘达盆腔,胃小弯弧线最低点降到髂嵴连线以下,称为胃下垂。
    胃下垂常是内脏下垂的一部分。轻度胃下垂者多无症状,下垂明显者可伴有与胃肠动力及
    分泌功能较低有关的症状,例如上腹不适,易饱胀、厌食、恶心、嗳气及便秘等胃小弯弧线最低点降到髂嵴连线以下----?看不懂啊
      
     
    看了这个,我感觉我也是胃下垂 -_-!
      

  3.   

    lijunfeng(维生素) 
    ……
      

  4.   

    Dim bWei as 胃
    Set bWei=楼主.胃
    Do Until 医生.Say="正常"
      bWei.Top=  bWei.Top-1
      DoEvents
    Loop
    Debug.Print "本方法为最佳方法!,请楼主给分!"
      

  5.   

    懂怎么治疗的都不会到CSDN来,全在医院待着守株待兔呢。