VB数组的应用 【1.求斐波纳契数列的前20项.斐波纳契数列通项公式:2.4x4的方阵求斐波纳契数列的前20项.斐波纳契数列通项公式:F(1)=1,F(2)=1F(n)=F(n-1)+F(n-2)(n>=3)设有4x4的方阵,其中的元素由键
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/04 00:58:42
![VB数组的应用 【1.求斐波纳契数列的前20项.斐波纳契数列通项公式:2.4x4的方阵求斐波纳契数列的前20项.斐波纳契数列通项公式:F(1)=1,F(2)=1F(n)=F(n-1)+F(n-2)(n>=3)设有4x4的方阵,其中的元素由键](/uploads/image/z/2784143-47-3.jpg?t=VB%E6%95%B0%E7%BB%84%E7%9A%84%E5%BA%94%E7%94%A8+%E3%80%901.%E6%B1%82%E6%96%90%E6%B3%A2%E7%BA%B3%E5%A5%91%E6%95%B0%E5%88%97%E7%9A%84%E5%89%8D20%E9%A1%B9.%E6%96%90%E6%B3%A2%E7%BA%B3%E5%A5%91%E6%95%B0%E5%88%97%E9%80%9A%E9%A1%B9%E5%85%AC%E5%BC%8F%EF%BC%9A2.4x4%E7%9A%84%E6%96%B9%E9%98%B5%E6%B1%82%E6%96%90%E6%B3%A2%E7%BA%B3%E5%A5%91%E6%95%B0%E5%88%97%E7%9A%84%E5%89%8D20%E9%A1%B9.%E6%96%90%E6%B3%A2%E7%BA%B3%E5%A5%91%E6%95%B0%E5%88%97%E9%80%9A%E9%A1%B9%E5%85%AC%E5%BC%8F%EF%BC%9AF%281%29%3D1%2CF%282%29%3D1F%28n%29%3DF%28n-1%29%2BF%28n-2%29%28n%26gt%3B%3D3%29%E8%AE%BE%E6%9C%894x4%E7%9A%84%E6%96%B9%E9%98%B5%2C%E5%85%B6%E4%B8%AD%E7%9A%84%E5%85%83%E7%B4%A0%E7%94%B1%E9%94%AE)
VB数组的应用 【1.求斐波纳契数列的前20项.斐波纳契数列通项公式:2.4x4的方阵求斐波纳契数列的前20项.斐波纳契数列通项公式:F(1)=1,F(2)=1F(n)=F(n-1)+F(n-2)(n>=3)设有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)方阵中最大的元素.
VB数组的应用 【1.求斐波纳契数列的前20项.斐波纳契数列通项公式:2.4x4的方阵求斐波纳契数列的前20项.斐波纳契数列通项公式:F(1)=1,F(2)=1F(n)=F(n-1)+F(n-2)(n>=3)设有4x4的方阵,其中的元素由键
'第一题
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 sub