要在垂直位置上移动控件,应利用控件的()属性.

A.Left(左右移动时，利用该属性)

B.Width

C.Top

D.Height

下面对Microsfot Excel(97及以后版本)的说法中，错误的是( )。

A.Excel的单元格中可以是文字、数字或公式等

B.当打开一个Excel工作簿时，只是包含有数据的工作表被打开

C.Excel工作表最多有65536行

D.Excel工作表可以保存为文本文件

Internet的三项主要服务项目是英文缩写是( )。

A.E-mail, FTP, WWW

B.Web, LAN, HTML

C.ISP, HUB, BBS

D.TCP/IP, FTP, PPP/SLIP

x，y是整数型变量，z产生一个范围在[y，x]之间的随机整数的语句是( )。

A.z=Int(Rnd*(y-x+1))+x

B.z=Int(Rnd*y) + x

C.z=Int(Rnd*x)+y

D.z=Int(Rnd*(y-x)) + x

运行下列程序：

Dim b

Private Sub Form_Click( )

a = 1: b = 1

Call fun1(a)

Print "X = "; a; ",Y = "; b

End Sub

Private Sub fun1(a)

b = 2 * a

a = 3 * b

End Sub

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

A.X = 1，Y = 1

B.X = 2，Y = 6

C.X = 6，Y = 2

D.X = 6，Y = 1

运行下列程序：

Private Sub Form_Click( )

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

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

A.5

B.1 2 3 4 5

C.19

D.7

运行下列程序：

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