二级医院人员配置要求:(0.8a+0.3b)/(0.2a-0.7b)各项系数是?

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 16:33:58
化简后能求出系数就可以了

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