当前位置: 高中信息技术 / 综合题
  • 1. (2017·杭州模拟) 用VB软件编写判断闰年的年份。界面如图1所示,文本框Text1输入年份,单击“判断”按钮Command1,在文本框Text2中输出判断结果(闰年的判断条件是:能被 4 整除但是不能被100整除;或者能被四百整除)。

    1. (1) 应用程序界面设计时,Text1文本框内没有内容显示,这是由于将其属性名为的值设置为空,窗口显示“闰年判断”是将窗体属性名为的值设置成了“闰年判断”。
    2. (2) 请根据题意将下列程序补充完整。

      Private Sub Command1Click()

         Dim Year As Integer

                ①   

         If (Year Mod 4 = 0) And (Year Mod 100 <> 0) Or (Year Mod 400 = 0) Then

            Text2.Text = "是闰年"

         Else

            Text2.Text = "不是闰年"

         End If

      End Sub

      为实现上述功能, 程序①加框处应填写为 

微信扫码预览、分享更方便