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

[填空题] 以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。

Private Sub Command1_Click()

x＝Val(Text1.Text)

If 【9】 Then

Print x

Else

Text1.SetFoeus

Text1.SetStart＝0

End If

End Sub