【正文】
put 1, a(i) Next i Close 1 End Sub Private Sub Command2_Click() Dim i As Integer, ave As Integer, dec As Integer, res As Integer For i = 1 To 100 ave = ave + a(i) Next i ave = Int(ave / 100) dec = 32767 For i = 1 To 100 If dec Abs(a(i) ave) Then dec = Abs(a(i) ave) res = a(i) End If Next i = res End Sub Private Sub Command3_Click() Open For Output As 1 Print 1, Close 1 End Sub 。 第 2題 InStr函數(shù)和選中語句的使用。程序運行時,在 Text Text2中輸入文字, 單擊 替 換 按鈕,則在 Text3中找到Text1中的內(nèi)容,并用 Text2中的內(nèi)容替換,若未找到,則不替換。窗體上有三條直線,是一個數(shù)組