基本操作題，請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)

　　1在名稱(chēng)為Forml的窗體上添加一個(gè)名稱(chēng)為Com-mandl的命令按鈕，其標(biāo)題為“移動(dòng)本按鈕”，如圖所示。要求編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，每單擊按鈕一次，按鈕向左移動(dòng)l00。

　　要求：程序中不得使用變量，事件過(guò)程中只能寫(xiě)入一條語(yǔ)句。

　　注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名保存為sjr2.vbp，窗體文件名保存為sjr2.frm。

　　【考點(diǎn)分析】本題考點(diǎn)有：命令按鈕的Caption、Name和Left屬性。

　　【解題思路】在VisualBasic中，通過(guò)代碼使命令按鈕向左移動(dòng)100，需要用到按鈕的Left屬性，使其值在每單擊一次按鈕時(shí)減去100。

　　【操作步驟】

　　步驟1：新建一個(gè)窗體，按照要求建立控件并設(shè)置相應(yīng)屬性如表3.14所示。

　　步驟2：打開(kāi)代碼編輯窗口，在指定位置編寫(xiě)如下代碼。

　　參考答案：

　　Private Sub Command1_Click()

　　Command1.Left=Command1.Left-100

　　EndSub

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

　　2在名稱(chēng)為Forml的窗體上從上到下添加兩個(gè)文本框，名稱(chēng)分別為T(mén)extl、Text2;再添加一個(gè)命令按鈕，名稱(chēng)為Commandl，標(biāo)題為“選中字符數(shù)是”。程序運(yùn)行時(shí)，在Textl中輸入若干字符，選中部分內(nèi)容后，單擊“選中字符數(shù)是”按鈕，則選中的字符個(gè)數(shù)顯示在Text2中(如圖所示)。請(qǐng)編寫(xiě)按鈕的Click事件過(guò)程。

　　要求：程序中不得使用變量，事件過(guò)程中只能寫(xiě)一條語(yǔ)句。

　　注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名保存為sit2.vbp.窗體文件名保存為sit2.frm。

　　【考點(diǎn)分析】本題考點(diǎn)有：文本框的SelLength、Name和Caption屬性以及命令按鈕的Name和Caption屬性。

　　【解題思路】SelLength屬性用于返回/設(shè)置選定的字符數(shù)，通過(guò)文本框的Name和Caption屬性設(shè)置文本框的名稱(chēng)和標(biāo)題，通過(guò)命令按鈕的Name和Caption屬性設(shè)置命令按鈕的名稱(chēng)和標(biāo)題。

　　【操作步驟】

　　步驟1：建立界面，添加相應(yīng)的控件并設(shè)置控件的屬性。程序中涉及的控件及屬性見(jiàn)表3.44。

　　步驟2：打開(kāi)代碼編輯窗口，在指定位置編寫(xiě)如下代碼。

　　參考答案：

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

　　【易錯(cuò)提示】SelLengtb屬性與SelStart和SelText屬性容易混淆，SelStart屬性是返回/設(shè)置選定文本的起始點(diǎn)，SelText屬性是返回/設(shè)置當(dāng)前選定文本的字符串。

　　簡(jiǎn)單應(yīng)用題

　　3在考生文件夾下有一個(gè)工程文件sit3.vbp，窗體上已經(jīng)有一個(gè)標(biāo)簽Labell，請(qǐng)?zhí)砑右粋€(gè)單選按鈕數(shù)組，名稱(chēng)為Op1，含三個(gè)單選按鈕，它們的Index屬性分別為0、1、2，標(biāo)題依次為“飛機(jī)”、“火車(chē)”、“汽車(chē)”，再添加一個(gè)名稱(chēng)為T(mén)extl的文本框。窗體文件中已經(jīng)給出了Opl的Click事件過(guò)程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得在程序運(yùn)行時(shí)單擊“飛機(jī)”或“火車(chē)”單選按鈕時(shí)，在Textl中顯示“我坐飛機(jī)去”或“我坐火車(chē)去”，單擊“汽車(chē)”單選按鈕時(shí)，在Textl中顯示“我開(kāi)汽車(chē)去”，如圖所示。

　　注意：不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤(pán)。

　　【考點(diǎn)分析】本題考點(diǎn)有：?jiǎn)芜x按鈕數(shù)組的Name、Caption和Index屬性，文本框的Name屬性，SelectCase選擇語(yǔ)句，“+”字符連接。

　　【解題思路】通過(guò)Name屬性設(shè)置對(duì)象名稱(chēng);通過(guò)Caption屬性設(shè)置對(duì)象的標(biāo)題;設(shè)置兩個(gè)字符型變量a、b，a："我坐"，b="我開(kāi)"，用于SelectCase選擇語(yǔ)句的字符串連接;通過(guò)對(duì)單選按鈕數(shù)組Index屬性的查詢，實(shí)現(xiàn)單擊單選按鈕完成字符串連接和文本框顯示操作的功能。

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件，按照題目要求建立單選按鈕數(shù)組，如圖3.9所示。

　　步驟2：按照題目要求建立其他控件并設(shè)置其屬性，見(jiàn)表3.4。

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

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

　　Private Sub Op1_click (Index As Integer)

　　Dima As String，b As String，C As String

　　a="我坐"

　　b="我開(kāi)"

　　Select Case____Index______

　　´通過(guò)Index值決定響應(yīng)哪一個(gè)控件數(shù)組

　　CaSe　O

　　Text1.Text=a+Me.Op1(O).Caption+"去"

　　CaSe　1

　　Text1.Text=____a______+Me.Opl(1).Caption+"去"

　　´當(dāng)Index值為1時(shí)，選擇"我坐"

　　CaSe　2

　　Text1.Text=b+Me.Op1(2).Caption+"去"

　　End Select

　　EndSub

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

　　【易錯(cuò)提示】在窗體上復(fù)制一個(gè)控件時(shí)，如果需要?jiǎng)?chuàng)建控件數(shù)組，則在提示框中單擊“是”即可，如果不需要，則直接單擊“否”。

　　4在考生文件夾下有一個(gè)工程文件sjt4.vbp。窗體中有一個(gè)圖片框，圖片框中有—個(gè)藍(lán)色圓，名稱(chēng)為Shapel，如圖所示。

　　當(dāng)程序運(yùn)行時(shí)，單擊“開(kāi)始”按鈕，圓半徑逐漸變大(圓心位置不變)，當(dāng)圓充滿圖片框時(shí)則變?yōu)榧t色，并開(kāi)始逐漸縮小，當(dāng)縮小到初始大小時(shí)又變?yōu)樗{(lán)色，并再次逐漸變大，如此往復(fù)。單擊“停止”按鈕，則停止變化。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

　　提示：程序中的符號(hào)常量blue_color表示藍(lán)色的值，red_color表示紅色的值。

　　注意：不能修改程序的其他部分和各控件的屬性。最后將修改后的文件按原文件名存盤(pán)。

　　【考點(diǎn)分析】本題考點(diǎn)有：形狀控件的Height、Width、Left、Top和FillColor屬性，時(shí)鐘控件的Enabled屬性以及If判斷語(yǔ)句。

　　【解題思路】通過(guò)Shapel的Left屬性判斷圖片是否充滿圖片框或恢復(fù)到了初始大小，從而進(jìn)行圖片顏色紅藍(lán)的轉(zhuǎn)換以及圓形的放大或縮小。通過(guò)形狀控件的Height、Width、Left和Top屬性來(lái)實(shí)現(xiàn)圓形的大小變化。

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件。

　　步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“´”，

　　將問(wèn)號(hào)改為正確的內(nèi)容。

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

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

　　綜合操作題

　　5在窗體上建立三個(gè)菜單(名稱(chēng)分別為Read、Cale和Save，標(biāo)題分別為“讀人數(shù)據(jù)”、“計(jì)算并輸出”和“存盤(pán)”)，然后再添加一個(gè)文本框，名稱(chēng)為T(mén)ext1，MuhiLine屬性設(shè)置為T(mén)rue，ScrollBars屬性設(shè)置為2(如圖所示)。程序運(yùn)行后，如果執(zhí)行“讀人數(shù)據(jù)”命令，則讀入考生文件夾下datain1.txt文件中的100個(gè)整數(shù)，放人一個(gè)數(shù)組中，數(shù)組的下界為1;如果單擊“計(jì)算并輸出”按鈕，則把該數(shù)組中下標(biāo)為偶數(shù)的元素在文本框中顯示出來(lái)，求出它們的和，并把所求得的和在窗體上顯示出來(lái);如果單擊“存盤(pán)”按鈕，則把所求得的和存入考牛文件夾下的dataout.txt文件中。

　　在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體文件中的ReadData過(guò)程可以把datainl.txt文件中的100個(gè)整數(shù)讀入Arr數(shù)組中;而WriteData過(guò)程可以把指定的整數(shù)值寫(xiě)到考生文件夾下指定的文件中(整數(shù)值通過(guò)計(jì)算求得，文件名為dataout.txt)。

　　注意：考生不得修改窗體文件中已經(jīng)存在的程序。存盤(pán)時(shí)，工程文件名仍保存為sit5.vbp，窗體文件名仍保存為sjt5.frm。

　　【考點(diǎn)分析】本題考點(diǎn)有：文本框的Name、MultiLine、SerollBars和Text屬性，文件操作，菜單編輯器的使用(名稱(chēng)、標(biāo)題、內(nèi)縮符號(hào))，Art()函數(shù)以及Space()函數(shù)。

　　【解題思路】根據(jù)題意在“讀人數(shù)據(jù)”命令的Click事件過(guò)程中，通過(guò)調(diào)用ReadData過(guò)程將數(shù)據(jù)從datainl.txt文件讀入到數(shù)組Arr(窗體變量)中;在“計(jì)算并輸出”命令的Click事件過(guò)程中，在For循環(huán)語(yǔ)句(循環(huán)變量i的初值為2，終值為100，步長(zhǎng)為2)中依次將數(shù)組Art中下標(biāo)為偶數(shù)的元素顯示在文本框中，并將其值累加到變量sum;在“存盤(pán)”命令的Click事件過(guò)程中，通過(guò)調(diào)用WriteData過(guò)程將sum的值寫(xiě)入數(shù)據(jù)文件dataout.txt中。

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件，利用菜單設(shè)計(jì)器，按表中的設(shè)置建立菜單項(xiàng)，在窗體Form1中繪制一個(gè)文本框，其相關(guān)屬性及其值見(jiàn)表3.19和表3.20。

　　步驟2：打開(kāi)代碼編輯窗口，在代碼編輯窗口指定位置編寫(xiě)以下代碼。

　　參考答案：

　　´需要考生編寫(xiě)的內(nèi)容

　　Dim Sum As integer

　　考生編寫(xiě)程序結(jié)束

　　´需要考生編寫(xiě)的內(nèi)容

　　Private Sub Calc_Click()

　　Text1.Text=""

　　For i=2 To 100 Step2’從2開(kāi)始循環(huán)，以2為步長(zhǎng)的下標(biāo)都是偶數(shù)

　　Text1.Text;=Text1.Text&Art(i)&

　　Space(5)

　　Sum=Sum+Arr(i)。對(duì)下標(biāo)為偶數(shù)的值求和

　　Next i

　　Print sum

　　End Sub

　　Private Sub Read_Click()

　　ReadData'調(diào)用ReadData子過(guò)程

　　End Sub

　　Private Sub Save_Click()´調(diào)用Save_Click函數(shù)

　　WriteData"dataout.txt"，sum

　　End Sub

　　´考生編寫(xiě)程序結(jié)束

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

　　【易錯(cuò)提示】調(diào)用WriteData過(guò)程時(shí)需傳遞參數(shù)dataout.txt和sum，變量sum應(yīng)為窗體變量。