[問答題] 注意：下面出現(xiàn)的“考生文件夾”均為C:wexam25160002。 在考生文件夾下有一個工程文件sjt5.vbp，在該工程中為考生提供了一個通用過程，考生可以直接調(diào)用。請在窗體上畫一個名稱為Text1的文本框；畫一個名稱為C1，標(biāo)題為“計算”的命令按鈕；再畫兩個單選按鈕，名稱分別為Op1和op2，標(biāo)題分別為“求200到300之間能被7整除的數(shù)之和”和“求200到300之間能被3整除的數(shù)之和”，如圖27-5所示。 請編寫適當(dāng)?shù)氖录^程，使得在運行時，選中一個單選按鈕，再單擊“計算”按鈕，就可以按照單選按鈕后的文字要求計算，并把計算結(jié)果放入文本框中，最后把已經(jīng)修改的工程文件和窗體文件以原來的文件名存盤。 注意：考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運行之前，必須至少要進行一種計算，否則不得分。

解析： 在窗體上建立控件后，先設(shè)置控件屬性，再事件過程。 程序中提供的事件過程用來求200～300之間能被n個整除的數(shù)的和，這里n是傳遞給Function過程的參數(shù)，該Function過程返回求得和。 文本框用Text屬性來接收用戶的輸入。按鈕的標(biāo)題由Caption屬性來設(shè)置，單擊按鈕觸發(fā)的是Click事件。為了檢測單選按鈕被選中，可以通過檢測其Value屬性來實現(xiàn)，當(dāng)Value為True時，表示該單選按鈕被選中，否則未被選中。在按鈕的 Click事件過程中通過條件語句來調(diào)用Function過程，實現(xiàn)程序

在窗體上建立控件后，先設(shè)置控件屬性，再事件過程。 程序中提供的事件過程用來求200～300之間能被n個整除的數(shù)的和，這里n是傳遞給Function過程的參數(shù)，該Function過程返回求得和。 文本框用Text屬性來接收用戶的輸入。按鈕的標(biāo)題由Caption屬性來設(shè)置，單擊按鈕觸發(fā)的是Click事件。為了檢測單選按鈕被選中，可以通過檢測其Value屬性來實現(xiàn)，當(dāng)Value為True時，表示該單選按鈕被選中，否則未被選中。在按鈕的 Click事件過程中通過條件語句來調(diào)用Function過程，實現(xiàn)程序要求的功能。解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表27-5。表 27-5控 件屬 性設(shè)置值文本框NameTextText1空白按鈕NameCaptionC1“計算”單選按鈕NameCaptionOp1“求200到300之間能被7整除的數(shù)之和”單選按鈕NameCaption“求200到300之間能被3整除的數(shù)之和” 第二步：編寫程序代碼。 程序提供的代碼： Private Function fun(a As Integer) As Integer s% = 0 For i% = 200 To 300 If Int(i% / a) = i% / a Then s% = s% + i% End If Next fun = s% End Function Private Sub Form_Unload(Cancel As Integer) Open "out5.txt" For Output As #1 Print #1, Opl.Value, Op2.Value, Textl.Text Close #1 End Sub 參考答案： Private Function fun(a As Integer) As Integer s% = 0 For i% = 200 To 300 If Int(i% / a) = i% / a Then s% = s% + i% End If Next fun = s% End Function Private Sub C1_Click() If Opl.Value Then Text1 = fun(7) End If If Op2.Value Then Text1 = fun(3) End Sub Private Sub Form_Unload(Cancel As Integer) Open "out5.txt" For Output AS #1 Print #1, Opl.Value, Op2.Value, Text1.Text Close #1 End Sub 第三步；調(diào)試并運行程序。 第四步：按題目要求存盤。