SaveText.Ru

Без имени
  1. Private Sub CommandButton1_Click()
  2. n = TextBox1.Text
  3. If n = 0 Then
  4. TextBox2.Text = "1"
  5. n = TextBox1.Text
  6. End If
  7. If n = 1 Then
  8. TextBox2.Text = "2"
  9. End If
  10. n = TextBox1.Text
  11. If n = 2 Then
  12. TextBox2.Text = "3"
  13. End If
  14. n = TextBox1.Text
  15. If n > 2 Then
  16. TextBox2.Text = "4"
  17. End If
  18. End Sub
  19.  

Share with your friends:

Print