Codificación 11 Private Sub CommandButton1_Click() Dim a As Integer
{"Image DocumentName": "Codificaci\u00f3n 11 Private Sub CommandButton1_Click() Dim a As Integer", "Image ImageDescription": "Dim b As Integer. Dim c As Integer. a = Val(TextBox1) b = Val(TextBox2) c = Val(TextBox3) If (a + b + c) / 3 = 6 Then. Label4 = aprob\u00f3 Else. Label4 = desaprob\u00f3 End If. End Sub.", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}