簡單應(yīng)用題

　　3在考生文件夾下有一個(gè)工程文件sit4.vbp，窗體上已經(jīng)添加所有控件，如圖所示。在程序運(yùn)行時(shí)，如果單擊“開始”按鈕，則每隔0.1秒窗體上的汽車圖標(biāo)向右移動(dòng)一次(初始狀態(tài)下不移動(dòng));如果單擊“停止”按鈕，則停止移動(dòng)。

　　請完成以下工作：

　　①設(shè)置適當(dāng)控件的適當(dāng)屬性，使得每0.1秒汽車圖標(biāo)向右移動(dòng)一次，而初始狀態(tài)下不移動(dòng)。

　�、谡埲サ舫绦蛑械淖⑨尫�，把程序中的?改為正確的內(nèi)容。

　　③為兩個(gè)命令按鈕編寫適當(dāng)?shù)氖录�過程.最后以原文件名存盤。

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

　　參考解析：

　　【考點(diǎn)分析】本題考點(diǎn)有：計(jì)時(shí)器的Interval和Ena-bled屬性以及圖片框的Left屬性。

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

　　【操作步驟】

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

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

　　參考答案

　　步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

　　【易錯(cuò)提示】計(jì)時(shí)器的Interval屬性是以毫秒為單位的，因此在設(shè)置時(shí)要注意ls=1000ms。

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

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

　　參考解析：

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

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

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

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

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

　　【操作步驟】

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

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

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

　　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：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

　　【易錯(cuò)提示】單選按鈕數(shù)組的起始下標(biāo)為0，而不是1，在循環(huán)和判斷的時(shí)候要特別注意。

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)二級《MSOffice》全真模擬試題匯總

　　2015計(jì)算機(jī)二級《C語言程序設(shè)計(jì)》無紙化操作題匯總