有如下程序: Private Sub Command1_Click（)a$="A WORKER IS HERE" x=Len（a$) For i=1 To x - 1

有如下程序：

Private type stu

X as string

Y as integer

End type

Private Sub Command1_Click()

Dim a as stu

a.x=”ABCD”

a.Y=12345

print a

End Sub

程序运行时出现错误，错误的原因是

A)Type定义语句没有放在标准模块中

B)变量声明语句有错

C)赋值语句不对

D)输出语句print不对

A.0

B.1

C.2

D.3

有如下程序： Private Sub Command1_Click() as="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮，程序运行结果为

A．1

B．2

C．3

D．5

有如下程序：

Private Sub Form_C1ick()

E=1:F=1

For j=1 To 3

E=E+F:F=F+E

Next

Print E;F

End Sub

该程序的输出结果是

A．6 6

B． 5 8

C． 13 21

D．34 55

有如下程序： Private Sub Commandl_Click() a$="A WORKER IS HERE" x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$="WOR" Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为

A．1

B．2

C．3

D．5

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n＞2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。

有如下程序： Private Sub Commandl_Cick() a=10:b=50 Rem Print a;b Print bla Print a；b End Sub 运行后，单击命令按钮后的输出结果是 ()

A．10 50 50 10 10 50

B．10 50

C．10 50 50 10

D．50 10