单项选择题 将表达式转换为Double类型的函数是()。

单项选择题 运行下列程序：Private Sub form_Click()t = Val(InputBox('请输入一个数：'))x = t - 1Select Case tCase 1 To 10y = 4 * tCase Is > 10y = 3 * tCase Elsey = 2 * tEnd SelectPrint x; yEnd Sub运行时，从键盘输入4，输出的结果是()。A.3 16B.4 4C.3 4D.4 10

单项选择题 运行下列程序：Option Base 1Private Sub Form_Click()y = 43x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)For i = 1 To 10If x(i) z = x(i) + 1y = x(i)Elsez = z + yEnd IfNext iPrint zEnd Sub单击窗体后，则在窗体上显示的结果是()。