屬性. (2)實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適代碼. Private sub command1_click ( ) Dim a(0to 9)as integer’數(shù)組元素a(i)中存放數(shù)字i的個(gè)數(shù) Dim s as string,ch as string Dim t as integer For i=0to 9 a(i)=0 next i s=text1.text for i=1to len(s)
if ch>=”0”and ch<=”9”then t=
a(t)=a(t)+1 end if next i list1.clear for i=1to 9 if then list1.a(chǎn)dditem”數(shù)字:”+str(i)+”,共有”+str(a(i))+”個(gè)” end if next i end sub (3)與上述程序中加框處代碼運(yùn)行效果等價(jià)的條件表達(dá)式可以是
17.一個(gè)十進(jìn)制整數(shù)的二進(jìn)制表示中,如果數(shù)字“1”的個(gè)數(shù)多于數(shù)字“0”的個(gè)數(shù),則稱該整數(shù)為A類數(shù).如十進(jìn)制整數(shù)26的二進(jìn)制表示為11010,26是一個(gè)A類數(shù).下列VB程序的功能是:統(tǒng)計(jì)前1000個(gè)自然數(shù)中A類數(shù)的個(gè)數(shù),并在文本框中輸出.請(qǐng)?jiān)跈M線處填入合適代碼. Private Sub Command1_Click ( ) Dim i As Integer,n As Integer Dim s As Integer,t As Integer,k As Integer s=0 For i=1To 1000 n=i t=0 k=0 Do While n>0 If n Mod 2=1Then t=t+1Else k=k+1