Dim x(1 To 10, 1 To 20) As IntegerThere are 200 elements.
Dim x(1 To 10, 1 To 20) As IntegerWrite Visual Basic statements to set each element in the array to 100.
Dim i As Integer, j As Integer For i=1 to 10 For j=1 to 20 x(i,j) = 100 Next j Next i
Universality: Any problem solvable by some computer can be solvable by any computer
Private Sub Form_Click() Call octopus(3,10) End Sub Private Sub octopus(a As Integer, b As Integer) Call jellyfish(a) Call jellyfish(b) End Sub Private Sub jellyfish(k As Integer) Print k+k End SubThe output is:
6 20
Call cube(2,x)x will be set to 8. If you evaluate cube with a different argument:
Call cube(5,x)then x will be set to 125. Include the proper header for the procedure.
Here's the procedure:
Private Sub cube(a As Integer, c As Integer) c = a*a*a End Sub