填空题

下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。
Private Sub numCoun()
Dim num As Integer
s＄="software And hardware"
num=Len(s＄)
For i=1 To num
b＄=______
Ifb＄="a"Then x=x+1
Next i
Print "x=";x
End Sub

【参考答案】

Mid(s＄,i,A)

<上一题目录下一题>

热门试题

填空题

已知变量boolVar是一个布尔型的变量，如果要给其赋值为True，则正确的赋值语句就是______。

单项选择题

在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入AlpO.txt文件中(无双引号界定符)。请选择横线处合适的语句( )。 Private Sub Form_Load() Dim StrIn As String,StrOut As Strings Open C: Alph.txt For Input As #1 ______ Close Text1.Text=StrIn ______ Text2.Text=StrOut Open C: AlpO.txt For Output As#2 ______ Close End Sub Private Function StrSort(s As String)As String Dim s Arr() As String *1,i As Integer,j As Integer,n As Integer Dim t As String *1 n=Len(s) ReDim sArr(n) For i=1 To n s Arr(i)=Mid(s,i,1) Next i For i=1 To n-1 For j=i+1 To n If sArr(i)＞sArr(j) Then t=sArr(i):sArr(j):sArr(j):sArr(j)=t End If Next j,i For i=1 To n StrSort=StrSort & s Arr(i) Next i End Function

A．Input#1,StrIn StrIn Print#2,StrOut
B．Input#1,StrIn StrSort(StrIn) Input#2,StrOut
C．Input#2,StrIn StrSort(StrIn) Input#1,StrOut
D．Print#1,StrIn StrSort(StrIn) Input#2,StrOut

相关试题