?? 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 '記錄小數點數用變量
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -