s = 0

i = 0

Do While s < 10

  i = i + 1

  s = s + i * i

Loop

（1）当前工作表名是___________。

（2）当前活动单元格的地址是______。

（3）单元格D8、E8中的数据是从C8单元格利用自动填充功能得到的。则E8单元格的公式是_______

（5）标题“学生成绩表”在格式设置时可能使用了按钮__________（填序号）。

Dim n as integer

n=val（inputbox(”n=”)）

Do while  n mod 2 =0

n=n\2

loop

print n

程序运行时，输入36，输出n的值是__________

Dim a(10) as integer

Dim i as integer

Dim s as integer

For i=1 to 5

  a(i)=i*i

next i

s=a(3)+a(4)

print s

上述程序运行后，变量s的值是________

 为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。

如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。）

（1）自然语言

第1步：输入车牌号

第2步：取车牌号的最后一位x；

第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三……位判断，直到找到数字为止；

第4步：判断x 是奇数还是偶数，然后输出相应的结果。

请根据上述算法描述补全代码

  Dim n As Integer

  Dim s As String ‘定义s 为字符串类型

  Dim x As String

  s=InputBox(“s=”,s)   ‘将输入的车牌号赋值给s

  n=6 ‘车牌号的长度为6

  x=Mid(s,n,1) ‘取车牌号s的第n位

  Do While x<”0” Or x>”9”  ‘x不是数字字符，则取x的前一位

   ①

   x=Mid(s,n,1) ‘取车牌号s的第n位

  Loop

  If   ②    then

Print “双号”

   Else

Print “单号”

   End If

(提示：Mid(s,m,n)的功能：从字符串s的第m位开始，截取长度为n的子串。例如：Mid(“A8963C”,5,1)的返回值是“3”。)

A、Val(x)\ 2= 0   B、Val(x)Mod 2 = 1   C、Val(x) Mod 2=0   D、Val(x) Mod 2 <> 0

Dim i As Integer

Dim x As Integer

Dim y As Integer

y=30

x=Val(InputBox(“x=”))

If  y< x   Then

y=x

End If

Next  i

Print  y

程序运行后，依次输入：36  87  51

运行后输出结果是_________________。