不想的时候没感觉 想起来觉得胃部很不爽,谁知道怎么治疗?谢谢。另外劝大家工作一定不要太累,按点吃饭,要不然,就和我一样要得胃病了。
解决方案 »
- 问题两个:1.如何打印指定行,像excel中的“顶端标题行”一样。2.如何用vsflexgrid和vsprint实现打印表格,并且有设置纸张和页面设置
- 咨询Google竞价排名的问题?
- 关于excel自动删除数据的问题
- 解决几个用户对SQL SEVER中的记录同时进行操作问题(如更新、删除等)的VB语句怎么写?(急,高手请快点出招!)
- 如何获得hwnd?
- 关于database对象的问题,非常简单的,帮忙up者有分
- 送100分,如何在牛顿迭代法中比较第N+1次和第N次计算结果的差值
- GetSystemDirectory问题 急!在线等答案!!
- 数据库方面的小东西,烦人呢
- 一个语法问题??
- 怎么在vb里检测一个数据库是否存在?
- 能否在Excel里使用vb.net?
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 "本方法为最佳方法!,请楼主给分!"