WordVBA编制矩形溢洪道水力计算程序1概述1.1溢洪道水力计算溢洪道水力计算是水库工程设计中的重要内容之一，分为上游明渠段和下游陡坡段。上游明渠段按明渠均匀流计算正常水深，下游陡坡段随着泄洪槽底比降及底宽的变化，通常按断面能量守恒来试算水深，试算工作量较大。本文通过Word程序内置宏语言VBA编制的矩形溢洪道水深计算程序可轻松解决试算工作量大的麻烦，为溢洪道设计方案选型提供了有力的计算工具，计算准确且大大提高工作效率。程序在安装Word2000以上版本的电脑上即可运行，利用Word程序内置宏语言VBA执行程序，在将工程设计数据及溢洪道几何尺寸数据输入后，点击“水力计算”命令按钮，可计算出溢洪道明渠段及各陡坡段（共设5段陡坡）水深、流速、掺气水深等数据，再点击“文本输出”命令按钮可输出溢洪道水深计算的文本及水面线计算表。1.2VBA简介VBA(VisualBasicForApplication)是微软公司Office办公软件中内置的宏语言，利用该语言可扩展Word、Excel等程序功能，创建专业程序工具。WordVBA的打开是在Word程序中点击下拉菜单“工具”→“宏”→“VisualBasic编辑器”。若要执行已创建的宏，首先需将下拉菜单“工具”→“宏”→“安全性”设为中或低，确定后关闭Word程序然后启动，再点击下拉菜单“工具”→“宏”→“宏…”，选取所要运行的宏名，点击“运行”命令按钮，即可运行所创建的宏。2程序编制2.1创建程序界面打开Word程序，点击下拉菜单“工具”→“宏”→“VisualBasic编辑器”，打开MicrosoftVisualBasic文档，点击下拉菜单“插入”→“用户窗体”，出现UserForm窗体及工具箱，点击工具条上“属性窗口”按钮，调出属性窗口。利用工具箱及属性窗口，在UserForm窗体中创建27个标签控件、53个文字框控件、3个框架控件、3个命令按钮控件，创建的程序界面如图1所示。图1程序界面创建的主要控件属性见表1。表1主要控件属性表序号名称Caption（标题)备注1Frmyhd矩形溢洪道水力计算程序（DHMZY）版权所有用户窗体2Cmdcpu水力计算命令按钮3Cmdexp文本输出命令按钮4Cmdcnl取消命令按钮2.2程序代码编写①双击用户窗体，进入程序代码编辑器，在“（通用）”中用Private语句声明129个程序变量，数据类型为Single。②双击命令按钮“水力计算”控件，编写Click事件代码如下：PrivateSubcmdcpu_Click()t1=Val(TextBox1.Text)t2=Val(TextBox2.Text)t3=Val(TextBox3.Text)t4=Val(TextBox4.Text)t5=Val(TextBox5.Text)t6=Val(TextBox6.Text)t7=Val(TextBox7.Text)t8=Val(TextBox8.Text)t9=Val(TextBox9.Text)t10=Val(TextBox10.Text)t11=Val(TextBox11.Text)t12=Val(TextBox12.Text)t13=Val(TextBox13.Text)t14=Val(TextBox14.Text)t15=Val(TextBox15.Text)t16=Val(TextBox16.Text)t17=Val(TextBox17.Text)t18=Val(TextBox18.Text)t19=Val(TextBox19.Text)t20=Val(TextBox20.Text)t21=Val(TextBox21.Text)t22=Val(TextBox22.Text)t23=Val(TextBox23.Text)Ift4<=0ThenMsgBox"计算数据必须输入后再点击计算按钮！",vbExclamation,"警告":ExitSubIft5<=0ThenMsgBox"计算数据必须输入后再点击计算按钮！",vbExclamation,"警告":ExitSuba=1.05g=9.8Ift18<=0ThenMsgBox"请正确输入明渠段底宽！",vbExclamation,"警告":ExitSubq=t4/t18hk=(a*q^2/g)^(1/3)TextBox24.Text=Str(hk)'计算0-0断面参数及正常水深h0vk=q/hkEk=hk+a*vk^2/2/gwk=t18*hkxk=t18+2*hkrk=wk/xkck=1/t5*rk^(1/6)j0=vk^2/ck^2/rkDimz0AsSingleF