資源描述：
《在Form1上添加Label1、標題為“列表框的使用”的標簽doc.doc》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在學術論文-天天文庫。
1、基礎題(1)【解題思路】列表框的MultiSelect屬性用來設置一次可以選擇的表項數(shù)。該屬性有3種取值：0－None每次只能選擇一項，如果選擇另一項則會取消對前一項的選擇；1－Simple可以同時選擇多個項，后續(xù)的選擇不會取消前面的選擇，可以用鼠標或空格鍵選擇；2－Extended可以選擇指定范圍內(nèi)的表項?！静僮鞑襟E】步驟1：建立界面，并設置控件的屬性。程序中用到的控件及屬性見表3.136。表3.136步驟2：調(diào)試并運行程序，關閉程序后按題目要求存盤?；A題(2)【解題思路】命令按鈕的標題由Caption屬性設置，單擊命令
2、按鈕觸發(fā)Click事件。Cmd1Click事件過程中運用LoadPicture函數(shù)裝入圖片，用LoadPicture("")，清除用圖像框中的圖片?！静僮鞑襟E】步驟1：建立界面，并設置控件的屬性。程序中用到的控件及屬性見表3.137。表3.137步驟2：編寫程序代碼。參考答案PrivateSubCmd1_Click()Image1.Picture=LoadPicture(App.Path&"圖片.jpg")EndSubPrivateSubCmd2_Click()Image1.Picture=LoadPicture("")E
3、ndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。簡單題1)【解題思路】根據(jù)題意，并將數(shù)值賦值為數(shù)組a(k)，這道題的程序要實現(xiàn)尋找完全平方數(shù)，并求出完全平方數(shù)的個數(shù)和最大值。issquare函數(shù)用來判斷一個數(shù)是否為完全平方數(shù)，首先我們要了解什么是完全平方數(shù)，一個整數(shù)若是另一個整數(shù)的平方，那么它就是完全平方數(shù)。如：36＝62，所以36就是一個完全平方數(shù)。通過判斷issquare(a(k))函數(shù)的返回值確定完全平方數(shù)，并進行完全平方數(shù)個數(shù)的累加，以及通過比較找出最大值。【操作步驟】步驟1：打開本題工程文件。步驟2：分
4、析并編寫程序代碼。程序提供代碼Dima(100)AsIntegerPrivateFunctionissquare(xAsInteger)AsBoolean '判斷完全平方數(shù)flag=FalseForm=1ToSqr(x)'If?=m^2Then flag=True ExitFor EndIfNextm'issquare=?EndFunctionPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path&"in3.dat"ForInputAs#1Fork=1To1
5、00 Input#1,a(k)NextkClose#1EndSubPrivateSubCommand2_Click()DimmaxAsIntegerDimnumAsIntegermax=0num=0Fork=1To100 Ifissquare(a(k))Then num=num+1'If?>MaxThen max=a(k) EndIf EndIfNextk'Text1.Text=?'Text2.Text=?EndSub程序結束參考答案第1個？處填入：x第2個？處填入：flag第3個？處填入：a
6、(k)第4個？處填入：max第5個？處填入：num步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。簡單題(2)【解題思路】使用列表框的AddItem方法，在窗體載入時向列表框添加一個編號信息"a0001"。在Command1Click事件過程中，通過文本框Text1中輸入一個編號，運用If判斷語句進行判斷，如果該編號與已存在于列表框中的其他編號不重復，則將其添加到列表框Liast1已有項目之后；否則，將彈出MsgBox對話框"不允許重復輸入，請重新輸入！"，單擊該對話框中的"確定"按鈕，可以重新輸入?！静僮鞑襟E】步驟1：打
7、開本題工程文件，添加一個名稱為Label1，標題為"請輸入編號"的標簽；再添加一個名稱為Text1，初始文本內(nèi)容為空的文本框。步驟2：分析并編寫程序代碼。程序提供代碼PrivateSubForm_Load()'?"a0001"EndSubPrivateSubCommand1_Click()'Fori=0To?' List1.ListIndex=?IfList1.Text=Text1.TextThen MsgBox"不允許重復輸入，請重新輸入！" ExitSubEndIfNexti'?Text1.TextText1
8、.Text=""EndSubPrivateSubCommand2_Click()'?EndSub程序結束參考答案第1個？處填入：List1.AddItem第2個？處填入：List1.ListCount-1第3個？處填入：i第4個？處填入：List1.AddItem第5個？處填入：End步驟
