单项选择题

有如下程序：
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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-3 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是
A．22
B．24
C．26
D．28
单项选择题
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A．12 32
B．2 32
C．2 3
D．12 3
相关试题