计算水动力学.doc

《计算水动力学.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、学院：水利水电学院姓名：陈辉学号：2012202060151这是一段迎风格式显格式计算的VisualBasic语言程序代码。利用的Excel中的宏模块功能，在VB编辑器中编辑而成的一段迭代小程序。通过宏模块将VB语言与Excel办公软件结合在一起，得到一系列的数据。最后再通过Excel做出相应的图表。本程序是基于赵老师上课让大家看的Excel迎风格式显格式计算，在此感谢赵老师上课耐心细致的讲解。谢谢您！相关代码：PrivateSubww()'Sheet1.Activate.DimrAsDoubleDimPeAsDoubler=Cells(1,2)Pe=Cells(1

2、,4)Fori=3To51Cells(i,1)="n="&i-3NextCells(2,1)="m="Fori=2To22Cells(2,i)=i-2NextFori=3To51Cells(i,2)=1NextFori=3To51Cells(i,22)=0NextFori=3To22Cells(3,i)=0Nextmp=22np=51Fori=3Tonp-1Forj=3Tomp-1Cells(i+1,j)=(1-r*(2+Pe/2))*Cells(i,j)+r*(1+Pe/2)*Cells(i,j-1)+r*Cells(i,j+1)NextNextMsgBox"Co

3、mplete!"EndSub具体运行步骤：首先打开Excel，在Excel相应位置填上r和Pe。填完之后光标位置应移到表格的r和Pe以外的位置，否则运行会出现问题。我用的是office2007，所以用快捷键Alt+F11，进入VB编辑器。附带的Excel文件里边已经含有我编辑进去的VB代码。按下F5键，开始运行VB程序。此时显示"Complete!"，打开Excel界面，就会看到运行后的结果。此时可以利用Excel的作图功能，做出相应n值的折线图。可以看出Excel做出的折线图具有很好的直观性。