. Private Sub Command1_Click ( ) Const a=“①” Dim x As Integer'用于存儲輸入的十進制自然數(shù) Dim s As String'用于存儲轉換后的結果 Dim d As Integer x=Val(Text1.Text) s=”” Do While x<>0'采用除二取余法 d=x Mod 2 s=Str(d)+s x=x'2 Loop Label2.Caption=Text1.Text+a Text2.Text=s End Sub.
17.編寫VB應用程序,實現(xiàn)以下功能:在文本框Text1中輸入一串由字母、數(shù)字等字符組成的字符串,點擊“統(tǒng)計”按鈕Command1,在列表框List1中統(tǒng)計每個字母出現(xiàn)的次數(shù)(不分大小寫).程序運行界面如圖所示. 實現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正. '函數(shù)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'初始化數(shù)組f f(m)=0 Next m s=Text1.Text For m=0To 25'輸出統(tǒng)計結果,沒有出現(xiàn)的字母不輸出 If f(m)<>0Then List1.AddItem (Chr(m+Asc(”a”)) &”:”& f(m)) End If Next m End Sub (1)加框處①有錯,應改為