niusouti.com

有如下程序：Private Sub Command1_Click()a$="A WORKER IS HERE"x=Len(a$)For i=1 To x-1b$=Mid$(a$，i，3)If b$="WOR"，Then S=S+1NextPrint SEnd Sub单击命令按钮，程序运行结果为AA．1B．2C．3D．5

题目

有如下程序：

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

Next

Print S

End Sub

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

A．1

B．2

C．3

D．5

相似考题

1.有如下程序：Private Sub Command1_Click（）a$= "A WORKER IS HERE"x=Len（a$）For i=1 To x - 1b$=Mid$（a$, i, 3）If b$= "WOR" Then S=S + 1NextPrint SEnd Sub单击命令按钮，程序运行结果为（ ）A．1B．2C．3D．5

2.下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFirSt="abcdef"Print Pat(FirStr)End SubPrivate Function Pat(xStr As String) As StringDim tempStr As String，strLen As IntegertempStr=""strLen=Len(xStr)i=1Do While i＜=Len(xStr)-3tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen-i+1,1)i=i+1LoopPat=tempStrEnd FunctionA．abcdefB．afbecdC．fedcbaD．defabc

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．1B．2C．3D．5

4.有如下程序:Private Sub Command1_Click()a$="A WORKER IS HERE"x=Len(a$)For i=1 To x - 1b$=Mid$(a$, i, 3)If b$="WOR" Then S=S + 1NextPrint SEnd Sub单击命令按钮，程序运行结果为A．1B．2C．3D．5

参考答案和解析
正确答案：A
解析：此题考查字符串函数与循环语句的嵌套使用。S用来记录找到指定字符串的次数，在“A WORKER IS HERE”中只出现一次，所以返回值是1。
更多“有如下程序:Private Sub Command1_Click()a$="A WORKER IS HERE"x=Len(a$)For i=1 To x－1b$=Mid$ ”相关问题

  • 第1题：

    下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr="abcdef" Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtion

    A．abcdef

    B．afbecd

    C．fedcba

    D．defabc


    正确答案：B
    解析：主调函数最终输出值是Pct(FirStr)过程的返回值，这就得调用函数过程Pct。被调过程Pct的参数xStr从主调函数中收到实参FirStr传来的值“abcdef”，过程Pct开始声明了两个变量，一个是String型的tempStr，一个是Integer型的strLen。语句tempStr=""和strLen=Len(xStr)的功能是，为变量tempStr赋空值，变量strLen的值就是xstr的长度，此题为6。程序执行DoWhile…Loop的循环语句的过程如下：第一次循环，I=l，I=3成立，执行语句tempStr+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1)；第二次循环，1=2，I=3成立，继续执行循环体，tempStr=“afbe”；第三次循环，I=3，I=3成立，继续执行循环体，tempStr=“afbecd”；第四次循环，I=4，I=3不成立，则跳出循环体，执行语句Pct=tempStr。所以最终Pct(FirStr)="afbecd"。

  • 第2题：

    有如下程序： Private Sub Command1_Click( ) a$="A WORKER IS OVER THERE" x=Len(a ＄) For i=1 To x-1 b$=Mid $(a $，i，2) If b $="ER"Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是

    A．1

    B．2

    C．3

    D．4


    正确答案：C
    解析：Mid(a＄，i，2)表示从字符串a＄的第i个字符开始向后截取2个字符。由于“AWORKERISOVERTHERE'’中有三个“ER”，故s=s+1将被执行3次，即s最后的值为3。

  • 第3题：

    有如下程序段，该程序段运行后Label1中显示的内容为______。 Dim x$, y% x = "boy or girl？" y = Len（x) If y ＜ 11 Then Label1.Text = "I am " & Mid（x, 1, 3) Else Label1.Text = "I am " & Mid（x, 8, 4) End If

    A．boy or girl？

    B．I am boy

    C．I am girl

    D．I am boy or girl？


    D

  • 第4题：

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


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

  • 第5题：

    14、有如下程序段，该程序段运行后Label1中显示的内容为______。 Dim x$, y% x = "boy or girl？" y = Len（x) If y ＜ 11 Then Label1.Text = "I am " & Mid（x, 1, 3) Else Label1.Text = "I am " & Mid（x, 8, 4) End If

    A．boy or girl？

    B．I am boy

    C．I am girl

    D．I am boy or girl？


    B

相关内容