Question

设计一个VB程序，用户输入一个年份，单击“计算”按钮，则输出该年的总天数。程序如下

设计一个VB程序，用户输入一个年份，单击“计算”按钮，则输出该年的总天数。程序如下
Sub Command1_Click()
Dim year As Integer
Dim days As Integer
year = Val(Text1.text) ‘———— （1）
days = 365 + Leap(y) ’———— （2）
Text2.Text = Str(days)
End Sub
Function Leap(y As Integer) As Integer ‘————（3）
If y Mod 100 Then
If y Mod 400=0 Then Leap=1 Else Leap=0 ’————（4）
Else
If y Mod 4=0 Then Leap=1 Else Leap=0
End If
End Function

该程序在哪个位置有错误？
A、(1) B、(2) C、(3) D、 (4)

Answer 1

A
year=cint(text1.text)