Ejercicio de Visual Basic IF THEN ELSE
Download as DOCX, PDF1 like2,466 views
This document contains the code for a Visual Basic program that calculates the average of four test scores entered into text boxes, displays the average in a fifth text box, and the result (pass/fail) in a sixth text box. It also contains code for buttons to calculate the average, clear all text boxes, and end the program.
1 of 2
Downloaded 17 times
Ejercicio de Visual Basic IF THEN ELSE
- 1. Bachiller: Gutiérrez Ricardo Escuela: Electricidad 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