深圳到向塘:(0.8a+0.3b)/(0.2a-0.7b)各项系数是?

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/04 22:08:57
化简后能求出系数就可以了

VB语言:
Private Function Change(Text As TextBox, label As label) As String
Dim Temp As Integer
If IsNumeric(Text.Text) Then
Temp = Text.Text
label.Caption = Chr(Temp + 64)
Else
MsgBox "请输入数字"
End If
End Function

Private Sub Command1_Click()
Change Text1, Label1
End Sub