考试网 >> IT认证 >> 等级 >> 等级动态 >> 全国计算机等级二级QBASIC上机编程题题型

全国计算机等级二级QBASIC上机编程题题型

发布时间：2006-07-25 12:00 点击：

分页:上一页 1 2 [3] 4 5 下一页

　　

　　中。请编写函数item实现此功能。

　　

　　Prog1.bas

　　

　　DECLARE FUNCTION item(a,k)

　　

　　a = 8: n = 4

　　

　　FOR j = 1 TO n

　　

　　 sum = sum + item(a,j)

　　

　　NEXT j

　　

　　PRINT "Sum=";sum

　　

　　OPEN "QB42.DAT" FOR OUTPUT AS #1

　　

　　PRINT #1, sum

　　

　　CLOSE #1

　　

　　END

　　

　　

　　

　　

　　

　　

　　FUNCTION item(a,k)

　　

　　

　　END FUNCTION

　　

　　参考程序答案

　　

　　

　　

　　DECLARE FUNCTION item (a, k)

　　a = 8: n = 4

　　FOR j = 1 TO n

　　sum = sum + item(a, j)

　　NEXT j

　　PRINT "Sum="; sum

　　OPEN "QB42.DAT" FOR OUTPUT AS #1

　　PRINT #1, sum

　　CLOSE #1

　　END

　　

　　FUNCTION item (a, k)

　　mm = a

　　FOR i = 2 TO k

　　mm = mm * 10 + a

　　NEXT

　　item = mm

　　END FUNCTION

　　

　　

　　

第5题

　　

　　编制程序PROG1.BAS其功能是：打印下列图形。

分页:上一页 1 2 [3] 4 5 下一页

版权申明:未经书面授权请勿转载本站信息!!作品版权归所属媒体与作者所有!!

发表评论：

匿名发表

用户名:

查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任
留言板管理人员有权保留或删除其管辖留言中的任意内容
本站提醒：不要进行人身攻击。谢谢配合。