有如下程序： 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 单击命令按钮，程序运行结果为 -题库考试答案搜索网

有如下程序： 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 单击命令按钮，程序运行结果为

单选题

2022-01-04 16:41

A、1
B、2
C、3
D、5

查看答案

正确答案

A

试题解析

解析：此题考查了字符串函数与循环语句的嵌套使用，s用来记录找到指定字符串的次数，在“AWORKERISHERE”中，只出现一次，所以返回值是1。

标签：

感兴趣题目

有如下程序段 int *p,a=10,b=1； p=&a；a=*p+b；执行该程序段后，a的值为______。

有如下程序段int *p,a=10,b=1;p=&a; a=*p+b;执行该程序段后，a的值为

有如下程序段 int *p，a=10，b=1； p=&a；a=*p+b；执行该程序段后，a的值为

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。

在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。

下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(A)t=t * a(i) Next i Tof=t End Function

Private Sub Command1_Click（） a=Val（InputBox（"请输入a的值="）） b=Val（InputBox（"请输入a的值="）） x=a+b Ifa＞b Then x=a-b End If Print x End Sub 若运行时从键盘输入a和b分别为3和4，则程序输出的结果为（）

下面程序执行的结果是( )。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C100 End Sub

下面程序执行的结果是______。 Private Sub Form_ Click() A＄=“123”：B＄=“456” C=Val(A＄)+Val(B＄) Print C100 End Sub

设有如下程序： Private Sub Command1_Click（） Dim a Dim I As Integer a=Array（1，2，3，4，5，6，7，8，9） For I=0 To 3 Print a（5-I）； Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub

当下面程序运行后，单击窗体在对话框中输入10，则输出的结果是（） Private Sub Form_Click（） score=InputBox（"输入"） Select Case score CaseIs＜10 a$="F" Case 10 To 19 a$="D" Case 20 To 29 a$="C" Case 30 To 39 a$="B" Case Else a$="A" End Select Printa$ End Sub

相关题目: 有如下程序段
int*p,a=10,b=1;
p=&a;a=*p+b;
执行该程序段后，a的值为; 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 a = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_____; 有如下程序段:int p,a=10,b=1p=&a; a=p+b;执行该程序段后,a的值为 ( ); 有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。; 有如下一个Sub过程： Sub mlt (ParamArray numbers()) n=1 For Each x In numbers n=n * x Next x Print n End Sub在一个事件过程中如下调用该Sub过程： Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为______。; 下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j3 Next Print a End Sub; 编写如下程序： Private Sub Form_Click() a$="54321":b$="abcde" For j=1 To 5 Print Mid$(a$，6-j，1)+Mid$(b$，j，1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 ______。; 以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub; 若有如下程序：sub(int a，int b，int *z){*z=a+b;return;}main(){int a＝1，b=2，c＝3，d，e;sub(a，b，&D) ；sub(c，d，&e)；printf("%d"，e);}则程序运行后的输出结果是; 执行下面的程序段，x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub; 若有以下程序： #include ＜iost ream＞ using namespace std; class A { private: int a; public: A(int i) { a=i; } void disp () { cout＜＜a＜＜", "; } }; class B { private:; 单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub; 下列程序 Private Sub form_Click() score=Int(Rnd * 10)+80 Select Case score Case Is＜60:a$＝"F" Case 60 To 69:a$＝"D" Case 70 To 79:a$＝"C" Case 80 To 89:a$="B" Case Else:a$＝"A" End Select Print a$ End Sub 运行时输出的结果是; 有如下程序： 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 单击命令按钮，程序运行结果为; 有如下程序： 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 单击命令按钮，程序运行结果为; 有如下程序： 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 单击命令按钮，程序运行结果为; 有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。; 当VB执行下面语句后，A的值为（） Private Sub Command1_Click（） Dim a As Integer a=10 If a＞0Then a=a+1 If a＞1Then a=0 Print a End Sub; 有如下程序段 int*p，a=10，b=3； p=&a； a=*p+b；执行该程序段后，a的值为______。; 有如下程序段： int *p,a=10,b=1; p=&a; a= *p+b;执行该程序段后，a的值为( )。

广告位招租WX:84302438

题库考试答案搜索网

免费的网站请分享给朋友吧