,vb做计算器、提取text中某一段字符

2025-02-25 13:42:25
推荐回答(1个)
回答1:

Private Sub Command1_Click()
   If InStr(Text1.Text, "+") <> 0 Then
      a = Left(Text1.Text, InStr(Text1.Text, "+") - 1)
      b = Mid(Text1.Text, InStr(Text1.Text, "+") + 1)
      Print Val(a) + Val(b)
   End If
End Sub