[多項選擇題] 編程題(26分)【題目】 編寫程序,找出給定范圍內所有不是素數的虧數。所謂虧數是指除本身外其所有因子之和小于自身的正整數。例如,106的因子
2021-07-20
[多項選擇題] 編程題(26分)【題目】 編寫程序,找出給定范圍內所有不是素數的虧數。所謂虧數是指除本身外其所有因子之和小于自身的正整數。例如,106的因子為1、2、53,和為56,故106是虧數。（注意:凡因子和為1的即為素數）【編程要求】1.程序參考界面如圖所示,編程時不得增加或減少界面對象或改變對象的種類,窗體及界面元素大小適中,且均可見。2.運行程序,在”a:”文本框中輸入數據范圍的起始值,在”b:”文本框中輸入數據范圍的終止值后,單擊”查找”按鈕,若數據范圍內存在”虧數”,則將它們按附圖參考界面所示的格式輸出到列表框中,否則在列表框中輸出”指定范圍內無虧數”的信息,單擊”清除”按鈕,將文本框與列表框清空,焦點置于”a:”文本框上 3.程序中至少應定義一個通用過程,用于求一個整數的因子和或判斷其是否為”虧數”【要求】將窗體文件和工程文件分別命名為F2和P2,并保存到T盤的根目錄下
正確答案：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
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。