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

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