【正文】
or i = 1 To sl c = Mid(st, i, 1) If c Then n = Asc(UCase(c)) Asc(A) + 1 a(n) = a(n) + 1 End If Next For i = 1 To 26 If a(i) = 0 Then = + + Chr(Asc(A) + i 1) End If Next End If End Sub 按要求保存文件即完成本題。最后把修改后的文件 按原文件名存盤。 請將 統(tǒng)計(jì) 按鈕 Click事件過程中的注釋符去掉,把 ?改為正確內(nèi)容, 以實(shí)現(xiàn)上述程序功能。如圖所示。最后,程序按原文件名存盤。 要求: 完善程序使其實(shí)現(xiàn)上述功能。 2. 簡單應(yīng)用( 2小題,每題 20分,計(jì) 40分) 注意:下面出現(xiàn)的 考生文件夾 均為 C:\WEXAM\00000000\ *********************************************************************** ( 1)在考生文件夾下有一個(gè)工程文件 ,其功能是: 1)單擊 讀數(shù)據(jù) 按鈕,則把考生文件夾下 20個(gè)整數(shù)讀 入數(shù)組 a中,同時(shí)顯示在 Text1文本框中; 2)單擊 變換 按鈕,則數(shù)組 a中元素的位置自動 對調(diào)(即第一個(gè)數(shù)組元 素與最后一個(gè)數(shù)組元素對調(diào),第二個(gè)數(shù)組元素與倒數(shù)第二個(gè)數(shù)組元素 對