输入职业 显示月薪 用VB做 代码留下~~~

Private Sub Command1_Click()
Dim S As Long, nStr As String, ZY As String

ZY = InputBox("请输入职业：" & vbCrLf & "输入为空表示选中“取消”。", "输入职业", "总经理")
If ZY = "" Then Exit Sub

nStr = "总经理：20000 副经理：10000 其他：8000"
S = InStr(nStr, ZY)
If S > 0 Then
MsgBox ZY & "月薪：" & Val(Mid(nStr, S + Len(ZY) + 1)) & " 元", vbInformation, "月薪"
Else
MsgBox "输入的职业不存在：" & vbCrLf & ZY, vbInformation, "月薪"
End If
End Sub

Private Sub Command1_Click()
Select Case Text1.Text
Case "总经理"
Text2.Text = "20000"
Case "副经理"
Text2.Text = "10000"
Case Else
Text2.Text = "8000"
End Select
End Sub

创建一个文本框，一个按钮，在文本框重输入职位，点击按钮即可：

Option Explicit

Private Sub Command1_Click()
If Text1 = "总经理" Then