簡單應用題

　　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，在循環和判斷的時候要特別注意。

　　相關推薦：

　　2015年計算機二級《MSOffice》全真模擬試題匯總

　　2015計算機二級《C語言程序設計》無紙化操作題匯總