[問答題] 注意：下面出現(xiàn)的“考生文件夾”均為c:wexam25160001。 (1)在考生文件夾中有工程文件sjt3.vbp及其窗體文件sjt3.frm，該程序是不完整的。請(qǐng)?jiān)谟刑?hào)的地方填入正確內(nèi)容，然后刪除及所有注釋符(即’號(hào))但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。 本題描述如下： 在窗體上有3個(gè)名稱分別為Text1、Text2和Text3的文本框，一個(gè)名稱為C1，標(biāo)題為“計(jì)算”的命令按鈕，如圖4-4所示。要求程序運(yùn)行后，在Text1和Text2中分別輸入兩個(gè)整數(shù)，單擊“計(jì)算”按鈕后，可把兩個(gè)整數(shù)之間的所有整數(shù)(含兩個(gè)整數(shù))累加起來并在Text3中顯示。 (2)在窗體上建立一個(gè)名稱為Text1的文本框，建立一個(gè)名稱為Cmd1，標(biāo)題為“計(jì)算”的命令按鈕，如圖4-5所示。要求程序運(yùn)行后，如果單擊“計(jì)算”按鈕，則求出100-200之間所有可以被3整除的數(shù)的總和，在文本框中顯示出來，并把結(jié)果存入考生文件夾下的out.txt文件中。 (在考生的文件夾下有一個(gè) mode.bas標(biāo)準(zhǔn)模塊，該模塊中提供了保存文件的過程putdata，考生可以直接調(diào)用。) 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt4.frm。工程文件名為sjt4.vbp，結(jié)果存入out.txt文件。

第二步：編寫程序代碼。 標(biāo)準(zhǔn)模塊代碼： Option Explicit Sub putdata(t_FileName As String，t_Str As Variant) Dim SFile As String SFile ="" & t_FileName Open App.Path & SFile For Output As #1 Print #1， t_Str Close #1 End Sub 參考代碼： Private Sub Cmd1_CliCk()

在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 要使文本框中的字符用于算術(shù)運(yùn)算，首先要利用Val將文本框中輸入的數(shù)字字符轉(zhuǎn)換為數(shù)字類型(文本框中的內(nèi)容默認(rèn)為字符串類型)。解題步驟： 第一步：建立界面并設(shè)置控件屬性。 第二步：編寫程序代碼。 程序提供的代碼： Option Explicit Private Sub C1_Click() Dim i As Integer，s As Integer Dim a As Integer，b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a＞b Then i = a a = b ’ b = End If s = 0 For i = a To b ’ s = s + Next i Text3.Text = s End Sub 參考代碼： Option Explicit Private Sub C1_Click() Dim i As Integer， s As Integer Dim a As Integer， b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a ＞ b Then i = a a = b b = i End If s = 0 For i = a To b s = s + i Next i Text3.Text = s End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。 (2)在窗體上建立好控件后，先設(shè)置控件的屬性，再編寫事件過程。 命令按鈕的Caption屬性用來設(shè)置其標(biāo)題，單擊命令按鈕觸發(fā)Click事件：在文本框中顯示內(nèi)容通過其Text屬性來設(shè)置。解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表4-3。