某人连续5年每年年末存人银行20万元，银行年利率为6%，按年复利计算，第5年年末一次性收回

运行下列程序：

Private Sub Form_Click()

a = 3

t = InputBox("请输入一个整数")

Select Case t

Case Is > 0

b = a + l

Case Is = 0

b = a + 2

Case Else

b = a + 5

End Select

Print a; b

End Sub

从键盘输入5，在窗体上显示的结果是()。

A.1 5

B.3 3

C.1 1

D.5 5

下面程序运行结果是()。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End Sub

A．_35_2510

B．25102510

C．_35_35_

D．2510_35_

下面程序运行结果是()。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End Sub

A．_35_2510

B．25102510

C．_35_35_

D．2510_35_

运行下列程序：

Private Sub form_Click()

s = InputBox("请输入一个字符A：")

Select Case Asc(s)

Case Is > 65

n = String(3, UCase(s))

Case Is = 65

n = String(3, LCase(s))

Case Else

n = s

End Select

Print n

End Sub

从键盘输入A，输出的结果是()。

A.aaa

B.AAA

C.65

D.a

运行下列程序：

Private Sub form_Click()

t = Val(InputBox("请输入一个数："))

x = t - 1

Select Case t

Case 1 To 10

y = 4 * t

Case Is >10

y = 3 * t

Case Else

y = 2 * t

End Select

Print x; y

End Sub

运行时，从键盘输入4，输出的结果是()。

A.3 16

B.4 4

C.3 4

D.4 10

运行下列程序：

Private Sub form_Click()

x = InputBox("请输入一个数：")

Select Case x

Case Is > 0: y = x + 1: x = y + 1

Case Is = 0: y = x + 2: x = y + 2

Case Else: y = x + 3: x = y + 3

End Select

Print x; y

End Sub

从键盘输入1，输出的结果是()。

A.3 2

B.2 3

C.2 2

D.1 4

A．A.10

B．B.20

C．C.30

D．D.显示出错信息

运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t End Sub Private Function fun1(y) If y＞0 Then fun1 = 1： t=10 Else If y=0 Then fun1 = 0： t=20 Else fun1 = -1： t=30 End If End Function 从键盘为变量x输入数据5，输出的结果是【 】。

运行下列程序：

Private Sub form_Click()

For i = 1 To 4

t = t * 10 + i

s = s + t

Next i

Print s

End Sub

单击窗体后，则输出结果是()。

A.1234

B.4321

C.1370

D.4444