有下面一个程序段,从文本框中输入数据,如果该数据满足条件“除以4余1,除以5余2”,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。 Private Sub Command1_Click() x=Va1(Text1.Text) If (14) Then Print X Else Text1.Text=“” (15) End If End Sub
主观题
有下面一个程序段,从文本框中输入数据,如果该数据满足条件“除以4余1,除以5余2”,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。 Private Sub Command1_Click() x=Va1(Text1.Text) If (14) Then Print X Else Text1.Text=“” (15) End If End Sub