多个文本框清空的简便方法？？

Question

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""有没有简便一点的方法？？

Answer 1

Dim i%
For i = 1 To 10
    Me("Text" & i).Text = ""
Next

Answer 2

'第一种方法: 不建议使用
  For i = 1 To 10
    CallByName Me, "Text" & i, VbLet, ""
  Next'第二种方法,将10个文本框的名称(NAME)都改成一样(mText),再将INDEX属性分别改为 0,1,2...9for i=0 to 9
  mText(i).text=""
next

Answer 3

    '第一种方法 适用于文本框名字无规律且该界面上该类型控件基本都执行此操作
    Dim myCtl As Control
    For Each myCtl In Me.Controls
        If TypeOf myCtl Is TextBox Then myCtl.Text = ""
    Next
    '第二种方法 命名规范或者是控件数组
    Dim i As Long
    For i = 1 To 10
        Me("Text" & CStr(i)).Text = ""
    Next i