module1.bas

简单的单跨梁挠度计算

Attribute VB_Name = "Module1"
Public Type dimension '定义存储尺寸用变量类型
  l As Double '长度
  h As Double '截面高
  b As Double '截面宽
End Type
Public Type load_p '定义存储集中载荷用变量
  p As Double '大小
  xp As Double '作用点距离
  ud As Boolean '方向
End Type
Public Type load_q '定义存储均布载用变量
  q As Double '大小
  ud As Boolean '方向
End Type
Public Type load_m '定义存储集中力矩用变量
  m As Double '大小
  xm As Double '作用点距离
  ud As Boolean '方向
End Type
Public Type support '定义存储支座类型用变量
  fs As Boolean '自由支持
  gs As Boolean '固定端
  tg As Boolean '弹性固定端
  ts As Boolean '弹性支座
  z As Boolean '自由端
End Type
Public dimes As dimension '存储尺寸信息用变量
Public lp(100) As load_p  '存储集中力用变量
Public lq As load_q '存储均布载用变量
Public lm(100) As load_m '存储集中力矩用变量
Public ls As support '存储左端支座信息用变量
Public rs As support '存储右端支座信息用变量
Public i_p As Integer '存储集中力数
Public t_p As Integer '存储当前集中力数
Public i_m As Integer '存储集中力矩数
Public t_m As Integer '存储当前集中力矩数
Public E As Double '存储杨氏模量
Public i As Integer '检测text中数据类型用循环变量
Public strtemp As String '检测时暂存text中的字符
Public strout As String '存储最终字符
Public dotnum As Integer '记录小数点数用变量