计算机字符1和数字1,计算机在存储数字字符时，1个字符占1个字节（8位），现在有如下算法可以对数字字符的存储进行压缩：以每2个数字字符为一组，将其组成一个两位数当作十六进制数，再转换为对应的ASCII...

(2)

为实现上述功能，请在划线处填写合适的代码。

Private Sub________()

Dim nian As Integer, yue As Integer, ri As Integer

Dim ans As Integer, i As Integer

Dim a(1 To 12) As Integer    ‘a(i)存储第i个月的天数

a(1) = 31: a(2) = 28: a(3) = 31: a(4) = 30

a(5) = 31: a(6) = 30: a(7) = 31: a(8) = 31

a(9) = 30: a(10) = 31: a(11) = 30: a(12) = 31

nian = Val(TextNian.Text)

yue = Val(TextYue.Text)

ri = Val(TextRi.Text)

For i = 1 To yue - 1

‘依次加上之前每个月的天数

ans =________

Next i

ans = ans + ri    ‘加上当月的天数

If yue > 2 Then    ‘包含2月时,判断是否闰年,修正总天数

If nian Mod 400 = 0

Then ans = ans + 1

If nian Mod 4 = 0 And

nian Mod 100 <> 0 Then ans = ans + 1

End If

________=Str(ans)

End Sub