计算水动力学.docVIP

学院：水利水电学院 姓名：陈辉 学号：2012202060151 这是一段迎风格式显格式计算的Visual Basic 语言程序代码。利用的Excel中的宏模块功能，在VB编辑器中编辑而成的一段迭代小程序。通过宏模块将VB语言与Excel办公软件结合在一起，得到一系列的数据。最后再通过Excel做出相应的图表。本程序是基于赵老师上课让大家看的Excel迎风格式显格式计算，在此感谢赵老师上课耐心细致的讲解。谢谢您！ 相关代码： Private Sub ww() Sheet1.Activate. Dim r As Double Dim Pe As Double r = Cells(1, 2) Pe = Cells(1, 4) For i = 3 To 51 Cells(i, 1) = n= i - 3 Next Cells(2, 1) = m= For i = 2 To 22 Cells(2, i) = i - 2 Next For i = 3 To 51 Cells(i, 2) = 1 Next For i = 3 To 51 Cells(i, 22) = 0 Next For i = 3 To 22 Cells(3, i) = 0 Next mp = 22 np = 51 For i = 3 To np - 1 For j = 3 To mp - 1 Cells(i + 1, j) = (1 - r * (2 + Pe / 2)) * Cells(i, j) + r * (1 + Pe / 2) * Cells(i, j - 1) + r * Cells(i, j + 1) Next Next MsgBox Complete! End Sub 具体运行步骤： 首先打开Excel，在Excel相应位置填上r和Pe。填完之后光标位置应移到表格的r和Pe以外的位置，否则运行会出现问题。我用的是office2007，所以用快捷键Alt+F11，进入VB编辑器。附带的Excel文件里边已经含有我编辑进去的VB代码。按下F5键，开始运行VB程序。此时显示Complete!，打开Excel界面，就会看到运行后的结果。此时可以利用Excel 的作图功能，做出相应n值的折线图。可以看出Excel做出的折线图具有很好的直观性。