题库 高中信息

题干

Function LEAP( Y  As Integer) As Integer
If  Y  Mod 400 =" 0" Or Y Mod 4 =" 0" And Y Mod 100 <> 0 Then LEAP =" 1" Else LEAP =" 0"
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Y1  As Integer
If  KeyAscii =" 13" Then
Y1 = Val(Text1.Text) ' 在text1中输入年份y1
Text2.Text =" Str(28" + LEAP(Y1)) ' 在text2中输出该年的二月份天数
End If
End Sub
以上程序运行后,在Text1中输入 2001,在 Text2中显示的是(  )
A.28B.29C.30D.31
上一题 下一题 0.99难度 选择题 更新时间:2015-11-19 04:10:38

答案(点此获取答案解析)