【正文】
Format(d, 00) End Sub Private Sub Command3_Click() Open For Output As 1 Print 1, Close 1 End Sub 。 vbCrLf amp。 字母 C出現(xiàn)的次數(shù)為 amp。 Format(b, 00) = amp。 vbCrLf amp。 a$ Loop Close 1 = s End Sub Private Sub Command2_Click() For i = 1 To Len() Select Case Mid$(, i, 1) Case a, A: a = a + 1 Case b, B: b = b + 1 Case c, C: c = c + 1 Case d, D: d = d + 1 End Select Next i = 字母 A出現(xiàn)的次數(shù)為 amp。 圖 1 圖 2 主要考查了多行文本框的使用,同時也考查了文件的操作,以及顯示格式的控制。在文件中的格式為: 字母 A 出現(xiàn)的次數(shù)為 xx 字母 B 出現(xiàn)的次數(shù)為 xx 字母 C 出現(xiàn)的次數(shù)為 xx 字母 D 出現(xiàn)的次數(shù)為 xx 注意:不能修改已經(jīng)給出的程序部分;在結(jié)束程序運(yùn)行之前,必須單擊“保存”按鈕,把結(jié)果存入,否則無成績。 要求: 1)統(tǒng)計(jì)每個字母出現(xiàn)的次數(shù)時,不區(qū)分大小寫。文件中已給出了“顯示”和“保存”按鈕的 Click事件過程。窗體中已經(jīng)給出了所有控件,如圖 1所示。 如我們要定義函數(shù) Fn,可使用以下語句: Function Fn(參數(shù)列表 )as返回類型 函數(shù)主體部分 End Function 在使用函數(shù)時,可象使用 VB庫存函數(shù)一樣使用; 主要考查了計(jì)時控件的使用,在計(jì)時控件中 可以通過設(shè)置 Interval屬性值來設(shè)定計(jì)時間隔(毫秒),通過設(shè)置 Enable 屬性來設(shè)置開始、停止計(jì)時,在計(jì)時器的