Private Sub Command1_Click() If Text1.Text < 0 Then Print "负数" Else If Text1.Text = 0 Then Print "0" Else: Print "正数" End Sub
