【正文】
最后,程序按原文件名存盤。最后把修改后的文件按原文件名存盤。最后把修改后的文件按原文件名存盤。可用 BorderColor來改變控件中邊線的顏色。 請編寫適當(dāng)?shù)氖录^程使得在運行時,單擊 圓 按鈕,則矩形變?yōu)橐粋€圓;單擊 橢圓 按鈕,則矩形變?yōu)橐粋€橢圓(如圖所示)。如 圖所示。同時可用 MultiLine來指定該文本框是否支持多行顯示。 文件中已經(jīng)給出了所有控件和程序,但程序不完整,請去掉程序中的注釋符,把程序中的 ?改為正確的內(nèi)容。 程序運行后,若 Option1被選中,則只替換 Text3中第一個匹配的字串,若 Option2被選中,則替換 Text3中所有匹配的字串。 3. 綜合應(yīng)用( 1小題,計 30分) 注意:下面出現(xiàn)的 考生文件夾 均為 C:\WEXAM\00000000\ 在考生目錄下有一個工程文件 ,其功能是:單擊 讀數(shù)據(jù) 按鈕,則把考生目錄下的文件 100個整數(shù)讀到數(shù)組 a中;單擊 計算 按鈕,則找出其中與所有數(shù)的平均值(平均值截尾取整)最接近的整數(shù),放到文本框中;單擊 存盤 按鈕則把計算結(jié)果存盤。本題主要代碼如下: Dim a(100) As Integer Private Sub Command1_Click() Dim i As Integer Open For Input As 1 For i = 1 To 100 In