VB 计算π的近似值 文件应用

《VB 计算π的近似值 文件应用》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、-----用心做文档值得下载值得拥有-------装订线课程名称：程序设计基础(VB)机试（第五套）考试时间：60分钟课程代码：8426460试卷总分：100分一、调试程序：（程序存盘文件名Test51.frm、Test51.VBP）(40分)在磁盘上有一名为“Test51.VBP”的工程文件和一个名为“Test51.frm”的窗体文件(程序界面如图1所示)。程序功能为：单击窗体时，用公式：计算π的近似值，直到最后一项的绝对值小于10-6为止。图1本程序存在多处错误，请调试并改正之。（注意：在程序调试中，不能删除程序中的整个语句，只能修改其中有错的部分。如果在某

2、处需要添加语句，则所添加的语句不得超过两条。）参考答案：OptionExplicitPrivateSubForm_Click()DimsAsInteger,nAsSingle,tAsSingle'添加定义语句：DimpiAsSingle或在上一句中添加定义t='改为：t=1pi=0n=1s=1DoWhile(Abs(t)>=0.000001)pi=pi+tn='改为：n=n+2s=-st=s/nEnddo'改为：Looppi=pi*4Print"pi=";piEndSubPrivateSubForm_Load()‘添加语句：Form1.Caption="计算PI

3、值"或在属性窗口中设置EndSub-----用心做文档值得下载值得拥有-------一、编程：（要求程序存盘文件名Test52.frm、Test52.VBP）(60分)制作如图2所示的窗体界面：图2编程要求：1、程序运行时将考生文件夹下已有文件test52in.txt中的内容逐行读出并显示在List1中；2、单击“导入List2”按钮后，将List1中的内容存入List2中；3、单击“排序”按钮后，List2中的数据升序显示；4、单击“退出”按钮后，关闭程序。参考答案：PrivateSubCommand1_Click()Dimi%,s$Fori=0ToList1

4、.ListCount-1s=List1.List(i)List2.AddItemsNextiEndSubPrivateSubCommand2_Click()Dimi%,j%,t$Fori=0ToList2.ListCount-2Forj=i+1ToList2.ListCount-1IfList2.List(i)>List2.List(j)Thent=List2.List(i)List2.List(i)=List2.List(j)List2.List(j)=tEndIfNextjNextiEndSubPrivateSubCommand3_Click()-----用

5、心做文档值得下载值得拥有-------EndEndSubPrivateSubForm_Load()DimsAsStringOpenApp.Path+"test52in.txt"ForInputAs#1DoWhileNotEOF(1)LineInput#1,sList1.AddItemsLoopClose#1EndSub软件评阅批语：一、程序调试与改错１、每个改错点　　　（7分）　２、程序运行结果正确　　（5分）二、编制程序1、文件存盘正确（5分）2、正确设计界面（10分）3、正确打开文件、正确读取数据并正确显示数据（15分）4、“导入List2”按钮代码编写正

6、确（5分）5、正确排序并显示(15分)6、“退出”按钮代码编写正确（5分）7、程序结构合理、清晰（5分）