运行下列程序：Private Sub Form_Click（)Dim a As Integera = 1For i = 1 To 5Call fun1（a)Ne

运行下列程序：

Private Sub Form_Click( )

For i = 1 To 20

If fun1(i) Then

s = s + 1

End If

Next i

Print s

End Sub

Private Function fun1(y) As Boolean

If y Mod 2 <> 0 Then

fun1 = False

Else

fun1 = True

End If

End Function

单击窗体后，则在窗体上显示的结果是( )。

A.110

B.10

C.0

D.20

运行下列程序：

Private Sub Form_Click( )

Dim y As Integer, x As Integer

Do Until x > 20

x = x + 10

y = y + x

If x > 20 Then Exit Do

Loop

Print x, y

End Sub

单击窗体后，则在窗体上显示的结果是( )。

A.10 20

B.30 60

C.10 30

D.20 60

( )把相距遥远的许多局域网和计算机用户互相连接在一起，它的作用范围通常可以从几十公里到几千公里，甚至更大的范围，也称为远程网。

A.公司网

B.WAN

C.LAN

D.小型网

运行下列程序：

Private Sub form_Click( )

x = 8: y = 2

Call fun1((x), y)

Print x, y

End Sub

Private Sub fun1(x, y)

s = x

x = s / y

y = s Mod y

End Sub

单击窗体后，则在窗体上显示的结果是( )。

A.4 2

B.8 2

C.8 0

D.2 4

三种基本控制结构来描述，三种结构不包括( )。

A.多分支结构

B.顺序结构

C.重复结构

D.选择结构

在数据文件中，Reset语句的功能是( )。

A.重新设置文件的文件号

B.关闭所有用Open语句打开的文件

C.更改将要打开文件的类型

D.文件指针复位

设整型变量a、b的当前取值分别为200与20，以下赋值与句中不能正确执行的是( )。

A. Text1 = a / b * a

B. Text1 = a * a / b

C. Text1 = "200" * a / b

D. Text1 = a & b & a

默认Value属性的控件是( )。

A.单选框

B.文本框

C.标签框

D.列表框

信息系统是多种多样的，从信息处理的深度进行划分，决策支持系统属于( )。

A.业务信息处理系统

B.信息检索系统

C.信息分析系统

D.专家系统

运行下列程序：

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