VB网络教学平台.doc

VB网络教学平台--综合作业 综合作业--程序设计题 作业要求： 在作业文件夹：(C:\ homework\下有一个工程文件prog.vbp，相应的窗体文件为prog.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出[0,100]范围内所有奇数的平方和，并在文本框中显示出来。 在窗体的代码窗口中，已给出了部分程序，其中计算奇数平方和的操作在通用过程Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在’*****begin*****和’*****end***** 之间填入你编写的若干语句。 运行并保存程序（按原文件名存盘），提交程序设计题文档。 注意：不要改动其它任何函数或过程中的内容！ 您于2010-6-20 11:53:00最后一次提交了作业；目前还未批改，您还可以继续修改。 注意：认真看清程序设计题作业要求，点击下面进入VB做程序设计题作业。 注：使用前设置IE菜单：“工具”-“Internet选项”-“安全”-“自定义级别”- “对没有标记安全的ActiveX控件进行初始化和脚本运行”-“启用” Copyright copy; 2006 All rights reserved　 洛阳理工学院 建议使用：800×600以上分辨率IE4.0以上版本浏览器 程序编程题源文件(PROG.FRM)内容 VERSION 5.00 Begin VB.Form Form1 Caption = 求奇数平方和 ClientHeight = 1995 ClientLeft = 1650 ClientTop = 1830 ClientWidth = 4380 LinkTopic = Form1 ScaleHeight = 1995 ScaleWidth = 4380 Begin VB.TextBox Text1 Height = 375 Left = 2400 TabIndex = 1 Text = Text1 Top = 360 Width = 1695 End Begin VB.CommandButton Command1 Caption = 求和 Height = 375 Left = 1320 TabIndex = 0 Top = 1320 Width = 1095 End Begin VB.Label Label1 Caption = 1^2 + 3^2 + … + 99^2= Height = 255 Left = 120 TabIndex = 2 Top = 420 Width = 2175 End End Attribute VB_Name = Form1 Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Sub SaveData() Open App.Path \ progout.dat For Output As #1 Print #1, s=; Text1.Text Close #1 End Sub Function Fun() ?********begin**