Dim stuname as string
Dim Maths As Integer ,Eng ASinteger , s Integer
Private Sub command1_Click
Stuname=InputBox
Maths= InputBox
Eng= InputBox
Compu = InputBox
Label1.Caption=StuName
Label1.Text = Maths
Label2. Text =,Eng
Label3.Text = Compu
Label4. Text = Maths +Eng+ Compu
Label5.Text = (Maths +Eng+ Compu)/3
End Sub