填空题

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

【参考答案】

b$="i"

<上一题目录下一题>

热门试题

填空题

下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。Private Sub Form_Click()Dim i As IntegerOpen 【9】 As #1For i=1 To 10Print #1 ,iNextClose #1End Sub

填空题

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

相关试题