vb等級(jí)考試題目與評(píng)析62(文件)
【正文】 替換，若未找到，則不替換。 注意： 不能修改程序中的其他部分和控件的 屬性。 第 2題 InStr函數(shù)和選中語(yǔ)句的使用。 注意： 不得修改已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須用 存盤 按鈕存儲(chǔ)計(jì)算結(jié)果，否則無(wú)成績(jī)。本題主要代碼如下： Dim a(100) As Integer Private Sub Command1_Click() Dim i As Integer Open For Input As 1 For i = 1 To 100 Input 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)
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1