Private Sub Command2_Click()
         D02.hide
         Gfct1.show

        Gfct1.Check1.Value = 0
        Gfct1.Check2.Value = 0
        Gfct1.Check3.Value = 0
        Gfct1.Check4.Value = 0
        Gfct1.Check5.Value = 0
        Gfct1.Check6.Value = 0
        Gfct1.Check7.Value = 0
        Gfct1.Check8.Value = 0
        Gfct1.Check9.Value = 0
        
        Gfct2.Check1.Value = 0
        Gfct2.Check2.Value = 0
        Gfct2.Check3.Value = 0
        Gfct2.Check4.Value = 0
        Gfct2.Check5.Value = 0
        Gfct2.Check6.Value = 0
        Gfct2.Check7.Value = 0
        Gfct2.Check8.Value = 0
        Gfct2.Check9.Value = 0
        
        GFct3.Check1.Value = 0
        GFct3.Check2.Value = 0
        GFct3.Check3.Value = 0
        GFct3.Check4.Value = 0
        GFct3.Check5.Value = 0
        GFct3.Check6.Value = 0
        GFct3.Check7.Value = 0
        GFct3.Check8.Value = 0
        GFct3.Check9.Value = 0
        
        Gfct4.Check1.Value = 0
        Gfct4.Check2.Value = 0
        Gfct4.Check3.Value = 0
        Gfct4.Check4.Value = 0
        Gfct4.Check5.Value = 0
        Gfct4.Check6.Value = 0
        Gfct4.Check7.Value = 0
        Gfct4.Check8.Value = 0
        Gfct4.Check9.Value = 0
        
        gfct5.Check1.Value = 0
        gfct5.Check2.Value = 0
        gfct5.Check3.Value = 0
        gfct5.Check4.Value = 0
        gfct5.Check5.Value = 0
        gfct5.Check6.Value = 0
        gfct5.Check7.Value = 0
        gfct5.Check8.Value = 0
        gfct5.Check9.Value = 0
        gfct5.Check10.Value = 0
        gfct5.Check11.Value = 0
        gfct5.Check12.Value = 0
        gfct5.Check13.Value = 0
        gfct5.Check14.Value = 0
        gfct5.Check15.Value = 0
        gfct5.Check16.Value = 0
        gfct5.Check17.Value = 0
        gfct5.Check18.Value = 0
        
        gfct6.Check1.Value = 0
        gfct6.Check2.Value = 0
        gfct6.Check3.Value = 0
        gfct6.Check4.Value = 0
        gfct6.Check5.Value = 0
        gfct6.Check6.Value = 0
        gfct6.Check7.Value = 0
        gfct6.Check8.Value = 0
        gfct6.Check9.Value = 0
        gfct6.Check10.Value = 0
        gfct6.Check11.Value = 0
        gfct6.Check12.Value = 0
        
        gfct7.Check1.Value = 0
        gfct7.Check2.Value = 0
        gfct7.Check3.Value = 0
        gfct7.Check4.Value = 0
        gfct7.Check5.Value = 0
        gfct7.Check6.Value = 0
        gfct7.Check7.Value = 0
        gfct7.Check8.Value = 0
        gfct7.Check9.Value = 0
        gfct7.Check10.Value = 0

end sub
以上附件是要将下面几页的键值清空
求教师傅有没有什么简单的方法，谢谢！

有的哦，contols对象，一个小循环即可解决。

师傅们！
     如果我要将它们更改成控件组（共五页五个控件组），不知应该如何编写代码。
     如果这样操作我还需要修改，前面的编码，控件组合文本组的对应关系，这样也要，麻烦师傅们帮助代码如何编写啦！

先谢谢师傅们了！
（注释：我编辑的是一个考试系统）

wmf2014您好！
     contols对象如何循环，谢谢！

随手写的，可能有点小错误，你自己研究下。

 Dim fs As Control

 For Each fs In Gfct1
  If LCase(TypeName(fs)) = "Checkbox" Then
     fs.Value = 0
  End if 

 Next

把5楼的代码封装成一个函数，传递 参数，参数类型是窗体 。
每次调用时，把 Gfct1、Gfct2、Gfct3  等 传送进去。

sub ClearCheckbox(Fr as Form)    '如果xy
Dim fs As Control
 For Each fs In Ff
  If LCase(TypeName(fs)) = "Checkbox" Then
     fs.Value = 0
  End if
 Next
end sub

调用时：
call ClearCheckbox(Gfct1)