在1上用名稱為Shape1的形狀控件畫(huà)一個(gè)橢圓,高、寬分別為1000、2000.doc

基礎(chǔ)題（1）【考點(diǎn)分析】本題考點(diǎn)有：窗體的Caption、MaxButton屬性，形狀控件的Name、Height、Width、Shape、BorderColor屬性?！窘忸}思路】根據(jù)題意建立相應(yīng)的控件并設(shè)置其屬性。橢圓的邊線顏色通過(guò)形狀控件的BorderColor屬性來(lái)設(shè)置?！静僮鞑襟E】步驟1：建立界面，添加控件并設(shè)置控件的屬性。程序中用到的控件及屬性見(jiàn)表3.246. 表3.246步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)?；A(chǔ)題（2）【考點(diǎn)分析】本題考點(diǎn)有：命令按鈕的Name、Caption屬性，窗體的Caption屬性，窗體的Show和Hide方法以及窗體的Click事件?！窘忸}思路】要把Form2設(shè)為啟動(dòng)窗體，只需選擇工程菜單下的工程1屬性，在通用選項(xiàng)卡中將啟動(dòng)對(duì)象選為Form2即可。 【操作步驟】步驟1：新建一個(gè)工程文件并建立兩個(gè)窗體Form1和Form2，選擇工程菜單下的工程1屬性，在通用選項(xiàng)卡中將啟動(dòng)對(duì)象選為Form2。程序中用到的控件及屬性見(jiàn)表3.247。 表3.247步驟2：編寫(xiě)程序代碼。參考答案窗體1的代碼Private Sub Form_Click()Form1.HideEnd Sub窗體2的代碼Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Click()Form1.ShowEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。簡(jiǎn)答題（1）【考點(diǎn)分析】本題考點(diǎn)有：文本框的Text屬性單選按鈕的Name、Caption、Value屬性，Mid( )函數(shù)，If判斷語(yǔ)句和For循環(huán)語(yǔ)句?！窘忸}思路】用Unum來(lái)表示大寫(xiě)字母的個(gè)數(shù)，Lnum來(lái)表示小寫(xiě)字母的格式。通過(guò)Mid( )函數(shù)對(duì)變量s中的內(nèi)容進(jìn)行逐個(gè)判斷，將滿足條件的字母?jìng)€(gè)數(shù)加1；選擇不同的單選按鈕，Unum和Lnum之間將運(yùn)用不同的計(jì)算大小寫(xiě)字母的個(gè)數(shù)關(guān)系，最后將統(tǒng)計(jì)的結(jié)果顯示在文本框中?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件，建立單選按鈕并設(shè)置其屬性。程序中用到的控件及屬性見(jiàn)表3.248。 表3.248步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Dim s As StringPrivate Sub Command1_Click() Open in3.dat For Input As #1 s = Input$(LOF(1), #1) Close #1End SubPrivate Sub Command2_Click()由考生編寫(xiě)的內(nèi)容End SubPrivate Sub Form_Unload(Cancel As Integer) Open out3.dat For Output As #1 Print #1, Option1.Value, Option2.Value, Option3.Value, Text1.Text Close #1End Sub程序結(jié)束參考答案 Lnum = 0 Unum = 0 For i = 1 To Len(s) If Mid(s, i, 1) = A And Mid(s, i, 1) = a And Mid(s, i, 1) = z Then Lnum = Lnum + 1 Next i If Option1.Value = True Then Text1 = Unum - Lnum If Option2.Value = True Then Text1 = Unum + Lnum If Option3.Value = True Then Text1 = Unum * Lnum步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。簡(jiǎn)答題（2）【考點(diǎn)分析】本題考點(diǎn)有：圖片框的Visible屬性和DragDrop事件圖片控件數(shù)組，If判斷語(yǔ)句和For循環(huán)語(yǔ)句。【解題思路】在VB窗體上拖動(dòng)圖像程序設(shè)計(jì)，直接使用DragDrop事件實(shí)現(xiàn)對(duì)圖像框的隨意拖動(dòng)、精確拖動(dòng)，這種方法也適用于其它可以拖動(dòng)的控件。通過(guò)For循環(huán)語(yǔ)句將圖片框數(shù)組的Visible屬性設(shè)為T(mén)rue或False來(lái)實(shí)現(xiàn)香蕉被放入圖片框的效果?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) For k = 0 To 5 If Pic(k).Visible = False Then Pic(k).Visible = True Exit For End If Next kEnd Sub程序結(jié)束步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。綜合題【考點(diǎn)分析】本題考點(diǎn)有：數(shù)組的定義和應(yīng)用，二維數(shù)組，文件操作，文本框的Text屬性，&連接符，VB符號(hào)常量Chr$(13) 和Chr$(10)，Int( )函數(shù)，Str( )函數(shù)，If判斷語(yǔ)句和For循環(huán)語(yǔ)句。 【解題思路】單擊每人平均分按鈕，先用For循環(huán)將每個(gè)學(xué)生各科得分加總放入變量Sum中，用Sum值除以6，并用Int( )函數(shù)截尾取整放入Text2數(shù)組中。單擊每科平均分按鈕，先用For循環(huán)將每科所有學(xué)生的得分加總放入變量Sum中，用Sum值除以5，并用Int( )函數(shù)截尾取整放入Text3數(shù)組中。【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Dim a(5, 6) As Integer, n(5) As StringPrivate Sub Command1_Click() Open in5.dat For Input As #1 Text1 = For i = 1 To 5 Input #1, n(i) Text1 = Text1 + n(i) For j = 1 To 6 Input #1, a(i, j) Text1 = Text1 + + Str(a(i, j) Next j Text1 = Text1 + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) Next i Close #1End SubPrivate Sub Command2_Click()需要考生編寫(xiě)的內(nèi)容End SubPrivate Sub Command3_Click()需要考生編寫(xiě)的內(nèi)容 End SubPrivate Sub Command4_Click() Open out5.dat For Output As #1 For k = 0 To 4 Print #1, Text2(k).Text Next k For k = 0 To 5 Print #1, Text3(k).Text Next k Close #1End Sub程序結(jié)束參考答案Private Sub Command2_Click() For i = 1 To 5 Sum = 0 For j = 1 To 6 Sum = Sum + a(i, j) Next j Text2(i - 1).Text = Int(Sum / 6) Next iEnd SubPrivate S