Visual Basic Assignment

PROGRAM 1 : SUM AND AVERAGE OF THREE NUMBERS PROGRAM

Dim a , b , c As Integer

Private Sub Command1_Click

If (num1 .Text " Or num2 .Text " Or num3 .Text ) Then

MsgBox "Enter the number (s ) in text box

Else

a Val (num1 .Text

b Val (num2 .Text

c Val (num3 .Text

sum .Text (a b c

avg .Text Val (sum .Text / 3

End If

End Sub

Private Sub Command2_Click

num1 .Text

num2 .Text

num3 .Text

sum .Text

avg .Text

End Sub

Private

Sub Command3_Click

End

End Sub

Form for program1

PROGRAM 2 : STORE A AND B Dim q (10 ) As Integer

Dim a (10 ) As Integer

Dim b (10 ) As Integer

Dim Private Sub Command1_Click

q (0 Val (Text1 .Text

q (1 Val (Text2 .Text

q (2 Val (Text3 .Text

q (3 Val (Text4 .Text

q (4 Val (Text5 .Text

q (5 Val (Text6 .Text

q (6 Val (Text7 .Text

q (7 Val (Text8 .Text

q (8 Val (Text9 .Text

q (9 Val (Text10 .Text

a (0 Val (Text11 .Text

a (1 Val (Text12 .Text

a (2 Val (Text13 .Text

a (3 Val (Text14 .Text

a (4 Val (Text15 .Text

a (5 Val (Text16 .Text

a (6 Val (Text17 .Text

a (7 Val (Text18 .Text

a (8 Val (Text19 .Text

a (9 Val (Text20 .Text

b (0 Val (Text21 .Text

b (1 Val (Text22 .Text

b (2 Val (Text23 .Text

b (3 Val (Text24 .Text

b (4 Val (Text25 .Text

b (5...