酷爱粤语歌词谐音:(0.8a+0.3b)/(0.2a-0.7b)各项系数是?

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 02:29:48
化简后能求出系数就可以了

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