Private Sub Command1_Click()Dim nn As Integernn = InputBox("请输入数据")If nn >= 80 And nn <= 90 Then Print "优秀" End IfEnd Sub
