2010++下半年VB機(jī)試題庫(kù)5-11.doc

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)屬性?？丶?biāo)簽屬性NameBorderStyle設(shè)置值Label11程序中用到的控件及屬性見表3.26。表3.26步驟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)閉程序后按題目要求存盤。【綜合應(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)閉程序后按題目要求存盤?！揪C合應(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)閉程序后按題目要求存盤?！揪C合應(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)閉程序后按題目要求存盤。【綜合應(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() Fil