设a=3,b=4,则下列表达式值最大的是（ ）

A．sqr(b/a)

B．b\a

C．int(b/a)

D．a mod b

日期判断:从文本框Text1输入一个8位数字表示的日期，其中第1到4位表示年（第1位确定不为零），第5到6位表示月，第7到8位表示日。单击“判断”按钮，判断该日期是否合法，将结果依次输出到列表框List1。程序界面如下图所示：
提示：年份值符合下列两种情况之一的是闰年。
1.年份是4的倍数，但不是100的倍数；
2.年份是400的倍数。

（1）观察程序代码，可知“判断”按钮的对象名为 。（单选，填字母：

A．Text1/

B．List1/

C．Command1/

D．Judge/E.判断）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Judge_Click()
Dim riqi As String, st As String
Dim year As Integer, month As Integer, day As Integer
Dim rn As Boolean, hefa As Boolean
riqi = Text1.Text
year =" Val(Mid(riqi," 1, 4))
month =" Val(Mid(riqi," 5, 2))
day =    ①     ‘第①处
st =" Str(year)" + "年" + Str(month) + "月" + Str(day) + "日"
rn = False  ‘用于判断是否为闰年
If ②  Then rn = True  ‘第②处
If year Mod 4 =" 0" And year Mod 100 <> 0 Then rn = True
hefa = True  ‘用于判断是否为合法日期
If month =" 0" Or month > 12 Then hefa = False
If day =" 0" Then hefa = False
If (month =" 1" Or month =" 3" Or month =" 5" Or month =" 7" Or  ’与下一行语句同行
month =" 8" Or month =" 10" Or month =" 12)" And day > 31 Then hefa = False
If (month =" 4" Or month =" 6" Or month =" 9" Or month = 11) ’与下一行语句同行
And day > 30 Then hefa = False
If   ③   Then hefa =" False" ’第③处,判断闰年2月的天数是否合法
If month =" 2" And Rn =" False" And day > 28 Then hefa = False
If hefa =" True" Then st =" st" + " 合法日期" Else st =" st" + " 非法日期"
List1.AddItem st
End Sub

若输入28，以上代码输出结果是_______________。
Dim x as long
x=inputbox(“输入x的值”)
y="x" mod 7
if  y="4" or y="5" or y=" 6" then
xq=y-3
else
xq=y+4
end if
print  xq

按了回车键后，将组合框中输入的内容添加到组合框中，组合框的名称是COMBO1。
PRIVATE    SUB    COMBO1________1（KEYASCII  AS   INTEGER）
IF  ________2
________3
END  IF
END   SUB

下列程序段的执行结果为.
 Dim A(10)，B(5)
 For i = 1 To 10
 A(i) = i
 Next i
 For j = 1 To 5
 B(j) = j * 20
 Next j
 A(5) = B(2)
 Print "A(5)=";A(5)


A．A(5)=5

B．A(5)=10

C．A(5)=20

D．A(5)=40