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