填空题

下面程序的功能是统计字符串中“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

【参考答案】

Mid$(a$，i，1) b$=“i”

<上一题目录下一题>

热门试题

填空题

控件数组的名字由Name属性指定，而数组中的每个元素由【7】属性指定。

填空题

Private Sub Form_Activate( ) For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为【14】。