一、選擇題：
1—3: DBD
二、填空題
1．Load 2．窗體模塊 標準模塊 類模塊 
3．DoEvents
三、編程題
1．(略)
2．Function F(ByVal x&,ByVal Y&) As Integer
Dim t&,r&
If x<Y Then t="x:x=y:y=t R= x Mod y
Do While R<>0
X=y
Y=r
R= x Mod y
Loop
F=y
End Function

Private Sub Command1_Click()
Text3 = Val(Text1) / F(Val(Text1), Val(Text2))
Text4 = Val(Text2) / F(Val(Text1), Val(Text2))
End Sub