Question

VB程序问题Private Sub Command1_Click()

Private Sub Command1_Click()
Dim a As Single, b As Single, s As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
If b < 51 Then
s = 2.4 * a + 0.53 * b
ElseIf b >= 51 And b <= 200 Then
s = 2.4 * a + 0.56 * b
End If
Label4.Caption = Str() + "元" '①
End Sub
上述①处有错误，求大神帮忙

Answer 1

Label4.Caption = Str() + "元" 改成Label4.Caption = Str(s) + "元"

或者Label4.Caption = s & "元"