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

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