填空题

下面程序的功能是统计字符串中“广的个数，请填空。　　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

【参考答案】

Mid$(a$，i，1)

<上一题目录下一题>

热门试题

填空题

设有以下函数过程：Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2sum = sum + k Next kfun = sumEnd Function若在程序中用语句s=fun(10)调用此函数，则s的值为 _________。

单项选择题

阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2) For i = 1 To 3For j = 1 To 2 arr(i, j) = i * 2 + jNext j Next i ReDim Preserve arr(3, 4) For j = 3 To 4arr(3, j) = j + 9Next j Print arr(3, 2) + arr(3, 4) End Sub程序运行后，单击窗体，输入结果为______。

A．21
B．13
C．8
D．25

相关试题