Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Val(TextBox1.Text) TextBox2.Text = Val(TextBox2.Text) If TextBox1.Text -5 Or TextBox1.Text 7 Then MsgBox(请输入一个 -5～7 的数) TextBox1.Focus() Exit Sub End If If TextBox2.Text -5 Or TextBox1.Text 7 Then MsgBox(请输入一个 -5～7 的数) TextBox2.Focus() Exit Sub End If If TextBox1.Text TextBox2.Text Then MsgBox(TextBox1.Text & & TextBox2.Text) ElseIf TextBox1.Text TextBox2.Text Then MsgBox(TextBox1.Text & & TextBox2.Text) Else MsgBox(TextBox1.Text & = & TextBox2.Text) End If End Sub
