2010上半年VB機(jī)考題庫.doc

1【基本操作】（1）【操作步驟】 步驟1：打開Visual Basic，按照題目的要求新建窗體并添加一個(gè)水平滾動(dòng)條控件。步驟2：在屬性窗口中，按題照目的要求設(shè)置水平滾動(dòng)條的相關(guān)屬性步驟3：按照題目的要求，在窗體上添加兩個(gè)標(biāo)簽控件。 步驟4：按照題目的要求設(shè)置兩個(gè)標(biāo)簽的相關(guān)屬性。程序中用到的控件及屬性見表3.1。表3.1控件滾動(dòng)條標(biāo)簽1標(biāo)簽2屬性NameMinMaxLarge ChangeNameCaptionNameCaption設(shè)置值H1110010L11L2100步驟5：按下鍵盤上的F5鍵運(yùn)行程序。步驟6：按題目要求保存工程和窗體文件。（2）【操作步驟】步驟1：新建窗體，按表3.2建立菜單項(xiàng)并設(shè)置其屬性。表3.2標(biāo)題操作復(fù)制清除名稱M1CopyClear內(nèi)縮符號(hào)011圖3.7步驟2：同步驟3，輸入第3項(xiàng)的標(biāo)題和名稱，單擊確定即可。步驟3：添加文本框控件，按照表3.3設(shè)置文本框的屬性。表3.3控件文本框1文本框2屬性NameName設(shè)置值Text1Text2步驟4：編寫程序代碼。參考答案Private Sub Clear_Click() Text2.Text = End SubPrivate Sub Copy_Click() Text2.Text = Text1.TextEnd Sub步驟7：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件，按照題目要求建立控件數(shù)組。步驟2：按照題目要求設(shè)置控件的屬性，見表3.4。參考答案第一個(gè)？處填入：Index第二個(gè)？處填入：a（2）【操作步驟】步驟1：打開本題工程文件，按照題目要求建立框架控件并設(shè)置其屬性。步驟2：按照步驟1建立其他控件并設(shè)置相關(guān)屬性，程序中用到的控件及屬性見表3.5和表3.6。表3.6控件單選按鈕1單選按鈕2單選按鈕3單選按鈕4屬性NameCaptionNameCaptionNameCaptionNameCaption設(shè)置值Op1男Op2女Op3學(xué)生Op4老師步驟4：分析并編寫程序代碼。程序提供代碼Private Sub Form Unload(Cancel As Integer)Open out4.txt For Output As #1Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.TextClose #1End Sub程序結(jié)束參考答案Private Sub C1_Click() Text1.Text = 我是 If Op1.Value Then Text1.Text = Text1.Text & Op1.Caption Else Text1.Text = Text1.Text & Op2.Caption End If If Op3.Value Then Text1.Text = Text1.Text & Op3.Caption Else Text1.Text = Text1.Text & Op4.Caption End IfEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件。步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To Op1.Count - 1 If Op1(i).Value = True Then n = Val(Op1(i).Caption) Exit For End If Next ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Text1.Text = a(n)End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。2【基本操作】（1）【操作步驟】步驟1：新建一個(gè)窗體，按照要求建立控件并設(shè)置其屬性。步驟2：調(diào)試并運(yùn)行程序。步驟3：關(guān)閉程序后按題目要求保存工程和窗體文件。（2）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置其屬性。程序中用到的控件及屬性見表3.7。表3.7控件圖片框?qū)傩訬ame設(shè)置值P1步驟2：編寫程序代碼。參考答案Private Sub Form_Click() Form1.Print 單擊窗體End SubPrivate Sub P1_Click() P1.Print 單擊圖片框End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：按題目要求打開工程文件，設(shè)置計(jì)時(shí)器屬性。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：True第2個(gè)？處填入：Height第3個(gè)？處填入：Enabled步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：tmp*a第2個(gè)？處填入：tmp第3個(gè)？處填入：xn(t, i)第4個(gè)？處填入：z步驟3：按照題目要求調(diào)試并運(yùn)行程序。步驟4：關(guān)閉程序后，按照題目要求保存工程和窗體文件?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案 Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i) And arr(i) = b Then b = arr(i) Label4.Caption = b Next步驟3：按照題目要求調(diào)試并運(yùn)行程序。 步驟4：關(guān)閉程序后，按題目要求存盤。3【基本操作】(1)【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立文本框控件并設(shè)置其屬性步驟2：按照步驟1建立其他控件并設(shè)置相關(guān)屬性，程序中涉及的控件及屬性見表3.8和表3.9。 步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置圖像框相應(yīng)屬性。步驟2：按照步驟1設(shè)置其他控件相關(guān)屬性，程序中涉及的控件及屬性見表3.10和3.11。表3.10控件圖像框?qū)傩訬ameWidthHeightPictureStretch設(shè)置值Image117001900pic1.bmpTrue表3.11控件命令按鈕1命令按鈕2屬性NameCaptionNameCaption設(shè)置值C1放大C2縮小步驟3：編寫程序代碼。參考答案Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPrivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】(1)【操作步驟】步驟1：按照題目要求打開工程文件。步驟2：分析并編寫程序代碼。參考答案 Dim i As Integer Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100 If isnarc(a(i) Then If max = a(i) Then min = a(i) End If Next i Text1 = max Text2 = min步驟3：按照題目要求調(diào)試并運(yùn)行程序。步驟4：關(guān)閉程序后，按題目要求存盤。(2)【操作步驟】步驟1：打開本題工程文件，按照題目要求建立控件并設(shè)置組合框控件屬性。步驟2：按照步驟1設(shè)置其他控件的相關(guān)屬性，程序中用到的控件及屬性見表3.12。步驟3：分析并編寫程序代碼。參考答案Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n To 5000 If i Mod n = 0 Then sum = sum + i End If Next i Text1.Text = sumEnd Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件，按照題目要求建立菜單并設(shè)置其屬性。菜單屬性如表3.13所示。表3.13控件編輯剪切復(fù)制粘貼名稱EditCutCopyPaste內(nèi)縮符號(hào)0111步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：1第2個(gè)？處填入：2第3個(gè)？處填入：Text1.Text Text3.Text第4個(gè)？處填入：Text2.Text Text3.Text步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。4【基本操作】(1)【操作步驟】步驟1：新建一個(gè)窗體，按照要求建立控件并設(shè)置其屬性。程序中用到的控件及屬性見表3.14和3.15。表3.14控件命令按鈕屬性NameCaption設(shè)置值Command1打開文件步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() CD1.ShowOpenEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：新建一個(gè)窗體，按照要求建立控件并設(shè)置相應(yīng)屬性。程序中用到的控件及屬性見表3.16。表3.16控件命令按鈕屬性NameCaption設(shè)置值Command1移動(dòng)本按鈕步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() Command1.Left = Command1.Left - 100End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】(1)【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表3.17和3.18步驟2：分析并編寫程序代碼。參考答案Private Sub Command1_Click() Combo1.AddItem Text1End SubPrivate Sub Command2_Click() Print Combo1.ListCountEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2) 【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：Caption第2個(gè)？處填入：m第3個(gè)？處填入：k第4個(gè)？處填入：a步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。【綜合應(yīng)用】【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：a(k)第2個(gè)？處填入：ch排序按鈕的代碼Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = For i = 50 To 2 Step -1 For j = 1 To 49 If a(j) a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j) + Next j Text2.Text = chEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。5【基本操作】（1）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置標(biāo)簽屬性。步驟2：按照步驟1設(shè)置其他控件相關(guān)屬性，程序用到的控件及其屬性見表3.19和3.20。表3.19控件標(biāo)簽1標(biāo)簽2屬性NameCaptionNameCaption設(shè)置值Label1姓名Label2年齡步驟3：編寫程序代碼。參考答案Private Sub Command1_Click() Form1.Print Text1.Text & ,現(xiàn)年 & Text2.Text & 歲End Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置圖片框的屬性步驟2：按照步驟1設(shè)置其他控件相關(guān)屬性，程序中用到的控件及其屬性見表3.21。 步驟3：編寫程序代碼。參考答案Private Sub Command1_Click() HScroll1.Max = 1500 HScroll1.Min = 100 HScroll1.LargeChange = 100 HScroll1.SmallChange = 10End SubPrivate Sub HScroll1_Change() Picture1.Width = HScroll1.ValueEnd Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件，按表3.22所列在窗體建立控件并設(shè)置其屬性。表3.22控件列表框文本框?qū)傩訬ameName設(shè)置值List1Text1步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：Text1.Text第2個(gè)？處填入：List1.ListCount 1第3個(gè)？處填入：Text1.Text第4個(gè)？處填入：i步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：LBound第2個(gè)？處填入：UBound第3個(gè)？處填入：a第4個(gè)？處填入：第5個(gè)？處填入：a(i)第6個(gè)？處填入：arr2步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件，利用菜單設(shè)計(jì)器，按表中的設(shè)置建立菜 單項(xiàng)，并在窗體Form1中添加一個(gè)文本框。其相關(guān)屬性及其值見表3.23和3.24。表3.23標(biāo)題控件讀入數(shù)據(jù)計(jì)算并輸出存盤名稱ReadCalc Save內(nèi)縮符號(hào)000表3.24控件文本框?qū)傩訬ameMultiLineScrollBarsText設(shè)置值Text1TRUE2步驟2：分析并編寫程序代碼。參考答案Dim sum As LongPrivate Sub Calc_Click() Text1.Text = For i = 2 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sumEnd SubPrivate Sub Read_Click() ReadDataEnd SubPrivate Sub Save_Click() WriteData dataout.txt, sumEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。6【基本操作】（1）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立命令按鈕控件并設(shè)置命令按鈕和窗體的相應(yīng)屬性。程序中用到的屬性見表3.25。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立標(biāo)簽控件并設(shè)置標(biāo)簽的相應(yīng)屬性。程序中用到的控件及屬性見表3.26。表3.26控件標(biāo)簽屬性NameBorderStyle設(shè)置值Label11步驟2：編寫程序代碼。參考答案Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.WidthEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：1000第2個(gè)？處填入：Min第3個(gè)？處填入：arrN(i) arrN(i)步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案Function Fun() Dim s As Integer, i As Integer For i = 0 To 1000 If i Mod 7 0 Then s = s + 1 End If Next i Fun = sEnd Function步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件，按照題目要求建立命令按鈕控件并設(shè)置命令按鈕1的相應(yīng)屬性。步驟3：按照步驟1設(shè)置另一個(gè)命令按鈕控件相關(guān)屬性，程序中用到的控件及屬性見表3.27所示。表3.27控件命令按鈕1命令按鈕2屬性NameCaptionNameCaption設(shè)置值C1讀入數(shù)據(jù)C2計(jì)算步驟4：分析并編寫程序代碼。參考答案Private Sub C1_Click() Call ReadData1 Call ReadData2End SubPrivate Sub C2_Click() Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i Print sum=; sum WriteData dataout.txt, sumEnd Sub步驟5：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。7【基本操作】(1)【操作步驟】步驟1：建立界面，按照題目要求建立一個(gè)名稱為Ch1的復(fù)選框數(shù)組并設(shè)置其相應(yīng)屬性。步驟2：按照步驟1設(shè)置其他控件相關(guān)屬性，程序中用到的控件及屬性見表3.28和表3.29。表3.28控件標(biāo)簽復(fù)選框1屬性NameCaptionCaptionIndexValue設(shè)置值L1業(yè)余愛好體育01步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：新建一個(gè)標(biāo)準(zhǔn)EXE工程，在窗體中添加個(gè)文本框，在屬性設(shè)置窗口中將其Name屬性值設(shè)置為Text1。打開菜單設(shè)計(jì)器，按表3.30中的設(shè)置建立菜單項(xiàng)。表3.30標(biāo)題操作顯示隱藏名稱M1ShowHide內(nèi)縮符號(hào)011步驟2：編寫程序代碼。參考答案Private Sub Hide_Click() Text1.Visible = FalseEnd SubPrivate Sub Show_Click() Text1.Visible = TrueEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】(1)【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立標(biāo)簽控件并設(shè)置標(biāo)簽的相應(yīng)屬性。步驟2：按照步驟1設(shè)置其他控件相關(guān)屬性，程序中用到的控件及其屬性見表3.31和表3.32。步驟3：分析并編寫程序代碼。程序提供代碼程序結(jié)束參考答案Private Sub C1_Click() Text1.PasswordChar = End SubPrivate Sub C2_Click() Text1.PasswordChar = ?End SubPrivate Sub C3_Click() Text2.Text = Text1.TextEnd Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。(2)【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立圖片框及通用對(duì)話框控件并設(shè)置圖片框及通用對(duì)話框相應(yīng)屬性。程序中用到的控件及其屬性見表3.33和表3.34。表3.33控件圖片框通用對(duì)話框?qū)傩訬amePictureNameDialogTitle設(shè)置值P1Open.icoCD1打開文件步驟2：分析并編寫程序代碼。參考答案Private Sub P1_Click() CD1.ShowOpenEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件，按照題目要求建立標(biāo)簽控件并設(shè)置標(biāo)簽的Caption屬性為回文個(gè)數(shù)為。步驟2：分析并編寫程序代碼。參考答案Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = TrueEnd Function步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。8【基本操作】（1）【操作步驟】步驟1：新建窗體，按照題目要求建立控件數(shù)組并設(shè)置窗體和第一個(gè)復(fù)選框的屬性。程序中用到的控件及屬性見表3.35。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立滾動(dòng)條控件及命令按鈕控件并設(shè)置其屬性。程序中用到的控件及屬性見表3.36步驟2：編寫程序代碼。參考答案Private Sub C1_Click() HS1.Value = HS1.Value + 10End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立文本框控件及一個(gè)彈出式菜單并設(shè)置菜單屬性。步驟2：按照步驟1設(shè)置其他子菜單項(xiàng)的相關(guān)屬性，程序中用到菜單屬性見表3.37。表3.37標(biāo)題控件(任意)加粗斜體下劃線名稱FormatM1M2M3內(nèi)縮符號(hào)0111步驟3：分析并編寫程序代碼。參考答案Private Sub M1_Click() Text1.FontBold = TrueEnd SubPrivate Sub M2_Click() Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click() Text1.FontUnderline = TrueEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Me.PopupMenu Format End IfEnd Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件，按照題目要求設(shè)置屬性。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：Show第2個(gè)？處填入：Caption第3個(gè)？處填入：k第4個(gè)？處填入：PasswordChar步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。【綜合應(yīng)用】【操作步驟】步驟1：打開本題工程文件，將文本框Text1的PasswordChar屬性設(shè)置為*。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：Text1.Text第2個(gè)？處填入：PasswordChar第3個(gè)？處填入：0第4個(gè)？處填入：False步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。9【基本操作】【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立圖像框控件并設(shè)置其屬性。程序中用到的控件及屬性見表3.38。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：n第2個(gè)？處填入：0第3個(gè)？處填入：fun = s步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：Step 1第2個(gè)？處填入：List1.List(k)第3個(gè)？處填入：k第4個(gè)？處填入：Text1或Text1.Text步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。【綜合應(yīng)用】【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼參考答案第1個(gè)？處填入：0第2個(gè)？處填入：stepy第3個(gè)？處填入：Timer1.Enabled第4個(gè)？處填入：Timer1.Enabled第5個(gè)？處填入：stepy步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。10【基本操作】（1）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立控件并設(shè)置其屬性。程序中用到的控件及屬性見表3.41。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立標(biāo)簽控件并設(shè)置其屬性。程序中用到的控件及屬性見表3.42。步驟2：編寫程序代碼。參考答案Private Sub Form_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Load() Form1.Caption = 標(biāo)簽End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：Command1第2個(gè)？處填入：Label1第3個(gè)？處填入：Control第4個(gè)？處填入：Label2.Caption步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件，將Timer1的Interval屬性設(shè)置為500。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：False第2個(gè)？處填入：True第3個(gè)？處填入：8第4個(gè)？處填入：0步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案 Max = a(i, 1) For j = 1 To 5 If Max a(i, j) Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j Next j步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。11【基本操作】（1）【操作步驟】步驟1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.35。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立驅(qū)動(dòng)器列表框、目錄列表框、文件列表框控件并設(shè)置其屬性。步驟2：按照步驟1建立其他控件并設(shè)置相關(guān)屬性，程序中用到的控件及屬性見表3.44和表3.45。步驟3：編寫程序代碼。參考答案Private Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() Label2 = File1.FileNameEnd Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：List(i).AddItem Text1.Text第2個(gè)？處填入：48第3個(gè)？處填入：0步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：m第2個(gè)？處填入：f(i)第3個(gè)？處填入：t第4個(gè)？處填入：t * i第5個(gè)？處填入：t步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案Private Sub Command1 Click() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 60 For j = 1 To 60 For k = 1 To 60 If i 2 = j 2 + k 2 Then m = m + 1 End If Next k Next j Next i Label1 = m / 2步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。12【基本操作】（1）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立列表框控件并設(shè)置窗體及列表框?qū)傩浴３绦蛑杏玫降目丶皩傩砸姳?.46。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：建立界面，添加一個(gè)命令按鈕設(shè)置Name屬性為Command1，Caption屬性為彈出菜單。程序中用到的控件及屬性見表3.47。表3.47標(biāo)題文件打開關(guān)閉保存名稱menu1m1m2m3內(nèi)縮符號(hào)0111步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() PopupMenu menu1End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：Text1, 1第2個(gè)？處填入：ch第3個(gè)？處填入：n步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：True第2個(gè)？處填入：red color第3個(gè)？處填入：Shape1.Left第4個(gè)？處填入：Shape1.Top第5個(gè)？處填入：blue color步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：2第2個(gè)？處填入：App.Path & & in5.txt第3個(gè)？處填入：s第4個(gè)？處填入：2Private Sub Command2 Click() Dim ch As String Dim s As String Dim n As Long s = Text1.Text Text1.Text = For n = 1 To Len(s) ch = Mid(s, n, 1) If ch = E Or ch = N Or ch = T Then ch = LCase(ch) ElseIf ch = e Or ch = n Or ch = t Then ch = UCase(ch) End If Text1.Text = Text1 & ch NextEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤，如圖3.58所示。13【基本操作】（1）【操作步驟】步驟1：建立界面，并設(shè)置控件的屬性。程序中的控件及屬性見表3.48和3.49。表3.48控件框架1框架2屬性NameCaptionNameCaption設(shè)置值Frame1字號(hào)Frame2修飾步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.50。步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() Text2 = Text1.SelLengthEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！竞?jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：st第2個(gè)？處填入：c第3個(gè)？處填入：word步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件， 設(shè)置計(jì)時(shí)器Interval屬性為100，Enabled屬性設(shè)置為False。步驟2：分析并編寫程序代碼。、參考答案？處填入：Left =Private Sub C1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click() Timer1.Enabled = FalseEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案 For i = 1 To Val(Text1.Text) If IsPrime(i) And IsPrime(Val(Text1.Text) - i) Then Label1 = i Label2 = Val(Text1.Text) - i Exit For End If Next i步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。14【基本操作】（1）【操作步驟】 步驟1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.51。 步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立命令按鈕控件及通用對(duì)話框并設(shè)置其屬性。程序中用到的控件及屬性見表3.52。步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() CommonDialog1.ShowSaveEnd Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。【簡(jiǎn)單應(yīng)用】（1）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：Y第2個(gè)？處填入：X1第3個(gè)？處填入：radius&第4個(gè)？處填入：Label1步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。參考答案第1個(gè)？處填入：12第2個(gè)？處填入：1第3個(gè)？處填入：s s = 0 For k = 1 To n s = s + f(k) Next Text1 = s步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！揪C合應(yīng)用】【操作步驟】步驟1：打