问题
填空题
下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2,5和7整除, 果能则输出该数及平方值。请填空。 Private Sub Command1_Click() Dim numX As Integer numX = Val (InputBox("请输入一个整数")) If【 】Then Form1.Print【 】 End If End Sub
答案
参考答案:numX Mod 2 = 0 And numX Mod 5=0 And numX Mod 7=0
解析:显然If后跟条件,根据已知,条件是“能否同时被2,5和7整除”,所以第一个空应填入:numX Mod2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0;如果满足条件 就显示出来并显示其平方值,所以第二个空应填入的是:numX,numX^2