[問答題] 在考生文件夾下有一個工程文件sjt4.vbp。請在窗體上添加一個組合框，名稱為cb1，并輸入三個列表項：“3”、“7”、“11”(列表項的順序不限，但必須是這三個數(shù)字)；添加一個名為Text1的文本框；再添加一個標(biāo)題為“計算”、名稱為C1的命令按鈕，如圖所示。請編寫適當(dāng)?shù)氖录^程，使得在程序運行時，在組合框中選定一個數(shù)字后，單擊“計算”按鈕，則計算5000以內(nèi)能夠被該數(shù)整除的所有數(shù)之和，并放入Text1中。最后，按原文件名存盤。

提示：由于計算結(jié)果較大，應(yīng)使用長整型變量。

注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運行之前，必須至少進行一次計算。并且必須用窗體有上角的關(guān)閉按鈕結(jié)束程序，否則無成績。

[操作步驟] 步驟1：打開本題工程文件，按照題目要求建立控件并設(shè)置組合框控件屬性，如圖所示。程序中用到的控件及屬性見表。 控件 文本框 組合框 命令按鈕 屬性 Name Name List Name Caption 設(shè)置值 Text1 cb1 11，3，7 C1 計算 步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。 Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer

[考點] 本題考點有：文本框的Name屬性、組合框的Name和List屬性、命令按鈕的Name和Caption屬性、Val()函數(shù)以及Mod取模運算。 本題主要考查組合框的屬性及For循環(huán)語句的使用。 Mod取模運算就是求余數(shù)，例如10mod 3=1，因為10除以3等于3余1，結(jié)果就是余數(shù)。如果a mod b=0，則說明a能被b整除，反之如果a mod b＜＞0，則a不能被b整除。 組合框(ComboBox)將文本框與列表框的特性組合在一起，既可以在組合框的文本框部分輸入信息，也可在列表框部分選擇項目；組合框的列表項可在沒計階段通過其List屬性添加，每輸入完一項后按＜Ctrl+Enter＞鍵換行再輸入下一項；其Text屬性用于設(shè)置或返回其文本框部分當(dāng)前的文本。 根據(jù)題意，用For逐一循環(huán)5000內(nèi)的整數(shù)，通過If語句的條件表達式：i Mod n=0，判斷各個數(shù)是否能被n整除，把能被整除的數(shù)累加到變量sum。i為循環(huán)變量，n的值為Val(Cb1.Text)。 在定義變量時注意，由于數(shù)值較大，應(yīng)定義為長整型變量，防止數(shù)值過大溢出。