Dim res1 As Double = 0
Dim a(43)
a(1) = 0 : a(2) = 1
For i = 3 To 43
a(i) = a(i - 2) + a(i - 1)
Next i
For i = 1 To 43
st = st &a(i) &" "
res1 = res1 + a(i)
If i Mod 10 = 0 Then st = st &vbCrLf
Next i
TextBox1.Text = st &" " &res1.ToString
运行结果:
701408732
我是一个治疗肝病的民间中医,如果你能够说一下病人的胃口、大小便以及睡眠情况,我可以大致的诊断一下,据你说的病人最近瘦了好多,请注意观察一下病人的气色,如果是脸色变化暗淡明显的话,那就有点恶化的趋势。条件允许的话,还是找一下中医,西医的这些检查没有多少实质意义的。平时没什么重大的病,普通CT就行,如果普通CT发现问题,医生会告知并建议做强化CT。上腹部(一般包括肝胆胰脾肾,一部分胃及小肠)和下腹部(肠管及生殖系统)普通CT一般300左右,做全腹部就要双倍了。强化CT一般1000左右。欢迎分享,转载请注明来源:优选云