郑州大学VB模拟题5

(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以上,真彩,小字体浏览

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4