以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。 Private Sub Command1_Click() x＝Val(

admin2010-03-30 102

问题以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。
Private Sub Command1_Click()
      x＝Val(Text1.Text)
      If【  】Then
            Print x
      Else
         Text1.SetFoeus
         Text1.SetStart＝0
      End If
End Sub