Flowchart for this code
Private Sub CommandButton3_Click()
TextBox9.Value = TextBox4.Value * 0.25 ‘Nota1
End Sub
Private Sub CommandButton4_Click()
TextBox10.Value = TextBox5.Value * 0.25 ‘Nota2
End Sub
Private Sub CommandButton5_Click()
TextBox11.Value = TextBox6.Value * 0.2 ‘Nota3
End Sub
Private Sub CommandButton6_Click()
TextBox12.Value = TextBox7.Value * 0.3 ‘Nota4
End Sub
Private Sub CommandButton7_Click()
Dim suma As Double
‘Sumatoria de notas
suma = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text)+ Val(TextBox7.Text)
TextBox8 = Str(suma)
TextBox13 = (TextBox4 * 0.25) + (TextBox5 * 0.25) + (TextBox6 *0.2) + (TextBox7 * 0.3)
End Sub
Expert Answer
An answer will be send to you shortly. . . . .