一、选择题：
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
