作业帮VB数组的应用 【1.求斐波纳契数列的前20项.斐波纳契数列通项公式：2.4x4的方阵
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/07/14 19:46:48
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）方阵中最大的元素.
求斐波纳契数列的前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
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