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左右。欢迎分享，转载请注明来源：优选云
微信扫一扫
支付宝扫一扫
