Guevara rene if then., else
0 likes168 views
This document contains the code for a Visual Basic application with text boxes and buttons. Button1 calculates the average of the values in text boxes 1-4, displays it in text box 5, and determines if it is above or below 10 to display the result in text box 6. Button2 clears all text boxes. Button3 closes the application.
1 of 2
Download to read offline
More Related Content
What's hot (17)
Ad
Viewers also liked (17)
Ad
Similar to Guevara rene if then., else (20)
More from gabo2200 (10)
Guevara rene if then., else
- 1. Public Class Form1 Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox5.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)) / 4 If Val(TextBox5.Text) >= 10 Then
- 2. TextBox6.Text = "Aprobado" Else TextBox6.Text = "Desaprobado" End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End End Sub End Class