【正文】
確定命令按鈕,則刪除列表框中所選擇的項(xiàng)目,如圖3所示;如果不選擇列表框中的項(xiàng)目,或者沒有在文本框中輸入字符串,則單擊確定命令按鈕后,將顯示一個(gè)信息框未輸入或未選擇項(xiàng)目,如圖4所示。該程序不完整,請(qǐng)把它補(bǔ)充完整。要求:去掉程序中的注釋符,把程序中的 ? 改為正確的內(nèi)容,使其能正確運(yùn)行,但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。 **********************************************************************(2)。在窗體上有一個(gè)命令按鈕,其名稱為Command1,標(biāo)題為計(jì)算。程序運(yùn)行后,如果單擊命令按鈕,程序?qū)⒏鶕?jù)下面的公式計(jì)算π的值:π/4 = 1 1/3 + 1/5 1/7 + ......所提供的窗體文件已給出了命令按鈕的事件過程,程序運(yùn)行結(jié)果如圖所示。該程序不完整,請(qǐng)把它補(bǔ)充完整。要求:去掉程序中的注釋符,把程序中的 ? 改為正確的內(nèi)容,使其能正確運(yùn)行,但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。 第一小題:該題考查考生對(duì)ListBox控件的使用。列表框的AddItem方法用來在列表框中插入一行文本,其語法為: 字符串 [,索引值]如果省略索引值,則字符串被添加到列表框的尾部;使用索引值可以將字符串插入列表框中的指定位置。索引值從0開始,到列表項(xiàng)總數(shù)1止。列表框的RemoveItem方法用來刪除列表框中的指定項(xiàng)目,其語法為: 索引值列表框的ListIndex屬性用來設(shè)置或返回列表框中當(dāng)前選中的列表項(xiàng)。第二小題:該題考查了DoLoop循環(huán)結(jié)構(gòu)語句和公式計(jì)算的算法實(shí)現(xiàn),相關(guān)程序如下:Private Sub Command1_Click() Dim Result As Double Dim Sign As Integer Dim i As Integer Result = 0 Sign = 1 i = 1 Do Result = Result + Sign / i i = i + 2 Sign = Sign Loop While 1 / i = = Result * 4End Sub3. 綜合應(yīng)用(1小題,計(jì)30分)注意:下面出現(xiàn)的考生文件夾均為%USER%。窗體外觀如圖1所示。三個(gè)命令按鈕的名稱分別為CommandCommand2和Command3,標(biāo)題分別為讀取數(shù)據(jù)、首字母大寫和存盤。程序運(yùn)行后,如果單擊讀取數(shù)據(jù)命令按鈕,(文本中的單詞與單詞之間或標(biāo)點(diǎn)符號(hào)與單詞之間均用一個(gè)空格分開),并在文本框中顯示出來,如圖2所示; 如果單擊首字母大寫命令按鈕,則將文本框中每個(gè)單詞的第一個(gè)字母變?yōu)榇髮懽帜福ㄈ绻瓉硪咽谴髮懽帜竸t不改變),并在文本框中顯示出來,如圖3所示;如果單擊存盤命令按鈕,則把文本框中的內(nèi)容(首字母大寫后)。窗體文件中已給出了部分程序,請(qǐng)把它補(bǔ)充完整,使其實(shí)現(xiàn)上述功能。 要求:1)編寫讀取數(shù)據(jù)命令按鈕的Click事件過程。2)去掉首字母大寫命令按鈕和存盤命令按鈕事件過程中的注釋符,把程序中的 ?改為正確的內(nèi)容,使其能正確運(yùn)行。3)用原來的文件名保存工程文件和窗體文件。本題主要考查了文件的操作,文件中字符串的處理方法。主要代碼如下:Dim s As StringPrivate Sub Command1_Click() Open For Input As 1 s = Input$(LOF(1), 1) Close 1 = sEnd SubPrivate Sub Command2_Click() Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen ch = Mid(,