( 10 分)填空完成 VB 程序,其功能是求某一天是这一年的第几天,界面设计和程序运行效果如图 5 所示。 打开某路径下的工程文件 test2-2.vbp ,完成下列操作: ( 1 ) 10 分)输入某一天(年、月、日),单击 “开始”按钮,计算这一天在本年中的天数(第几天)完成注释( 1 )( 2 )( 3 )( 4 )( 5 )填空实施此功能。(每空 2 分,共 10 分) ( 2 ) ( 2分)保存窗体文件和工程文件,生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。 Option Base 1 Private Sub Command1_Click() Dim a, T%, y% a = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) y = Val( ) '(1) If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then a(2) = ' (2) :判断是否闰年 End If n = Val( ) '(3):取组合框当前月份 For i = 1 To n - 1 T = T + '(4):每月的天数 Next i Text2.Text = T + Val( ) '(5):取列表框当日 End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() For i = 1 To 12 Combo1.AddItem i Next i For i = 1 To 31 List1.AddItem i Next i End Sub