Private Sub Command1_Click()
n = 2
Dim a(30) As Long
Dim i As Integer
a(1) = 1:a(2) = 1
For i = 3 To 30
a(i) = a(i - 1) + a(i - 2)
If a(i) < 100000 Then
n = n + 1
End If
Next i
Print n
End Su
Private Sub Command1_Click()
n = 2
Dim a(30) As Long
Dim i As Integer
a(1) = 1:a(2) = 1
For i = 3 To 30
a(i) = a(i - 1) + a(i - 2)
If a(i) < 100000 Then
n = n + 1
End If
Next i
Print n
End Su
最新问答: 这些句子用英文怎么说1.希望的光芒2.太阳的光芒3.音乐的光芒4.梦想的光芒5.魔法的光芒 以边长为a的正方形的四个边为直径各自在正方形内画半个圆形成一个四叶花瓣图案,请问该图... 除去下列各组物质中的杂质,所用试剂和方法均正确的是 为了纠集和表彰科学家为科学发展做出的杰出贡献,国际上常用他们的名字作为科学记量的国际单位.电流的单位是用下列哪位科学家的 主+be+表的五个句子有一个否定句一个疑问句用yes,no回答 大自然的启示中生态平衡是什么意思 反比例函数y=k/x的图像过点P(m,n),其中m,n是关于x的方程x^2+xk+4=0的两个根,求P点的坐标 化学上常用燃烧法确定有机物的组成.若准确称取0.54g某有机物样品(烃或烃的含氧衍生物).经充分燃烧后,依次通入浓硫酸和 用英文翻译请问你要去几楼怎么说? 英语翻译与.......一致 欣欣果蔬运来黄瓜240千克.是运来的茄子数量3分之2,运来西红柿的数量比茄子的5分之2多60千克.这蔬菜一共运来了多少千 计算1+2+22+23+…+263,写出算法的程序. 英语翻译如题,前者的it指代是一个提议.我翻译的是“它妙极了,你无与伦比.”但因为原文里两者用的都是brilliant一 成语大全 四字成语什么明星稀 急需几首古诗的赏析多一点 通过非化学能反应产生能量的能源是?煤,石油,天然气,太阳能,风能,潮汐能,氢能,可燃冰 帮忙做一道英文题,根据例子写,两个句子合并为一个句子 不容分说的近义词 雪在太阳的照射下,逐渐熔化.是什么能转化为热能 柴木燃烧后的木炭.再次燃烧不充分时产生的是什么气体?