在1上畫(huà)一個(gè)Combo1的組合框,其寬度為1200,其類型如圖所示(簡(jiǎn)單組合框).doc

基礎(chǔ)題（1）【考點(diǎn)分析】本題考點(diǎn)有：組合框的Name、Width、Style、List屬性和窗體的MaxButton、MinButton屬性?！窘忸}思路】通過(guò)將MaxButton、MinButton屬性值設(shè)置為False使窗體標(biāo)題欄上不顯示最大化和最小化按鈕?！静僮鞑襟E】步驟1：建立界面，添加控件并設(shè)置控件的屬性。程序中用到的控件及屬性見(jiàn)表3.159。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?；A(chǔ)題（2）【考點(diǎn)分析】本題考點(diǎn)有：文本框的Name屬性和SetFocus方法，命令按鈕的Name和Caption屬性。【解題思路】文本框的名稱由其Name屬性設(shè)置；命令按鈕的名稱和標(biāo)題由其Name和Caption屬性設(shè)置。要將光標(biāo)置于所需要的文本框可用獲得焦點(diǎn)的SetFocus方法?！静僮鞑襟E】步驟1：建立界面，添加并設(shè)置控件的屬性。程序中用到的控件及屬性見(jiàn)表3.160。步驟2：編寫(xiě)程序代碼。參考答案Private Sub Command1_Click() Text1.SetFocusEnd SubPrivate Sub Command2_Click() Text2.SetFocusEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。簡(jiǎn)單題（1）【考點(diǎn)分析】本題考點(diǎn)有：?jiǎn)芜x按鈕的Caption、Value屬性，單選按鈕數(shù)組，If判斷語(yǔ)句和For循環(huán)語(yǔ)句?！窘忸}思路】單選按鈕的標(biāo)題由其Caption屬性設(shè)定；在窗體上添加一個(gè)單選按鈕控件，通過(guò)對(duì)單選按鈕控件的復(fù)制產(chǎn)生單選按鈕控件數(shù)組，其Index不同。單選按鈕的Value屬性值為False或True決定該單選按鈕是否被選中?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件，在窗體上添加一個(gè)單選按鈕控件組Option1，程序中用到的控件及屬性見(jiàn)表3.161。 表3.161控件單選按鈕組單選按鈕1單選按鈕2單選按鈕3單選按鈕4屬性NameCaptionIndexValueCaptionIndexCaptionIndexCaptionIndex設(shè)置值Option1選項(xiàng)10True選項(xiàng)21選項(xiàng)32選項(xiàng)43步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Private Sub Command1_Click() For k = 0 To 3 If Option1(k).Value Then n = k End If Next k Option1(n).Value = False n = n + 1 If n = 4 Then n = 0 End If Option1(n).Value = TrueEnd Sub程序結(jié)束步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。簡(jiǎn)單題（2）【考點(diǎn)分析】本題考點(diǎn)有：組合框的List、ListIndex屬性，命令按鈕的Caption屬性，Left( )函數(shù)，Right( )函數(shù)，Mid( )函數(shù)，Select Case語(yǔ)句?！窘忸}思路】用Select Case語(yǔ)句來(lái)表示選擇列表框不同的值。Left( )函數(shù)表示取字符串左邊的n個(gè)字符；Right( )函數(shù)表示取字符串右邊的n個(gè)字符； Mid( )函數(shù)的語(yǔ)法為：Mid( 字符串,p,n)，表示從位置p開(kāi)始取字符串的n個(gè)字符?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Dim is_num As BooleanPrivate Sub Command1_Click() Dim tmpStr As String * 50 Select Case Combo1.ListIndex Case 0 tmpStr = Left(Trim(Text1.Text), 3) Case 1 tmpStr = Right(Trim(Text1.Text), 3) Case 2 tmpStr = Mid(Trim(Text1.Text), 3, 4) End Select Text2.Text = tmpStr End Sub程序結(jié)束步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。綜合題【考點(diǎn)分析】本題考點(diǎn)有：文件操作，數(shù)據(jù)類型和數(shù)組，Val( )函數(shù)，F(xiàn)or循環(huán)語(yǔ)句，文本框的Text屬性以及命令按鈕的Click事件。【解題思路】在Command1_Click事件過(guò)程中，用循環(huán)、變量代換和數(shù)組來(lái)計(jì)算一個(gè)數(shù)是前兩個(gè)數(shù)之和的數(shù)列的第40項(xiàng)。【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Dim a(50) As LongPrivate Sub Command1_Click()需要考生編寫(xiě)的程序End SubPrivate Sub Command2_Click() Open App.Path & out5.txt For Output As #1 Print #1, Text2.Text Close #1End Sub程序結(jié)束參考答案 Dim f As Long a(1) = 1 a(2) = 1 Fo