内容发布更新时间 : 2024/5/12 18:08:33星期一 下面是文章的全部内容请认真阅读。

（4分） 6、* 用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8...）的前20项及前20项的和。 * 程序代码如下： Private Sub Command1_Click() Dim s&, a%, b%, c% a = 0: b = 1 = a + b Print a Print b For i = 1 To 18 fib a, b, c print s = s + c Next i Print \（斐波那契）数列的前20项的和为：\End Sub Private Sub fib(a, b, c) c = a + b a = b b = c End Sub （4分） 7、* 控件属性改变，如图{}所示 Private Sub Command1_Click() If Command1.Caption = \字号\Label1. = 30 Command1.Caption = \颜色\ Label1. = vbRed Command1.Caption = \字号\End If End Sub 【附图2】（6分） 三、编程题（2道小题，共20分） 1、* 编写程序： * 已知一个斐波那契数列的前两项为1,1，以后的每一项均为前两项的和。 * 例如：1,1,2,3,5，...，请求出这个数列前43项的和。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、* 编写程序： * 先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：统计出该数据文件中从第51个到第10000个数据中奇数的个数。 （【下载文件“kaoshiwenjian.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 考号：20113160128 姓名： 剩余时间： 89:45 保存交卷退出帮助

强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览