'返回混凝土各种系数(XS1 系数类型， XS2 混凝土强度)
'根据规划混凝土强度等级从C15到C80。
Function HNTXS(XS1 As String, XS2 As Integer) As Double
  Dim Arr1 As Variant 'Fck 混凝土轴心抗压强度标准值 单位N/mm^2(扩大10)  混凝土结构设计规范 GB50010-2002 表4.1.3
      Arr1 = Array(100, 134, 167, 201, 234, 268, 296, 324, 355, 385, 415, 445, 474, 502)
  Dim Arr2 As Variant 'Ftk 混凝土轴心抗拉强度标准值 单位N/mm^2(扩大100) 混凝土结构设计规范 GB50010-2002 表4.1.3
      Arr2 = Array(127, 154, 178, 201, 220, 239, 251, 264, 274, 285, 293, 299, 305, 311)
  Dim Arr3 As Variant 'Fc  混凝土轴心抗压强度设计值 单位N/mm^2(扩大10)  混凝土结构设计规范 GB50010-2002 表4.1.4
      Arr3 = Array(72, 96, 119, 143, 167, 191, 211, 231, 253, 275, 297, 318, 338, 359)
  Dim Arr4 As Variant 'Ft  混凝土轴心抗拉强度设计值 单位N/mm^2(扩大100) 混凝土结构设计规范 GB50010-2002 表4.1.4
      Arr4 = Array(91, 110, 127, 143, 157, 171, 180, 189, 196, 204, 209, 214, 218, 222)
  Dim Arr5 As Variant 'Ec 混凝土弹性模量 单位10^4*N/mm^2(扩大100)  混凝土结构设计规范 GB50010-2002 表4.1.5
      Arr5 = Array(220, 255, 280, 300, 315, 325, 335, 345, 355, 360, 365, 370, 375, 380)
  Dim Arr6 As Variant 'Gc 混凝土剪变模量 单位10^4*N/mm^2(扩大100)  混凝土结构设计规范 GB50010-2002 4.1.8条规定剪变模量为剪切模量的0.4倍
      Arr6 = Array(88, 102, 112, 120, 126, 130, 134, 138, 142, 144, 146, 148, 150, 152)
  Dim Arr7 As Variant 'HPB235EB (ξb) 钢筋混凝土构件相对受压区高度(扩大1000) 混凝土结构设计规范 GB50010-2002 7.1.4&建筑结构工程师手册表3.4.1
      Arr7 = Array(614, 614, 614, 614, 614, 614, 614, 614, 604, 594, 584, 575, 565, 555)
  Dim Arr8 As Variant 'HRB335EB  钢筋混凝土构件相对受压区高度(扩大1000)
      Arr8 = Array(550, 550, 550, 550, 550, 550, 550, 550, 540, 531, 522, 512, 502, 493)
  Dim Arr9 As Variant 'HRB400EB  钢筋混凝土构件相对受压区高度(扩大1000)
      Arr9 = Array(518, 518, 518, 518, 518, 518, 518, 518, 508, 499, 490, 481, 472, 463)
  Dim Arr10 As Variant 'A1 (α1) 受压区混凝土矩形应力图的应力和混凝土轴心抗压强度设计值的比值(扩大100) 混凝土结构设计规范 GB50010-2002 7.1.3
      Arr10 = Array(100, 100, 100, 100, 100, 100, 100, 100, 99, 98, 97, 96, 95, 94)
  Dim Arr11 As Variant 'B1 (β1) 随混凝土强度提高而降低的系数(扩大100) 混凝土结构设计规范 GB50010-2002 7.1.3
      Arr11 = Array(80, 80, 80, 80, 80, 80, 80, 80, 79, 78, 77, 76, 75, 74)
  Dim Arr12 As Variant 'ECU (ξcu)  混凝土极限压应变(扩大100000) 混凝土结构设计规范 GB50010-2002 7.1.2&建筑结构工程师手册表6.3.3-1
      Arr12 = Array(330, 330, 330, 330, 330, 330, 330, 330, 325, 320, 315, 310, 305, 300)
  Dim Arr13 As Variant 'Ecf  混凝土疲劳变形模量单位10^4*N/mm^2(扩大100)  混凝土结构设计规范 GB50010-2002 表4.1.7(规范没有C15,这里假设为100)
      Arr13 = Array(100, 110, 120, 130, 140, 150, 155, 160, 165, 170, 175, 180, 185, 190)
  Dim Arr14 As Variant 'Bc (βc)  斜截面混凝土强度影响系数(扩大1000)  混凝土结构设计规范 GB50010-2002 7.5.1
      Arr14 = Array(1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 966, 933, 900, 866, 833, 800)
  Dim i As Integer
  i = Int((XS2 - 10) / 5)
  If i < 15 And i > 0 Then
    XS1 = UCase(XS1) '将字符串转换成大写
    Select Case XS1
        Case "FCK"
            HNTXS = Arr1(i - 1) / 10
        Case "FTK"
            HNTXS = Arr2(i - 1) / 100
        Case "FC"
            HNTXS = Arr3(i - 1) / 10
        Case "FT"
            HNTXS = Arr4(i - 1) / 100
        Case "EC"
            HNTXS = Arr5(i - 1) / 100
        Case "GC"
            HNTXS = Arr6(i - 1) / 100
        Case "HPB235EB"
            HNTXS = Arr7(i - 1) / 1000
        Case "HRB335EB"
            HNTXS = Arr8(i - 1) / 1000
        Case "HRB335EB"
            HNTXS = Arr9(i - 1) / 1000
        Case "A1"
            HNTXS = Arr10(i - 1) / 100
        Case "B1"
            HNTXS = Arr11(i - 1) / 100
        Case "ECU"
            HNTXS = Arr12(i - 1) / 100000
        Case "ECF"
            HNTXS = Arr13(i - 1) / 100
        Case "BC"
            HNTXS = Arr14(i - 1) / 1000
        End Select
  End If
End Function