有如下程序： 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 Command1_Cli…”相关的问题
第1题
有如下程序： 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 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() 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 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 1
Private Sub Command1_Click （）
Dim a （10 ） As Integer
F or i=1 To 10
a （i ） =i
Next
Call swap （【 11 】 ）
For i=1 To 10
Print a （i ） ;
Next
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 】
Next
End Sub
上述程序的功能是，通过调用过程 swap ，调换数组中数值的存放位置，即 a (1 ) 与 a (10 ) 的值互换， a (2 ) 与 a (9 ) 的值互换 ， …… 。请填空。
第6题
有如下程序：
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
第7题
（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 】 。
第8题
在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是
A．Basic
B．Visual
C．Cancel
D．True
为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
赏学吧
微信搜一搜
赏学吧
