填空题

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

<上一题目录下一题>

热门试题

填空题

下列程序运行后的输出结果是【9】。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub

填空题

下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。Private Sub Form_Click()Dim i As IntegerOpen Num.txt For Output As#1For i=1 To 8【8】 NextClose #1End Sub

相关试题