单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

单击命令按钮时，下列程序的执行结果为 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

单项选择题

单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，a) End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function

A．20
B．22
C．28
D．30

相关试题