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

[主观题]

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

有如下程序： Private Sub Command1_Click() a$="A WCIRKER 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

查看答案

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

您可能会需要：

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

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

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

第1题

有如下程序：Private Sub Form_Click（) Dim Check, Counter Check=True Counter=0 Do Do While Co

有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______。

A．15 0

B．20 -1

C．10 True

D．10 False

点击查看答案

第2题

有如下程序：Private Sub Form_Click（) Dim Check,Counter Check=True Counter=0 Do Do While Co

有如下程序： Private Sub Form_Click() Dim Check,Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter,Check End Sub 程序运行后，单击窗体，输出结果为()。

A．15 0

B．20 -1

C．10 True

D．10 False

点击查看答案

第3题

对于如下程序，单击Co皿andl事件发生后，窗体上显示的内容为 ______。Private Sub Command1_Click（)

对于如下程序，单击Co皿andl事件发生后，窗体上显示的内容为 ______。 Private Sub Command1_Click() Dim i As Integer,a a As Integer Do While i＜20 Do While True If i Mod 10 = 0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+1 Loop Print a End Sub

A．21

B．32

C．33

D．11

点击查看答案

第4题

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Sub Co

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是

A．旅游景点：长城故宫

B．旅游景点：长城颐和园

C．旅游景点：颐和园

D．旅游景点：故宫

点击查看答案

第5题

（9 ）在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程序：Option Base 1Private Sub Co

（9 ）在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程序：

Option Base 1

Private Sub Command1_Click （）

Dim a （10 ） As Integer

F or i=1 To 10

a （i ） =i

Call swap （【 11 】）

For i=1 To 10

Print a （i ） ;

End Sub

Sub swap （b （） As Integer ）

n =U b ound （b ）

For i=1 To n / 2

t =b （i ）

b （i ） =b （n ）

b （n ） =t

【 12 】

End Sub

上述程序的功能是，通过调用过程 swap ，调换数组中数值的存放位置，即 a (1 ) 与 a (10 ) 的值互换， a (2 ) 与 a (9 ) 的值互换， …… 。请填空。

点击查看答案

第6题

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

点击查看答案

第7题

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