10.請統(tǒng)計某個給定范圍[L,R]的所有整數(shù)中,數(shù)字2出現(xiàn)的次數(shù)。比如給定范圍為[2,22],數(shù)字2在數(shù)2中出現(xiàn)了1次,在數(shù)12中出現(xiàn)1次,在數(shù)20中出現(xiàn)1次,在數(shù)21中出現(xiàn)1次,在數(shù)22中出現(xiàn)2次,所以數(shù)字2在該范圍內(nèi)一共出現(xiàn)了6次。
小明編寫如圖所示VB應(yīng)用程序,在文本框Text1中輸入?yún)^(qū)間左邊界,在文本框Text2中輸入?yún)^(qū)間右邊界,單擊“統(tǒng)計數(shù)字”按鈕Command1后,在標簽框Label1中輸出給定區(qū)間內(nèi)所有整數(shù)中出現(xiàn)“2”的次數(shù)。
(1)要使程序運行時,窗體Form1標題顯示“統(tǒng)計數(shù)字”,則需在Form_Load事件過程中添加語句
(單選,填字母:A、Form1.Text=“統(tǒng)計數(shù)字“/B、Form1.Caption=“統(tǒng)計數(shù)字“/C、Form1.AddItem“統(tǒng)計數(shù)字“)
(2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適代碼。
Private Sub Command1_Click ( )
Dim left As Integer,right As Integer,s As String
Dim i As Integer,j As Integer,k As Integer,ch As String
left=Val(Text1.Text)
right=Val(Text2.Text)
s=““
k=0
①
Do While i<=right
s=s+Str(i)
i=i+1
Loop
For i=1To Len(s)
ch=Mid(s,i,1)
If ch=“2“Then ②
Next i
Label1.Caption=Str(left)+“到“+Str(right)+“之間出現(xiàn)2的次數(shù)為“+Str(k)
End Sub
(3)若在文本框Text1中輸入300,在Text2中輸入400,單擊“統(tǒng)計數(shù)字”按鈕后,標簽Label1中顯示的內(nèi)容是
。