屬性完成。 (2)實現上述功能的VB程序如下,請在橫線處填入合適的代碼。 Private Sub Command1_Click ( ) Dim sAs Integer,n AsInteger Dim aAs Integer,b AsInteger n=0 List1.Clear Fors=1001To9999Step 7a=①
b=s Mod 10 If②
Then List1.AddItemStr(s) ③
End If Next s Label1.Caption=“共有“+Str(n)+“個“End Sub
。(單選,填字母:A.對象 名/B.屬性名/C.事件名) (2)為實現上述功能,請在橫線處填入合適的代碼。 Private Sub Command1_click ( ) Dim aAs Integer,n AsInteger,kAsInteger,b As String Constm=“0123456789ABCDEF“a=Val(Text1.Text) ①
Do While②
k=aModn'求a的余數 a=a\n b=③
+b Text3.Text=b Loop End Sub (3)在實現程序功能后,在Text1中輸“16”,在Text2中屬兔“16”,Text3顯示的內容是