"Public u, v, c As Integer
Public a, b As String
Private Sub Command1_Click()
MsgBox "This is a programme to identify the shape and area of a square or rectangle"
a = InputBox("Please enter the length of the shape")
u = Val(a)
b…"
"Shall we continue the classes? :3
The solution to sum two 100-digit numbers. :)
Dim num1(20), num2(20), num3(20)
a = Text1.Text
b = Text2.Text
For i = 1 To 20
num1(i) = Mid$(a, i, 5)
num2(i) = Mid$(b, i, 5)
Next i
For i = 1 To 20
num3(i) =…"