2. 计算机
  3. 给定年份，下列程序用来判断该年是否是闰年，请填空。 Sub YN(　) Dim X AS Integer x＝Input Box("请输入年号") If( x Mod 4=0【 】x Mod l000)【 】(x　Mod　400=0)The

给定年份，下列程序用来判断该年是否是闰年，请填空。 Sub YN(　) Dim X AS Integer x＝Input Box("请输入年号") If( x Mod 4=0【 】x Mod l000)【 】(x　Mod　400=0)The

admin2009-01-15  32
问题 给定年份，下列程序用来判断该年是否是闰年，请填空。
Sub YN(　)
  Dim X AS Integer
  x＝Input Box("请输入年号")
  If( x Mod 4=0【  】x Mod l00<　>0)【  】(x　Mod　400=0)Then
  Print"是闰年"
  Else
     Print"不是闰年，是普通年份"
  End If
End Sub
选项
答案And , Or
解析 此题主要考查了闰年的条件，并把条件用逻辑关系式表示出来。闰年的条件是能被四整除不能被100整除的是闰年，或者是能被400整除，所以由此可以写出逻辑关系式：(x Mod 4=0 And x Mod l00< > 0 ) Or (x Mod 400=0)。
转载请注明原文地址:https://kaotiyun.com/show/kp2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)