当前位置: 答题翼 > 问答 > 计算机类考试 > 正文
目录: 标题| 题干| 答案| 搜索| 相关
问题

给定年份,下列程序用来判断该年是否是闰年,请填空。 SubYN() DimxAsInteger x=InputBox(


给定年份,下列程序用来判断该年是否是闰年,请填空。

Sub YN()

Dim x As Integer

x=InputBox("请输入年号")

If (x Mod 4=0 【10】 x Mod 100 $amp; Print "是闰年"

Else

Print "不是闰年,是普通年份"

End If

End Sub

参考答案
您可能感兴趣的试题
  • 请判断下列说法是否符合给定资料的内容,对符合的选项,在括号内打“√”,对不符合的选项,在括

  • 请判断下列说法是否符合给定资料的内容,对符合的选项,在括号内打“√”;对不符合的选项,在

  • 请判断下列说法是否符合给定资料的内容,对符合的选项,在括号内打“√”;对不符合的选项,在括号内

  • 下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填Sub EnSure() Dim

  • 请在每条横线处填写一个语句 使程序的功能为:判断输入的年份是否为闰年(例如:1998年不是闰年 2

  • 给定程序中 函数fun的功能是:判断形参s所指字符串是否是”回文”(Palindrome) 若是 函数返回值为1;