干支纪年法VB编程：输入一个年份，程序会列出从该年份开始的12年的干支纪年和生肖，希望大神帮我解释期中的关键语句

@[TOC(干支纪年法VB编程：输入一个年份，程序会列出从该年份开始的12年的干支纪年和生肖，希望大神帮我解释期中的关键语句)

Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer, n As Integer
Dim c1 As String, s1 As String, c2 As String, s2 As String, c3 As String, s3 As String
List1.Clear
s1 = “甲乙丙丁戊己庚辛壬癸”
s2 = “子丑寅卯辰巳午未申酉戌亥”
s3 = “鼠牛虎兔龙蛇马羊猴鸡狗猪”
n = Val(Text1.Text) '此行有1处错误
For i = n To n + 11 '此行补充填加代码
a = (i + 6) Mod 10
b = (i + 8) Mod 12
c1 = Mid(s1, a + 1, 1)
c2 = Mid(s2, b + 1, 1)
c3 = Mid(s3, b + 1, 1)
List1.AddItem Str(i) + "年 " + c1 + c2 + " " + c3
Next i
End Sub

• 点赞
• 收藏
• 分享
• 文章举报