cx.txt

某大学开发的一个用于对微波传输线状态进行模拟的软件

VERSION 5.00
槽线"
Private Sub cmdOK_Click()
Dim w, h, er, lo, ZO, ls As Double
w = Text1.Text
h = Text2.Text
lo = Text3.Text
er = Text4.Text
If w <= 0 Or h <= 0 Or er <= 0 Or (w / h) > 1 Then
  MsgBox "输入参数无效！请重新输入！"
Else
  If (w / h) <= 0.2 Then
    ZO = 72.62 - 15.283 * Log(er) + 50 * ((w / h - 0.02) * (w / h - 0.1) / (w / h)) + Log(100 * w / h) * (19.23 - 3.693 * Log(er)) - _
         (0.139 * Log(er) - 0.11 + w * (0.465 * Log(er) + 1.44) / h) * (11.4 - 2.636 * Log(er) - 100 * h / lo) ^ 2
    ls = (0.923 - 0.195 * Log(er) + 0.2 * w / h - (0.126 * w / h + 0.02) * Log(100 * h / lo)) * lo
 Else
    ZO = 113.19 - 23.257 * Log(er) + 1.25 * w * (114.59 - 22.531 * Log(er)) / h + 20 * (w / h - 0.2) * (1 - w / h) - _
       (0.15 + 0.1 * Log(er) + w * (-0.79 + 0.889 * Log(er)) / h) * (10.25 - 2.171 * Log(er) + w * (2.1 - 0.617 * Log(er)) / h - 100 * h / lo) ^ 2
    ls = 0.987 - 0.21 * Log(er) + w * (0.111 - 0.0022 * er) / h - (0.053 + 0.041 * w / h - 0.0014 * er) * Log(100 * h / lo)
 End If
 Text5.Text = ZO
 Text6.Text = ls
 End If
End Sub