题目内容（请给出正确答案）

[主观题]

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

有如下程序:

Private Sub Command1_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

Print S

End Sub

单击命令按钮，程序运行结果为

A．1

B．2

C．3

D．5

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“有如下程序: Private Sub Command1_Cl…”相关的问题

第1题

有如下程序：Private type stu X as string Y as integerEnd typePrivate Sub Command1_Click（) D

有如下程序：

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不对

点击查看答案

第2题

有程序段如下Private Sub Form_Click（)Static I As IntegerI = I + 1Print IEnd Sub 当第三次单击窗体时打印出的I值为（）

A.0

B.1

C.2

D.3

点击查看答案

第3题

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

有如下程序： 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

点击查看答案

第4题

有如下程序：Private Sub Form_C1ick（)E=1:F=1For j=1 To 3E=E+F:F=F+ENextPrint E;FEnd Sub该程

有如下程序：

Private Sub Form_C1ick()

E=1:F=1

For j=1 To 3

E=E+F:F=F+E

Print E;F

End Sub

该程序的输出结果是

A．6 6

B． 5 8

C． 13 21

D．34 55

点击查看答案

第5题

有如下程序： Private Sub Commandl_Click（) a$="A WORKER IS HERE" x=Len（a$) For i=

有如下程序： 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

点击查看答案

第6题

（8 ）有如下程序：Private Sub Form_Click （）n=10i=0Doi=i+nn=n-2Loop While n＞2Print iEnd Su

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

i=i+n