(單選,填字母:A、Form1.Text=“統(tǒng)計(jì)數(shù)字“/B、Form1.Caption=“統(tǒng)計(jì)數(shù)字“/C、Form1.AddItem“統(tǒng)計(jì)數(shù)字“) (2)實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適代碼。 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)計(jì)數(shù)字”按鈕后,標(biāo)簽Label1中顯示的內(nèi)容是