【文章內(nèi)容簡介】
3)單擊 退出 按鈕,則結(jié)束程序運(yùn)行。 要求: 請去掉程序中的注釋符,把程序中的 ?改為正確的內(nèi)容,使 其實(shí)現(xiàn)上述 功能,但不能修改窗體文件中已經(jīng)存在的控件和程序。最后把修改后的 文件按原文件名存盤。 第 1小題: 本題主要考查了 ListBox控件的 AddItem方法和 Option控件的 Value屬性、 Caption屬性。 : item[, index]。這里 object為 List1, item為必須的,表示將要添加到 List1中的項(xiàng)目, index為可選的,用來指定新項(xiàng)目在 List1中的位置。 Value屬性,使 Option控件屬性 Value為 True時(shí),單選按鈕被選中。 Option控件的 Caption屬性顯示單選按鈕的標(biāo)題。 打開 ,修改后的代碼如下: Private Sub Command1_Click() Dim y As Integer For i = 0 To 2 If (i) = True Then y = Val(Option1(i).Caption) End If Next Call calc(y) End Sub Private Sub calc(y As Integer) ClearList i = 1 x = Val() + 1 Do While i = 5 If x Mod y = 0 Then x i = i + 1 End If x = x + 1 Loop End Sub 按要求保存文件即完成本題。 第 2小題: 本題主要考查了 ListBox控件的 AddItem方法、 ListCount屬性和 ListIndex屬性 。 AddItem方法,向列表框添加項(xiàng)目。 ListCount屬性設(shè)置列表框中 的列表項(xiàng)數(shù)目,其值為項(xiàng)目總數(shù)減一。 ListIndex屬性返回程序運(yùn)行時(shí),選中