【文章內容簡介】
,相應的窗體文件為 。在窗體上有一個命令按鈕,其名稱為 Command1,標題為 計算并輸出 。程序運行后,如果單擊命令按鈕,程序將計算 500以內兩個數(shù)之間(包括開頭和結尾的數(shù))所有連續(xù)數(shù)的和為 1250的正整數(shù),并在窗體上顯示出來。這樣的數(shù)有多組,程序輸出每組開頭和結尾的正整數(shù),并用 ~ 連接起來,如圖所示。該程序不完整,請把它補充完整。 要求: 去掉程序中的注釋符,把程序中的 ?改為正確的內容,使其能正確運行,但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。 第 1小題 本題考查列表框屬性的設置,以及如何添加相應事件的代碼。 首先在列表框的 list屬性窗口向列表框添加四個項目: Visual Basic, Turbo C, C++, Java。然后在命令按鈕中添加事件代碼,其代碼如下: Private Sub Command1_Click() Dim i As Integer For i = 0 To 1 If (i) = True And Option1 = True Then = (i) + 筆試 End If If (i) = True And Option2 = True Then = (i) + 上機 End If Next i End Sub 當然,實現(xiàn)利用輸入對話框向文本框中輸入文本的代碼寫法有很多種,這只是比較常見的一種。 第 2小題 本題考查命令按鈕事件代碼的修改。 對題目中已給出的命令按鈕的 Click事件代碼進行修改,其代碼如下: Private Sub Command1_Click() Dim i