填空题

以下程序判断从文本框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

【参考答案】

x mod 3=2 And x mod 5=3 And x mod 7=4