(單選,填字母:A.s=Text1.text B.List.jye.ai C.Text2.Text=Str(cnt)) (2)實現上述功能的VB程序如下,請在橫線處填入合適的代碼。 Private Sub Commandl_Click ( ) Dim s As String,c As String,tmp As String Dim i As Integer,cnt As Integer Dim flag as boolean cnt=0:flag True List.Clear:s=Text1.Text:Text1.text=″″ For i=1 To Len(s) ch=Mid(s,i,1) If ch>=″0″And ch<=″9″Then tmp=tmp+ch If Len (tmp)>1 Then If
Then flag=False End If Else If flag Then Listl.AddItem tmp:cnt cnt+1 flag=True tmp=″″ End if Next i If flag Then List1.AddItem tmp:cnt cnt+1 If
Then Text2.Text=“找不到“Else text2.Text=Str(cnt) End Sub (3)成功修改第1題中錯誤的程序代碼后,若文本框Text中輸入的內容為
屬性設置為“輸入字串:”. (2)程序運行時,在Text1中輸入字符串,單擊“統計”按鈕,在List1中顯示統計結果.請在橫線處填入合適代碼. ‘函數IsLetter(x)功能,若x是字母,則返回值為字母x在字母序列“A”~“Z”中的序號,如字母“A”的序號為0,字母“D”的序號為3.若x不是字母,則返回值為-1. Function IsLetter(x As String) As Integer If“A“<=x And x<=“Z“Then IsLetter=Asc(x)-Asc(“A“) ElseIf“a“<=x And x<=“z“Then IsLetter=Asc(x)-Asc(“a“) Else
End If End Function Private Sub Command1_Click
Dim f(25)As Integer,m As Integer,n As Integer Dim s As String,c As String List1.Clear For m=0To 25‘初始化數組f f(m)=0 Next m s=Text1.Text For m=1To Len(s)‘依次讀取字符串中的每個字符進行判斷 c=Mid(s,m,1) n=IsLetter(c) If n<>-1Then f(n)=f(n)+1 Next m For m=0To 25‘輸出統計結果,沒有出現的字母不輸出 If
Then List1.AddItem (Chr(m+Asc(“a“)) &“:“& f(m)) End If Next m End Sub.