2010++下半年VB机试题库5-11.doc

5【基本操作】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置标签属性。步骤2：按照步骤1设置其他控件相关属性，程序用到的控件及其属性见表3.19和3.20。表3.19控件标签1标签2属性NameCaptionNameCaption设置值Label1姓名Label2年龄步骤3：编写程序代码。参考答案Private Sub Command1_Click() Form1.Print Text1.Text & ,现年 & Text2.Text & 岁End Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置图片框的属性步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其属性见表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：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件，按表3.22所列在窗体建立控件并设置其属性。表3.22控件列表框文本框属性NameName设置值List1Text1步骤2：分析并编写程序代码。参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount 1第3个？处填入：Text1.Text第4个？处填入：i步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：a第4个？处填入：第5个？处填入：a(i)第6个？处填入：arr2步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜 单项，并在窗体Form1中添加一个文本框。其相关属性及其值见表3.23和3.24。表3.23标题控件读入数据计算并输出存盘名称ReadCalc Save内缩符号000表3.24控件文本框属性NameMultiLineScrollBarsText设置值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：调试并运行程序，关闭程序后按题目要求存盘。6【基本操作】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性。程序中用到的属性见表3.25。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。控件标签属性NameBorderStyle设置值Label11程序中用到的控件及属性见表3.26。表3.26步骤2：编写程序代码。参考答案Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.WidthEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：1000第2个？处填入：Min第3个？处填入：arrN(i) arrN(i)步骤3：调试并运行程序，关闭程序后按题目要求存盘。（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：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮1的相应属性。步骤3：按照步骤1设置另一个命令按钮控件相关属性，程序中用到的控件及属性见表3.27所示。表3.27控件命令按钮1命令按钮2属性NameCaptionNameCaption设置值C1读入数据C2计算步骤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：调试并运行程序，关闭程序后按题目要求存盘。7【基本操作】(1)【操作步骤】步骤1：建立界面，按照题目要求建立一个名称为Ch1的复选框数组并设置其相应属性。步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及属性见表3.28和表3.29。表3.28控件标签复选框1属性NameCaptionCaptionIndexValue设置值L1业余爱好体育01步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：新建一个标准EXE工程，在窗体中添加个文本框，在属性设置窗口中将其Name属性值设置为Text1。打开菜单设计器，按表3.30中的设置建立菜单项。表3.30标题操作显示隐藏名称M1ShowHide内缩符号011步骤2：编写程序代码。参考答案Private Sub Hide_Click() Text1.Visible = FalseEnd SubPrivate Sub Show_Click() Text1.Visible = TrueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其属性见表3.31和表3.32。步骤3：分析并编写程序代码。程序提供代码程序结束参考答案Private Sub C1_Click() Text1.PasswordChar = End SubPrivate Sub C2_Click() Text1.PasswordChar = ?End SubPrivate Sub C3_Click() Text2.Text = Text1.TextEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：新建一个窗体，按照题目要求建立图片框及通用对话框控件并设置图片框及通用对话框相应属性。程序中用到的控件及其属性见表3.33和表3.34。表3.33控件图片框通用对话框属性NamePictureNameDialogTitle设置值P1Open.icoCD1打开文件步骤2：分析并编写程序代码。参考答案Private Sub P1_Click() CD1.ShowOpenEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，按照题目要求建立标签控件并设置标签的Caption属性为回文个数为。步骤2：分析并编写程序代码。参考答案Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = TrueEnd Function步骤3：调试并运行程序，关闭程序后按题目要求存盘。8【基本操作】（1）【操作步骤】步骤1：新建窗体，按照题目要求建立控件数组并设置窗体和第一个复选框的属性。程序中用到的控件及属性见表3.35。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立滚动条控件及命令按钮控件并设置其属性。程序中用到的控件及属性见表3.36步骤2：编写程序代码。参考答案Private Sub C1_Click() HS1.Value = HS1.Value + 10End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立文本框控件及一个弹出式菜单并设置菜单属性。步骤2：按照步骤1设置其他子菜单项的相关属性，程序中用到菜单属性见表3.37。表3.37标题控件(任意)加粗斜体下划线名称FormatM1M2M3内缩符号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：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件，按照题目要求设置属性。步骤2：分析并编写程序代码。参考答案第1个？处填入：Show第2个？处填入：Caption第3个？处填入：k第4个？处填入：PasswordChar步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件，将文本框Text1的PasswordChar属性设置为*。步骤2：分析并编写程序代码。参考答案第1个？处填入：Text1.Text第2个？处填入：PasswordChar第3个？处填入：0第4个？处填入：False步骤3：调试并运行程序，关闭程序后按题目要求存盘。9【基本操作】【操作步骤】步骤1：新建一个窗体，按照题目要求建立图像框控件并设置其属性。程序中用到的控件及属性见表3.38。步骤2：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：n第2个？处填入：0第3个？处填入：fun = s步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：Step 1第2个？处填入：List1.List(k)第3个？处填入：k第4个？处填入：Text1或Text1.Text步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码参考答案第1个？处填入：0第2个？处填入：stepy第3个？处填入：Timer1.Enabled第4个？处填入：Timer1.Enabled第5个？处填入：stepy步骤3：调试并运行程序，关闭程序后按题目要求存盘。10【基本操作】（1）【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置其属性。程序中用到的控件及属性见表3.41。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性。程序中用到的控件及属性见表3.42。步骤2：编写程序代码。参考答案Private Sub Form_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Load() Form1.Caption = 标签End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【简单应用】（1）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。参考答案第1个？处填入：Command1第2个？处填入：Label1第3个？处填入：Control第4个？处填入：Label2.Caption步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件，将Timer1的Interval属性设置为500。步骤2：分析并编写程序代码。参考答案第1个？处填入：False第2个？处填入：True第3个？处填入：8第4个？处填入：0步骤3：调试并运行程序，关闭程序后按题目要求存盘。【综合应用】【操作步骤】步骤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：调试并运行程序，关闭程序后按题目要求存盘。11【基本操作】（1）【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.35。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【操作步骤】步骤1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框、文件列表框控件并设置其属性。步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.44和表3.45。步骤3：编写程序代码。参考答案Private Sub Dir1_Change() Fil