运行下列程序：Dim bPrivate Sub Form_Click（)a = 1: b = 1Call fun1（a)Print "X = &quo

下列程序的运行结果为______。Private Sub Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd Sub

A．100

B．500

C．2500

D．5000

A.7

B.-7

C.7.75

D.8

下列程序运行后，信息框显示的内容是()。

Private Sub Command1_Click()

Dim s1 As String

Dim s2 As Integer

s1 = "Hello-World,2004"

s2 = Len(s1) + InStr(1, s1, "2")

MsgBox s2

End Sub

A.Hello-World

B.2003

C.16

D.29

A.1

B.0

C.True

D.显示错误信息

下列程序段的运行结果是()。 Subsele() Dim n As Integer i=21:n=3 Do While i＞n i=i-n Loop Print i End Sub

A．2

B．4

C．5

D．3

下列程序段的运行结果是()。

Sub sele()

Dim n As Integer

i=21:n=3

Do While i＞n

i=i-n

Loop

Print i

End Sub

A．2

B．4

C．5

D．3

下列程序段运行后,其运行结果是()。

Dim a(3) As Integer, b(3) As Integer

For k = 0 To 3

a(k) = k*k +k

b(k) = a(k)-k

Next k

Print a(2) + b(1)

A. 5

B. 6

C. 7

D. 8

下列程序运行的结果为（）。执行完该程序后，共循环了（）次。

Private Sub Command1_Click()

Dim intsum As Integer

Dim i As Integer

For i = 1 To 17 Step 2

intsum = intsum+i

Next i

Print intsum

End Sub

运行下列程序：

Private Sub form_Click()

Dim x

x = 0

Do While x ＜ 10

x = x + 3

Loop

MsgBox x

End Sub

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

A.0

B.3

C.10

D.12

运行下列程序：

Private Sub Command1_Click()

Dim s1 As String * 1

Dim s2 As String

s1 = "a"

For i = Asc(s1) To Asc(s1) + 4

s2 = s2 & Chr(i)

Next i

Print s2

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.a

B.abcde

C.aaaa

D.s2