Dim a As Integer, b As Integer, c As Integer, char As Stringa = Val(Text1.Text)
b = Val(Text3.Text)
char = Text2.TextSelect Case char
Case "+"
c = a + b
Case "-"
c = a - b
Case "*"
c = a * b
Case "/"
c = a / b
End SelectLabel5.Caption = c
追问![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/43a7d933c895d143b7501f2670f082025aaf0794?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
追答你的理解力还真不错,vb6 到vb2008 呵呵