Public q(4) As String
Public a(9) As String
Public n As Integer
Public nu As Integer
Public tu As Integer
Public av As Integer
 Public Sub qu()
 q(0) = "Q 1. What is Mouse_____"
 q(1) = "Q 2. What is Keyboard_____"
 q(2) = "Q 3. What is Ram_____"
 q(3) = "Q 4. What is Monter_____"
 q(4) = "Q 5. What is CPU_____"
 End Sub
Public Sub an()
a(0) = "An input Device"
a(1) = "An Mechanil Device"
a(2) = "An input Device"
a(3) = "An Typing Device"
a(4) = "Reandom Access Momery"
a(5) = "Raed Access Memory"
a(6) = "Tevelivision"
a(7) = "Out Put Device"
a(8) = "Center Processing Unit"
a(9) = "A Brain OF Computer"

End Sub

Private Sub Form_Load()
Call qu
Call an
 Label1.Caption = q(0)
Option1.Caption = a(0)
Option2.Caption = a(1)
Label1.Visible = True
Option1.Visible = True
Option2.Visible = True
End Sub

Private Sub Next_Click()
n = n + 1
nu = nu + 2
On Error Resume Next
Call qu
Call an
 Label1.Caption = q(n)
 Option1.Caption = a(nu)
 Option2.Caption = a(nu)
End Sub

Private Sub Pervious_Click()
n = n - 1
'nu = nu - 2
Call qu
Call an
 Label1.Caption = q(1)
 Option1.Caption = a(2)
 Option2.Caption = a(3)
End Sub