[多項(xiàng)選擇題] 編程題(26分)【題目】 編寫(xiě)程序,找出給定范圍內(nèi)所有不是素?cái)?shù)的虧數(shù)。所謂虧數(shù)是指除本身外其所有因子之和小于自身的正整數(shù)。例如,106的因子為1、2、53,和為56,故106是虧數(shù)。（注意:凡因子和為1的即為素?cái)?shù)）【編程要求】1.程序參考界面如圖所示,編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,窗體及界面元素大小適中,且均可見(jiàn)。2.運(yùn)行程序,在”a:”文本框中輸入數(shù)據(jù)范圍的起始值,在”b:”文本框中輸入數(shù)據(jù)范圍的終止值后,單擊”查找”按鈕,若數(shù)據(jù)范圍內(nèi)存在”虧數(shù)”,則將它們按附圖參考界面所示的格式輸出到列表框中,否則在列表框中輸出”指定范圍內(nèi)無(wú)虧數(shù)”的信息,單擊”清除”按鈕,將文本框與列表框清空,焦點(diǎn)置于”a:”文本框上 3.程序中至少應(yīng)定義一個(gè)通用過(guò)程,用于求一個(gè)整數(shù)的因子和或判斷其是否為”虧數(shù)”【要求】將窗體文件和工程文件分別命名為F2和P2,并保存到T盤(pán)的根目錄下

Option ExplicitOption Base A Private Sub CmdClear_Click() TextA.Text = "": TextB.Text = "" ListA.Clear TextA.SetFocusEnd Sub Private Sub CmdFind_Click() Dim a As Integer, b As Integer, i As Integer Dim st As String, flg As Boolean, sum As Integer