16.數字頻率統計:小王編寫VB 程序,實現如下功能:在Text1 中輸入一串任意字符串(含數字),單擊“統計”按鈕Command1,在列表框List1 中統計并輸出數字0~9 出現的次數。運行界面如圖所示,VB 程序代碼如下。為實現上述功能,請在橫線處填入合適的代碼。 Private Sub Command1_Click ( ) Dim a(0To 9)As Integer,s As String Dim k As String,i As Integer s=Text1.Text List1.Clear For i=1To Len(s)
If k>=“0“And k<=“9“Then
End If Next i For i=0To 9 List1.AddItem Str(i) &“出現了:“& a(i) &“次“ Next i End Sub
17.小馬正在看一本偵探小說,想了解其中一段案情的解析,卻發現了一串字符“#2017-2018go:)”,并附有文字提示:①答案所在的頁碼是這串字符中最大數字字串(若值相同則取后面的數字字串)的起始位置*10+結束位置②答案所在行號是最大數值除以100的余數。例如:“#17a18#”字符串中,最大數字字串“18”,起始位置是5,結束位置是6,其頁碼是56,行號是18.小馬編寫了一個VB程序幫他尋找答案,程序運行界面如第16題圖所示。在文本框Text1中輸入這段字符串s1,單擊“揭秘”按鈕Command1,在文本框Text2中輸出頁碼,在Text3中輸出行號。 實現上述功能的VB程序代碼如下,但加框處代碼有錯,請改正。 Private Sub Command1_Click ( ) Dim s1As String,s2As String Dim ch As String,ch2As String Dim max As Double Dim n As Integer,page As Integer Dim i As Integer,j As Integer s1=Text1.text:s2=““ n=Len(s1) i=1: (1) Do While i<=n ch=Mid(s1,i,1) If ch>=“0“And ch<=“9“Then j=i ch2=Mid(s1,j,1) Do While ch2>=“0“And ch2<=“9“ j=j+1 ch2=Mid(s1,j,1) Loop s2='(2)-(1) If
Then'(2)-(2) max=Val(s2) page=i*10+j-1 Text2.Text=Str(page) Text3.Text=Str(max Mod 100) End If i=j End If i=i+1 Loop End Sub