情報基礎学特論I

Dim MyID As String

Public Property Let id(v_id As String)

  MyID = v_id

End Property 

Public Property Get id() As String

  id = MyID

End Property

'最初に呼び出す時のおまじない

Public Sub init()

    MyNum = 1

    showProblem (MyNum)

End Sub