作业帮程序题1)程序改错题2)程序填空题：(1)程序改错题：gc481.frm的功能是：已知Fibonacci数列：1,1,2,3,5,8.即F1=1 (n=1)F2=1 (n=2)Fn=Fn-1+Fn-2 (n>=3)下列程序的功能是：建立一个窗体,运行时,点击该窗体,用数组
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/26 19:55:17
程序题1)程序改错题2)程序填空题：(1)程序改错题：gc481.frm的功能是：已知Fibonacci数列：1,1,2,3,5,8.即F1=1 (n=1)F2=1 (n=2)Fn=Fn-1+Fn-2 (n>=3)下列程序的功能是：建立一个窗体,运行时,点击该窗体,用数组
程序题1)程序改错题2)程序填空题：
(1)程序改错题：
gc481.frm的功能是：已知Fibonacci数列：1,1,2,3,5,8.即
F1=1 (n=1)
F2=1 (n=2)
Fn=Fn-1+Fn-2 (n>=3)
下列程序的功能是：建立一个窗体,运行时,点击该窗体,用数组来求Fibonacci数列的前20项,且以每行5项的格式将这20项显示出来.窗体代码中有二行错误,请改正,不得增删语句.
题中涉及的文件所在位置均指考生目录（即Z:盘）.
2)程序填空题：
tk481.frm的功能是：设计一个窗体,窗体的标题设置为“等级考试”,在窗体上有一个命令按钮,其名称为Command1,标题为“计算机”,程序运行时,如果单击命令按钮,则交换窗体和命令按钮的标题,下图是程序运行后的情况.要求：
1)设置窗体的标题与命令按钮的标题
2)在命令按钮的代码中填空,程序不完整,请补充(1)、(2)空白处,以便能得到正确答案,但不得增删原语句.
题中涉及的文件所在位置均指考生目录（即Z:盘）
1)Option Base 1
Private Sub Form_Click()
Dim f(20) As Integer
f(1) = 1
f(2) = 1
For i = 3 To 20
f(i) = f(i) + f(i - 1)
Next i
For i = 1 To 20
Print f(i);
If (i Mod 5) = 5 Then
Print
End If
Next i
End Sub
2)Private Sub Command1_Click()
Dim temp As String
temp = Command1.Caption
Command1.Caption = (1)
Form1.Caption = (2)
End Sub
Private Sub Form_Load()
End Sub
程序题1)程序改错题2)程序填空题：(1)程序改错题：gc481.frm的功能是：已知Fibonacci数列：1,1,2,3,5,8.即F1=1 (n=1)F2=1 (n=2)Fn=Fn-1+Fn-2 (n>=3)下列程序的功能是：建立一个窗体,运行时,点击该窗体,用数组
1）以下程序的功能是调用函数fun计算：m=1-2+3-4+…+9-10,并输出结果.纠正后的程序如下：
#include <stdio.h>；
int fun(n)
{int m=0,f=1,i;
for (i=1;i<=n;i++)
{
m+=i*f;
f=f*-1;
}
return m;
}
main()
（2）以下程序的功能是：读入20个整数,统计非负整数个数,并计算非负整数之和.纠正后的程序如下：
#include <stdio.h>
main
{ int i,n=20,s,count;
int a[20];
s=count=0;
for (i=0;i<n;i++) scanf("%d",a[i]);
for (i=1;i<=n;i++) if (a[i]>=0)
printf("s=%d\t count=%d\n",s,count);
}
（3）下列程序的功能为：输出100以内能被3整除且个位上的数为6的所有整数.纠正后的程序如下：
#include <stdio.h>
main
{ int i,j;
for(i=0,i<=10,i++)
{ j=i*10+6;
if (j%3==0) print("%5d ",&j);
}
}
一个帖子只提一个问题.