某算法的部分流程图如图所示，以下运算结果正确的是

A．k=0

B．s=9

C．s=25

D．a=64

某算法的部分流程图如右图所示，执行完这部分流程后，s和i的值分别是（）

A．28，7

B．280，10

C．280，7

D．28，10

用VB关系表达式表示“x大于等于50并且小于500”，以下哪个写法是正确的（   ）

A．x>="50" and x<500	B．x>=50 x<500
C．50=<x<500	D．x>="50" or x<500

足球比赛规定：胜一场得3分，平一场得1分，负一场得0分。某足球队共赛12场，只输了两场，要使总分能得21分以上，至少需要胜（   ）场。

A．5

B．6

C．7

D．8

编写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年对应的“天干地支”为 。