更多"下面程序的功能是统计字符串中“i”的个数请填空。 Sub COU("的相关试题:
[填空题]下面程序的功能是统计字符串中“i”的个数请填空。
Sub COU( )
Dim n As Integer
a$ =" Beijing University of Technology"
n = Len(a$)
For i = 1 To n
b$ = 【15】
If b$ ="i" Then x=x+1
Next
Print" x="; x
End Sub
[填空题]下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If 【11】 Then x=x + 1
Next
Print "x ="; x
End Sub
[填空题]下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If 【11】 Then x=x + 1
Next
Print "x ="; x
End Sub
[填空题]下面程序的功能是统计字符串中"i"的个数，请填空。
Sub COU（ ）
Dim n As Integer
a$="Beijing University of Technology"
n=Len(a$)
For i=1 To n
b$=Mid$(a$,i,1)
If ______ Then x=x+1
Next
Print "x=";x
End Sub
[填空题]下面程序的功能是统计字符串中“广的个数，请填空。
Sub COU( )
a$="Beijing University of Technology"
Dim n AS Integer
n=Len(a$)
For i=1 To n
b$=【 】
If 【 】 Then x=x+1
Next i
Print "x="；x
End Sub
[单项选择]有如下程序： Ptivate Sub Form_Click（ ） Dim Check，Counter Cbeck=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
[单项选择]给出下面程序：
Private Sub Command1_Click(
)
Dim x， y， z
X = False
For Each y In z
If y.Text = "Hello" Then
x = True
Exit For
End If
Next y
End Sub
下面描述正确的是________。
A. 退出 For Each…Next循环的条件是 x= True
B. 退出 For Each…Next循环的条件是 x= False
C. 程序检查 y对象的 Text属性，等于""时退出 ForEach…Next循环
D. 程序逐一查找在 z中的对象，不确切并判断其 Text属性，文本框中的内容等于"Hello"时退出 ForEach…Next循环
[填空题]阅读下面的程序：
Private Sub Form_Click( )
Dim Check As Boolean，Counter As Integer
Check=Tree
Counter=5
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
End Sub
程序运行后，单击窗体，输出结果为 【9】 。
[填空题]阅读下面的程序：
Private Sub Form_Click（ ）
Dim Check As Boolean，Counter As Integer
Check=True
Counter=5
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=Fadtse
EXit Do
End If
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为 ______。
[单项选择]下面程序：
Private Sub Form_Click（ ）
Dim x,y，z As Integer
x=5
y=7
2=0
Call P1(x,y，z)
Print Str(z)
End Sub
Sub P1(By Va1 a As Integer，By Va1 b As Integer，c As Integer)
c=a+b
EndSub
运行后的输出结果为_________。
A. 0
B. 12
C. Str(z)
D. 显示错误信息
[单项选择]下面程序：
Private Sub Form_Click（ ）
Dim x,y,z As Integer
x=5
y=7
z=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(By Val a As Integer, By Val b As Integer, c As Integer)
c=a+b
End Sub
运行后的输出结果为______。
A. 0
B. 12
C. Str(2)
D. 显示错误信息
[单项选择]下面程序：
Private Sub Form_Click（ ）
Dim x，y，z As Integer
x=5
y=7
z=0
Call P1(x，y，z)
Print Str(z)
End Sub
Sub P1(ByVal a As Integer，ByVal b As Integer,c As Integer)
c=a+b
End Sub
运行后的输出结果为 ______。
A. 0
B. 12
C. Sb(z)
D. 显示错误信息
[多项选择]下面程序：
Private Sub Form_Click（ ）
Dim x，y，z As Integer
x=5
Y=7
z=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c=a+b
End Sub
运行后的输出结果为______。
A. 0
B. 12
C. Str(z)
D. 显示错误信息
