屬性。 (2)程序代碼中加框處有錯,請更正。 (3)請將劃線部分補充完整: Const maxn=10 Dim a(1 To maxn) As Integer Private Sub Form_Load( ) '生成數組a顯示在List1中' End Sub Private Sub Command1_Click( ) Dim i As Integer,j As Integer,n As Integer,key As Integer key=1:n=maxn Do While key<=n i key+1 Do While i<=n If a(i)<>a(key)Then i=i+1 Else For j=i To n-1
a(j-1)=a(j)
Next j n=n-1 End If Loop key=key+1 Loop For i=1 To n List2.AddItem Str(a( i)) Next i Label1.Caption=″共刪除數據″+①+″個″ End Sub (4)當數組a中的值依次為“1237816687”,單擊按鈕 command1后,標簽Labe1上顯示的內容是
。 (2)請在橫線處填入合適的代碼: Private Sub Command1_Click( ) Dim i As Integer,j As Integer, Dim x As Integer,s As String,ch As String Dim a(1 To 24)as Integer For i=1 To 24 a(i)=0 Next i ① For i=1 To6 ch=Mid(s,i,1) If ch>=“0”And ch<=“9”Then x=Val(ch) Else ② End If j=4*i Do While x>0 a(j)=x mod 2 x=x\2 j=j-1 Loop Next i s=““:x=0 For j=1 To 24 ③ If j Mod 8=0 Then If j<24 Then s=s+Str(x)+″,″ Else s=s+Str(x) End If x=0 End If Next j Text2.Text=″RGB″(″+S+″)″ End sub