怎样让vb输出的数值带符号，即显示正负号？

Private Sub Command1_Click()
Dim a As Double
Dim b As String
a = InputBox("请输入你的数字")
If Val(a) > 0 Then
b = Chr(43) & a
Else
b = a
End If
Print b
End Sub

只要你的数据是负数 就自动带负号 否则添加"+"号

Private Sub Form_Load()
i = InputBox("")
If i > 0 Then
Caption = "+" & i
Else:
Caption = i
End If
End Sub

判断一下，然后用字符串输出