（）是与会专家围绕一个主题，各自发表意见，并进行充分讨论，最后达成共识，取得比较一致的

下面程序运行结果是()。 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()

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()

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()

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

A．A.10

B．B.20

C．C.30

D．D.显示出错信息

（32 ）设有以下程序：

Private Sub Form_Click()

X=50

For i=1 To 4

Y=InputBox(“ 请输入一个整数 ” )

Y=Val(y)

If y Mod 5=0 Then

a=a+y

x=y

Else

a=a+x

End If

Next i

Print a

End Sub

程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为

A ） 100

B ） 50

C ） 120

D ） 70

运行下列程序： 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() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为______。

A． 123

B．456

C．479

D．123456

运行下列程序：

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