[填空题] 有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2则输出,否则,将焦点定位在文本框中,并清除文本框的内容。  Private Sub Command1_Cli

22 查阅

[填空题] 有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2则输出,否则,将焦点定位在文本框中,并清除文本框的内容。  Private Sub Command1_Click( )   x=Val(Text1.Text)   If【 】 Then     Print x   Else     Text1.Text=""     【 】    End If  End Sub

参考答案:

x Mod 4 = 1 And x Mod 5=2

(1)程序调用了Val()函数从文本框中的得到数据。本题中先通过Val()函数得到一个整数,进行条件判断,如果满足条件x Mod 4=1 And x Mod 5=2则输出x,否则,将清空文本框,焦点落在文本框中。

计算机考试