VBI 2.PNG

Private Sub Command1_Click()
Dim a, b, c As Integer
Dim d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = (a + b + c) / 3
Label4 = "Average of Three Number = " & d
End Sub

VBO 2.PNG

Advertisements