在窗体上有4个文本框,名称分别为Text1、Text2、Text3、Text4,和1个名称为Command1的命令按钮,然后编写如下程序代码: Private Sub Command1_Click() Dim year%, month%, days

admin2020-06-30  25

问题 在窗体上有4个文本框,名称分别为Text1、Text2、Text3、Text4,和1个名称为Command1的命令按钮,然后编写如下程序代码:
Private Sub Command1_Click()
    Dim year%, month%, days%
    year = Val(Text1)
    month = Val(Text3)
    For k = 1 To month - 1
        Select Case k
            Case 1, 3, 5, 7, 8, 10:
            days = days + 1
            Case 4, 6, 9, 11:
            days = days + 30
            Case 2:
            days = days +______________
        End Select
    Next k
    Text4 = days
End Sub
Function LeapYear(x As Integer) As Integer
    If x Mod 400 = 0 Or x Mod 4 = 0 And x Mod 100 <> 0 Then
        LeapYear = 1
    Else
        LeapYear = 0
    End If
End Function
程序的功能是在Text1、Text2、Text3中分别输入年、月、日,然后单击命令按钮,则可在Text4中显示该天是当年的第几天,如图所示。程序不完整,在横线上应填写的是

选项 A、28
B、29
C、28 + LeapYear(year)
D、LeapYear(year)

答案C

解析 通过Val函数,将输入的三个字符串,转化成数字,分别赋值给year,month,days。 For循环用于累加从1第个月到第month-1个月的天数,Case根据月份k判断该月份的天数,空白处需要填写的是2月份的总天数。函数LeapYear,当为闰年时,返回值LeapYear为1,否则返回值为0,故28 + LeapYear(year)是2月份的总天数,当闰年时,2月份为29天,否则,为28天,故C项正确,其他选项错误。
转载请注明原文地址:https://kaotiyun.com/show/IIHp777K
0

随机试题
最新回复(0)