填空题

下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU()
Dim n As Integer
　a$="Beijing University of Technology"
　n=Len(a$)
　For i=1 To n
　　b$=______
　　If b$="i" Then x=x+1
　Next
　Print "x=":x
End Sub

【参考答案】

Mid$(a$,i,A)

<上一题目录下一题>

热门试题

填空题

在KeyPress事件过程中，KeyAscii是所按键的______值。

填空题

下面程序运行后，单击命令按钮，输出的结果是______。 Private Sub Command1_Click() Dim a%(1 To 5)，i%，s# For i=1 To 5 A(i)=i Next S=Fun(a) Print s= ；s； End Sub Function Fun(a()As Integer) Dim t#,i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next Fun=t End Function

相关试题