[問答題] 在考生文件夾下有工程文件djks043.vbp及窗體文件djks043.frm，該程序是不完整的，請?jiān)谟械牡胤教钊胝_內(nèi)容，然后刪除及所有注釋符(’)，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。本題描述如下：在窗體上有兩個(gè)標(biāo)簽、兩個(gè)文本框、一個(gè)框架、三個(gè)單選框以及兩個(gè)控制按鈕。標(biāo)簽的名稱分別為Label1與Label2，標(biāo)題分別為“原文本”、“加密文本”；文本框的名稱分別為Text1與Text2，Text屬性均為空；兩個(gè)控制按鈕的名稱分別為Command1與Command2，標(biāo)題分別為“加密”與“讀入”；單選框的名稱統(tǒng)一為Option1，標(biāo)題分別為2、4、6；框架名稱為Frame1，標(biāo)題為“加密類型”。單擊“讀入”按鈕，程序?qū)⒆x入考生文件夾下的文本文件in043.txt，單擊“加密”按鈕，加密過的文本顯示在Text2中。根據(jù)單選框中不同的數(shù)字，加密的方法不同。例如選擇Option1，則逐一把Text1中的字符串改為它后面的第2個(gè)字母。程序運(yùn)行時(shí)的窗體界面如下圖所示。[試題源程序]1 Private Sub Command1_Click( )2 Text2.Text=""3 Dim n As Integer4 Dim i As Integer5 Dim m As Integer6 Dim Str As String7 Dim StrText As String8 For i=0 To 29 If Option1(i).Value Then10 n=Val(.Caption)11 End If12 Next i13 m=Len(Text1.Text)14 For i=1 To m15 Str=Mid S(Text1.Text, , 1)16 Str=(1，Asc(Str)+n)17 If

第一步：啟動(dòng)Visual Basic，打開考生文件夾下的工程文件sjt5.vbp。第二步：把計(jì)時(shí)器控件的Enabled屬性設(shè)置為“False”，Interval屬性設(shè)置為1000。第三步：雙擊窗體中的任何位置，進(jìn)入代碼編輯窗口，填寫代碼如下：笫一個(gè)處填入Index。第二個(gè)處填入0。笫三個(gè)處填入+1。第四步：填寫完畢，調(diào)試成功后，以原文件名保存。在本題中兩個(gè)命令按鈕組成了一個(gè)控件數(shù)組，名稱為C1。查看Index屬性可知，開始計(jì)數(shù)按鈕的Index值為0，停止計(jì)數(shù)按鈕的Index值為1。

在本題中是用兩個(gè)命令按鈕來控制計(jì)時(shí)器的啟動(dòng)和停止，因此應(yīng)在窗體設(shè)計(jì)時(shí)將其Enabled屬性設(shè)置為False。由于本題要求時(shí)間間隔為1s，因此計(jì)時(shí)器的Interval屬性應(yīng)設(shè)置為1000ms。