基本操作題

　　1在名稱為Form1的窗體上添加一個名稱為Label1的標簽，標簽的寬和高分別為2000、300，有邊框，并利用屬性窗口設置適當的屬性，使其標題“等級考試”居中顯示，并使標簽的外觀如圖所示。

　　【考點分析】本題考點有：標簽的Name、Caption、Width、Height、BorderStyle和Alignment屬性。

　　【解題思路】標簽的Name、Caption、Width和Height屬性設置標簽的名稱、標題、寬和高，通過BorderStyle屬性為標簽設置邊框，Alignment屬性用來設置標簽中文本的對齊方式。

　　【操作步驟】

　　步驟1：新建一個窗體，按照題目要求建立標簽控件井沒置其屬性，如圖3.32所示。

　　程序中用到的控件及屬性見表3.47。

　　步驟2：調試并運行程序，關閉程序后按題目要求存盤。

　　2在名稱為Form1的窗體上畫兩個標簽(名稱分別為Label1和Label2，標題分別為“姓名”和“年齡”)、兩個文本框(名稱分別為Textl和Text2，初始內容均為空)和一個命令按鈕(名稱為Command1，標題為“顯示”)。然后編寫命令按鈕的Click事件過程。程序運行后，在兩個文本框中分別輸人姓名和年齡，然后單擊“顯示”按鈕，則在窗體上顯示兩個文本框中的內容，如圖所示。要求程序中不得使用任何變量。

　　【考點分析】本題考點有：標簽的Name和Caption屬性、文本框Name和Text屬性、命令按鈕的Name和Caption屬性、“&”和“+”運算符以及Print方法。

　　【解題思路】通過標簽的Name和Caption屬性設置標簽的名稱和標題，通過文本框Name和Text屬性設置文本框的名稱和文本，通過命令按鈕的Name和Caption屬性設置命令按鈕的名稱和標題，“&”和“+”運算符均可將兩個表達式作為字符串連接。在窗體上輸出文本內容可使用Print方法。

　　【操作步驟】

　　步驟1：新建一個窗體，按照題目要求建立控件并設置相應屬性，程序中用到的控件及屬性如表3.16所示。

　　步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。

　　參考答案

　　Private Sub Command1_Click()

　　Form1.Print Text1.Text&"，現年"&

　　Text2.Text&"歲"

　　End Sub

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　簡單應用題

　　3在考生文件夾下有一個工程文件sit4.vbp，窗體上已經添加所有控件，如圖所示。在程序運行時，如果單擊“開始”按鈕，則每隔0.1秒窗體上的汽車圖標向右移動一次(初始狀態下不移動);如果單擊“停止”按鈕，則停止移動。

　　請完成以下工作：

　　①設置適當控件的適當屬性，使得每0.1秒汽車圖標向右移動一次，而初始狀態下不移動。

　　②請去掉程序中的注釋符，把程序中的?改為正確的內容。

　　③為兩個命令按鈕編寫適當的事件過程.最后以原文件名存盤。

　　注意：不得修改已經給出的程序。編寫事件的過程中不能使用變量，每個事件過程中只能有一條語句。

　　【考點分析】本題考點有：計時器的Interval和Ena-bled屬性以及圖片框的Left屬性。

　　【解題思路】首先通過計時器的Interval和Enabled屬性設置計時器每次改變的時間間隔和計時器是否可用，根據題意，在初始狀態下Enabled屬性設置為False，在計時器的Tim-er事件過程中，通過圖片框的Left屬性值的改變來實現自左向右移動的功能。在“開始”按鈕的單擊事件過程中應啟用計時器，在“停止”按鈕的單擊事件過程中必須停止計時器。

　　【操作步驟】

　　步驟1：打開本題工程文件，設置計時器Interval的屬性為100，將Enabled屬性設置為False。

　　步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。

　　參考答案

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】計時器的Interval屬性是以毫秒為單位的，因此在設置時要注意ls=1000ms。

　　4在考生文件夾下有一個工程文件sit4.vbp，其窗體如圖所示。該程序用來對在上面的文本框中輸入的英文字母串(稱為“明文”)加密，加密結果(稱為“密文”)顯示在下面的文本框中。加密的方法為：選中一個單選按鈕，單擊“加密”按鈕后，根據選中的單選按鈕后面的數字n，將“明文”中的每個字母改為它后面的第lt個字母(“z”后面的字母認為是“8t”，“Z”后面的字母認為是“A”)，如圖所示。窗體中已經給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容。

　　注意：不得修改程序中的其他部分和控件的屬性。最后將修改后的文件按原文件名存盤。

　　【考點分析】本題考點有：Mid()函數、Len()函數、Asc()函數、String()函數、單選按鈕Value、If判斷語句以及For循環語句。

　　【解題思路】根據題意，首先要確定移動的位數，移動的位數是通過單選按鈕來選擇的，移動的值是由單選按鈕的Caption屬性值決定的，然后要確定循環的次數，循環的次數是由輸入字母的個數決定的。使用Mid()函數取出字符串中的字符，利用Asc()函數返回字符的代碼，利用String()函數將字符代碼轉換成字符。

　　Mid()函數的格式為Mid(字符串，P，n)。其中，Mid()函數從第P個字符開始，向后截取n個字符，P和n都是算術表達式。Mid()函數的第3個變量可以省，這樣將從第P個字符開始向后截取到字符串的結尾。

　　String()函數用于重復指定字符串中的字符，返回新的字符串。

　　Asc()函數用于返回一個Integer，代表字符串中首字母的字符代碼。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，將問號改為正確的內容。

　　參考答案(橫線部分是需考生填入的內容)

　　Private　 Sub Command1_Click()

　　Dim n As Integer，k As Integer，m As Integer

　　Dim c As String，a As String

　　For k=0 To 2

　　If Op1(k).Value Then

　　n=Val(Op1(k).____Caption______)

　　End If

　　Next k

　　m=Len(Text1.Text)

　　a=""

　　Fork=1 To__m_______

　　c=Mid$(Text1.Text，_____k_____，1)

　　c=String(1，Asc(c)+n)

　　If c>"z"Or c>”Z”And c<"a"Then

　　e=String(1，Asc(c)一26)

　　End If

　　__________=a+c

　　Next k

　　Text2.Text=a

　　End Sub

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】單選按鈕數組的起始下標為0，而不是1，在循環和判斷的時候要特別注意。

　　綜合操作題

　　5在考生文件夾下有一個工程文件sit5.vbp，功能是用來計算勾股定理整數組合的個數。勾股定理中3個數的關系是：a2+b2=C2。例如，3、4,5就是一個滿足條件的整數組合(注意：a，b，C分別為4，3，5與分別為3，4，5被視為同一個組合，不應該重復計算)。編寫程序，統計均在60以內的三個數滿足上述關系的整數組合的個數，并顯示在標簽Labell中。

　　注意：不得修改原有程序的控件屬性。在結束程序運行之前，必須至少正確運行一次程序，將統計的結果顯示在標簽中，否則無成績。最后把修改后的文件按原文件名存盤。

　　【考點分析】本題考點有：嵌套循環、文件編輯以及If判斷語句。

　　【解題思路】通過循環嵌套實現遍歷60以內的整數，通過勾股定理表達式判斷是否為勾股數整數組合，并通過變量的累加實現勾股定理整數組合個數的統計。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。

　　參考答案：

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】注意通過嵌套循環得出的m值，為所求m值的2倍，例如5^2=4^2+3^2，同時5^2=3^2+4^

　　2，因此最后的值應為m/2。