Word VBA编制矩形溢洪道水力计算程序.docVIP

Word VBA编制矩形溢洪道水力计算程序中图分类号：K826.16 文献标识码：A 文章编号： 1 概述 1.1 溢洪道水力计算 溢洪道水力计算是水库工程设计中的重要内容之一，分为上游明渠段和下游陡坡段。上游明渠段按明渠均匀流计算正常水深，下游陡坡段随着泄洪槽底比降及底宽的变化，通常按断面能量守恒来试算水深，试算工作量较大。本文通过Word程序内置宏语言VBA编制的矩形溢洪道水深计算程序可轻松解决试算工作量大的麻烦，为溢洪道设计方案选型提供了有力的计算工具，计算准确且大大提高工作效率。程序在安装Word2000以上版本的电脑上即可运行，利用Word程序内置宏语言VBA执行程序，在将工程设计数据及溢洪道几何尺寸数据输入后，点击“水力计算”命令按钮，可计算出溢洪道明渠段及各陡坡段（共设5段陡坡）水深、流速、掺气水深等数据，再点击“文本输出”命令按钮可输出溢洪道水深计算的文本及水面线计算表。 关键词：word VBA编制溢洪道 计算程序 1.2 VBA简介 VBA(Visual Basic For Application)是微软公司Office办公软件中内置的宏语言，利用该语言可扩展Word、Excel等程序功能，创建专业程序工具。Word VBA的打开是在Word程序中点击下拉菜单“工具”→“宏”→“Visual Basic编辑器”。若要执行已创建的宏，首先需将下拉菜单“工具”→“宏”→“安全性”设为中或低，确定后关闭Word程序然后启动，再点击下拉菜单“工具”→“宏”→“宏…”，选取所要运行的宏名，点击“运行”命令按钮，即可运行所创建的宏。 2 程序编制 2.1 创建程序界面 打开Word程序，点击下拉菜单“工具”→“宏”→“Visual Basic编辑器”，打开Microsoft Visual Basic文档，点击下拉菜单“插入”→“用户窗体”，出现UserForm窗体及工具箱，点击工具条上“属性窗口”按钮，调出属性窗口。利用工具箱及属性窗口，在UserForm窗体中创建27个标签控件、53个文字框控件、3个框架控件、3个命令按钮控件，创建的程序界面如图1所示。 图1程序界面 创建的主要控件属性见表1。 表1 主要控件属性表 2.2 程序代码编写 ①双击用户窗体，进入程序代码编辑器，在“（通用）”中用Private语句声明129个程序变量，数据类型为Single。 ②双击命令按钮“水力计算”控件，编写Click事件代码如下： Private Sub cmdcpu_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) If t4 = 30 Then MsgBox “h0计算数据溢出错误！”, vbExclamation, “警告” Label30.Caption = “正常水深h0=“ + Str(h0) + “m” ‘计算1-1断面水力参数 Dim z1 As Single For z1 =[标签:内容] 1