VB数组的应用 【1.求斐波纳契数列的前20项.斐波纳契数列通项公式：2.4x4的方阵

VB数组的应用 【1.求斐波纳契数列的前20项.斐波纳契数列通项公式：2.4x4的方阵
求斐波纳契数列的前20项.
斐波纳契数列通项公式：
F(1)=1,F(2)=1
F(n)=F(n-1)+F(n-2)(n>=3)

设有4x4的方阵,其中的元素由键盘输入.求出
（1）主对角线上元素之和；
（2）辅对角线上元素之积；
（3）方阵中最大的元素.

/>'第一题
private sub command1_click()
dim f(1 to 20) as integer
f(1)=1
f(2)=1
print f(1);f(2);
for i=3 to 20
f(i)=f(i-1)+f(i-2)
print f(i);
next
end sub
'第二题
private sub command2_click()
dim jc(1 to 4,1 to 4) as double
dim sum as double,product as double,max as double
product=1
for i = 1 to 4 '键盘输入元素
for j= 1 to 4
jc(i,j)=val(inputbox(请输入矩阵的元素：))
next j
next i
for i=1 to 4 '求和
for j=1 to 4
if i=j then sum=sum+a(i,j)
next j
next i
for i= 1 to 4 '求积
for j= 1 to 4
if i+j=5 then product=product*a(i,j)
next j
next i
for i =1 to 4 '求最大元素
for j=1 to 4
if max< a(i,j) then max=a(i,j)
next j
next i
print sum,product,max
end su

这个答案应该是对的

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息