看看哪里错了vb的哦!!!!

最上面加声明：
Private season As String

你没有定义season,这时vb默认为是数据量
Private season As String
Private Sub Command1_Click()
Number = Val(Text1.Text)

Select Case season

Case "春", "秋"
p = 0.92
Case "夏"
p = 1
Case "冬"
p = 0.8
Case Else
MsgBox "输入的季节有错,程序退出!"
Exit Sub
End Select
Sum = 2500 * p * Number
Text2.Text = Str(Sum)

End Sub

Private Sub Option1_Click()
season = "春"

End Sub

Private Sub Option2_Click()
season = "夏"
End Sub

Private Sub Option3_Click()
season = "秋"
End Sub

Private Sub Option4_Click()
season = " 冬"
End Sub