VB_Python代码对照算法百题（004）

VB_Python代码对照算法百题（004）

VB代码：

（2016年4月_浙江）14.编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。

 

（1）代码“Private Sub Command1_Click()”中的Click是         。（单选，填字母：A.对象名/B.属性名/C.事件名）

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

Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim i As Integer, n As Integer

Dim c1 As String, s1 As String

Dim c2 As String, s2 As String

Dim c3 As String, s3 As String

List1.Clear

s1 = “甲乙丙丁戊己庚辛壬癸”

s2 = “子丑寅卯辰巳午未申酉戌亥”

s3 = “鼠牛虎兔龙蛇马羊猴鸡狗猪”

n = Val(Text1.Text)

For i = n To      ①   

   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     ②   + “年” + c1 + c2 + ” ” + c3

Next i

End Sub

（3）由上述算法可知，2024年对应的“天干地支”为        。 

参考答案：

(1) C

(2) ①n+11 ②str(i)

(3)甲辰

Python代码：

s1 = “甲乙丙丁戊己庚辛壬癸”

s2 = “子丑寅卯辰巳午未申酉戌亥”

s3 = “鼠牛虎兔龙蛇马羊猴鸡狗猪”

n=int(input(‘输入年份：n’))

for i in range(n,n+12):

    a = (i + 6) % 10

    b = (i + 8) % 12

    c1=s1[a]

    c2=s2[b]

    c3=s3[b]

    print(str(i)+’年’+c1+c2+’  ‘+c3)

Python代码运行结果：

输入年份：

1996

1996年丙子  鼠

1997年丁丑  牛

1998年戊寅  虎

1999年己卯  兔

2000年庚辰  龙

2001年辛巳  蛇

2002年壬午  马

2003年癸未  羊

2004年甲申  猴

2005年乙酉  鸡

2006年丙戌  狗

2007年丁亥  猪

>>>

输入年份：

2024

2024年甲辰  龙

2025年乙巳  蛇

2026年丙午  马

2027年丁未  羊

2028年戊申  猴

2029年己酉  鸡

2030年庚戌  狗

2031年辛亥  猪

2032年壬子  鼠

2033年癸丑  牛

2034年甲寅  虎

2035年乙卯  兔

>>>