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

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

admin2020-06-30  33
问题 在窗体上有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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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