在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim arr()As Integer
ReDim arr(3)
For i=0 To 3
alt(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
Re Dim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。

为谋财绑架他人的，在下列哪一种情形下不应当判处死刑?()

A.甲绑架并伤害被绑架人致其残疾的

B.乙杀死人质后隐瞒事实真相向人质亲友勒索赎金10万元的

C.丙绑架人质后害怕罪行败露杀人灭口的

D.丁控制人质时因捆绑太紧过失致被害人死亡的