中国水利水电第八工程局有限公司基础设施公司 湖南长沙 410004
摘要：中国高速铁路的快速发展已成为国家的一张靓丽名片，而箱梁在高铁桥梁中广为使用，占有举足轻重的地位，铁路箱梁的工程质量将很大程度上决定了高铁的实体质量。铁路桥梁静载弯曲试验是检验箱梁工程质量的重要方法，试验前必须准确计算出加载值。常用的加载计算方法是采用Excel电子表格计算，可以直接出计算结果，但不能自动生成Word版计算单。本文探讨一种采用Visual Basic 6.0中文企业版编程程序自动生成Word版箱梁静载弯曲试验加载计算单的方法并给出结论。
关键词：箱梁；静载弯曲试验；计算单；自动生成；Visual Basic 6.0
1 加载计算方法
本文参考《预应力混凝土铁路桥简支梁静载弯曲试验方法及评定标准》（TB/T 2092-2003）简述静载弯曲试验加载计算方法。
1.1 加载方法
试验梁的加载分两个循环进行，以加载系数表示加载等级，加载系数是加载试验中梁体跨中承受的弯矩与设计弯矩之比。试验准备工作结束后梁体承受的荷载状态为初始状态；基数级下梁体跨中承受的弯矩指梁体质量和二期恒载质量对跨中弯矩之和。高速铁路箱梁为全预应力梁，以下是全预应力梁各循环的加载等级：
第一加载循环：
初始状态→基数级（3min）→0.60（3min）→0.80（3min）→静活载级（3min）→1.00（20min）→静活载级（1min）→0.60（1min）→基数级（1min）→初始状态（10min）
第二加载循环：
初始状态→基数级（3min）→0.60（3min）→0.80（3min）→静活载级（3min）→1.00（5min）→1.05（5min）→1.10（5min）→1.15（5min）→1.20（20min）→1.10（1min）→静活载级（1min）→0.60（1min）→基数级（1min）→初始状态
注：以上括号内为加载时间，若基数级大于0.60级，则取消0.60级。
1.2 加载图示
等效集中荷载采用五点加载，跨中设一集中荷载，其余在其左右对称布置，各荷载纵向间距均为4m，如图1所示：
2、定义变量
根据需要共定义39个变量，因为计算过程及生成计算单过程均在Command1“生成计算单”按钮单击事件过程进行，所以以下代码均在Private Sub Command1_Click（）事件过程编写。
定义变量代码如下：
Dim R28 As Single，d As Integer，L As Single，Ay As Single，A0 As Single，W0 As Single，e0 As Single，μ As Single，Md As Single
Dim Mh As Single，Mz As Single，σL6 As Single，σL5 As Single，H0 As Single，I As Single，Vz As Single，Vj As Single，lh As String，th As String，dw As String
Dim G As Single，N As Integer，a As Single，α As Single，η1 As Single，η2 As Single，dσs As Single，dMs As Single，Ms As Single，t As String
Dim MKa As Single，Kb As Single，MKb As Single，K As Single，M（13）As Single，P（13）As Single，PKa As Single，PKb As Single，j As Integer
3、判断输入是否为数字
程序在计算之前需要先判断参与计算的文本框内输入内容是否为数字，若输入非数字则会默认为“0”，导致计算错误。为了避免此问题发生，程序采用IsNumeric函数进行判断，当参与计算的文本框内输入内容非数字时，程序会弹出对话框，提醒用户输入数字，直到全部输入正确后才开始计算并生成计算书。
3）插入表格示例
示例代码如下：
MyWord.Selection.EndKey Unit：=wdStory '将光标移到文档末尾
Call MyWord.ActiveDocument.Tables.Add（MyWord.Application.Selection.Range，7，3，1，0）'插入一个7行3列的表格
Selection.Tables（1）.Columns.Width = 150 '定义表格的列宽
MyWord.ActiveDocument.Tables（1）.Range.Paragraphs.Alignment = wdAlignParagraphCenter '居中
MyWord.ActiveDocument.Tables（1）.Range.Font.Name = "仿宋"
MyWord.ActiveDocument.Tables（1）.Range.Font.Size = 12
MyWord.ActiveDocument.Tables（1）.Cell（1，1）.Range.InsertAfter "1"
MyWord.ActiveDocument.Tables（1）.Cell（1，2）.Range.InsertAfter "试验梁号"
MyWord.ActiveDocument.Tables（1）.Cell（1，3）.Range.InsertAfter lh
4）保存Word文档
采用ActiveDocument.SaveAs函数将Word文档保存至电脑桌面，代码如下：
MyWord.ActiveDocument.SaveAs "C：\Users\apple\Desktop\桥梁静载试验计算单.doc"
2.4 运行结果
运行结果如图4 所示：
3 结论
本文介绍了一种铁路箱梁静载弯曲试验加载计算单自动生成程序的制作方法，此程序是采用Visual Basic 6.0中文企业版编程计算并自动生成Word版计算单的计算程序，程序界面简洁、操作简单、计算准确、方便快捷。此方法也可以在类似工程计算中推广，采用计算机编程计算替代常规计算，有效节约计算及编制计算单的时间。
参考文献
[1]北京科海培训中心.新编Visual Basic 6.0教程.北京：北京科海电子出版社，2002.
[2]徐谡 徐立 吴明旺.Visual Basic应用与开发案例教程.北京：清华大学出版社，2005.
[3]中华人民共和国铁道部.TB/T 2092-2003预应力混凝土铁路桥简支梁静载弯曲试验方法及评定标准.北京：中国标准出版社，2004.
论文作者:李俊锋
论文发表刊物:《建筑学研究前沿》2017年第34期
论文发表时间:2018/5/16
标签：加载论文; 弯曲论文; 基数论文; 弯矩论文; 程序论文; 自动生成论文; 荷载论文; 《建筑学研究前沿》2017年第34期论文;