class1.cls

来自「自测考试系统」· CLS 代码 · 共 52 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

'判断题数据访问属性过程
Public Property Get judge() As Variant
judge = ijudge
End Property

Public Property Let judge(inew As Variant)
ijudge = inew
End Property
'单选题数据访问属性过程
Public Property Get selone() As Variant
selone = iselone
End Property
Public Property Let selone(inew As Variant)
iselone = inew
End Property
'多选题数据访问属性过程
Public Property Get selmany() As Variant
selmany = iselmany
End Property

Public Property Let selmany(inew As Variant)
iselmany = inew
End Property
'填空题数据访问属性过程
Public Property Get fill() As Variant
fill = ifill
End Property
Public Property Let fill(inew As Variant)
ifill = inew
End Property
'问答题数据访问属性过程
Public Property Get answer() As Variant
answer = ianswer
End Property
Public Property Let answer(inew As Variant)
ianswer = inew
End Property