![[填空题] 下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，果能则输出该数及平方值。请填空。 Private Sub Command1_Click() Di,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%B8%8B%E9%9D%A2%E7%A8%8B%E5%BA%8F%E7%9A%84%E4%BD%9C%E7%94%A8%E6%98%AF%E7%94%A8InputBox%E5%87%BD%E6%95%B0%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0%EF%BC%8C%E7%84%B6%E5%90%8E%E5%88%A4%E6%96%AD%E8%83%BD%E5%90%A6%E5%90%8C%E6%97%B6%E8%A2%AB2%EF%BC%8C5%E5%92%8C7%E6%95%B4%E9%99%A4%EF%BC%8C%E6%9E%9C%E8%83%BD%E5%88%99%E8%BE%93%E5%87%BA%E8%AF%A5%E6%95%B0%E5%8F%8A%E5%B9%B3%E6%96%B9%E5%80%BC%E3%80%82%E8%AF%B7%E5%A1%AB%E7%A9%BA%E3%80%82%E3%80%80%E3%80%80Private+Sub+Command1_Click%28%29%E3%80%80%E3%80%80%E3%80%80Di.png "[填空题] 下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，果能则输出该数及平方值。请填空。 Private Sub Command1_Click() Di,第1张")
[填空题] 下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，果能则输出该数及平方值。请填空。
Private Sub Command1_Click()
Dim numX As Integer
numX = Val (InputBox("请输入一个整数"))
If 【9】 Then
Form1．Print 【10】
End If
End Sub
正确答案：【9】numX Mod 2 = 0 And numX Mod 5=0 And numX Mod 7=0【10】numX，numX^2
参考解析：【命题目的】本题考核考生对条件语句的书写及输出语句的使用。【解题要点】显然If后跟条件，根据已知，条件是“能否同时被2，5和7整除”，所以【9】应填入：numX Mod2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0；如果满足条件就显示出来并显示其平方值，所以【10】应填入的是：numX，numX^2
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）